Deutsches Lazarusforum

Hi,
--disable-factory bringt bei mir auch nichts, weil das OnTerminate NotifyEvent einfach nicht feuert unter Ubuntu. Egal was ich da starte, hab es auch schon mit Nautilus versucht.
Ich finde es aber interessant das es mit der MSEgui ja zu klappen scheint.

OnProcfinished scheint dann anders zu ...

Hmm schade ich hab das ganze unter Windows getestet, ich weiß nicht ob diese Events unter Linux gehen...

Wie hast du denn das beenden in die Memo eintragen lassen ?

Bei mir geht das wenn du die OnTerminate procedure ergänzt:


procedure TForm1.Closed(Sender: TObject); //Aktion am Ende eines ...

Hi Miguel und willkommen,

was eine Reaktion auf das beenden angeht, kann ich dir http://lazarus-ccr.sourceforge.net/docs/lcl/asyncprocess/tasyncprocess.html empfehlen, weil es hier ein Event gibt was OnTerminate heißt. Damit kannst du das nochmal versuchen.

Hier ein Beispiel:
unit Unit1 ...

Hi,

den Anfang würde ich mal so probieren:
noch ein Link: http://wiki.freepascal.org/Olevariant/de

MfG

Hi,

vielleicht könnte ja diese Klassensammlung helfen: http://www.gausi.de/mp3fileutils.html

MfG

Du könntest mit dem Button einfach eine Globale Variable, die den Typ Boolean hat setzen und diese Variable dann in der Schleife (oder Timer) abfragen.
Und statt Schleifen würde ich hier Timer holen, dann hat man auch das Problem nicht das die ganze Eingabe blockiert wird.

MfG

Eine Sache muss ich allerdings einräumen, weil mich die immer wieder in die Knie
gezwungen hat: Du wirst mit Lazarus immer wieder mit Umlauten zu kämpfen haben.
Vor allen Dingen wenn es um Vergleiche geht, die mit Text zu tun haben.


Mit den Umlauten hatte ich am Anfang auch meine Probleme ...

Hi,

ist die Schleife dafür da um eine Aktion beim beenden des Programms auszuführen ?
Dann wäre das OnClose Ereignis von Form1 (bzw. eines Formulares TForm) hier das richtige und man bräuchte die Schleife nicht.

MfG

Hier gibt es auch interessante informationenen zu Lazarus und Firebird:
http://lazarus.intern.es/firebird_lazarus.html

MfG

Wenns dich wirklich stört, setz am Anfang alles auf Null: Oder du stellst die Meldung unter Projekteinstellungen (Meldungen) einfach aus (wobei die in anderen Fällen schon mal sinnvoll ist).
Oder ignorierst es ...

MfG

Das Problem wenn ich ihn enabled mache ist er ja komplett weg und ich möchte ihn beim nächsten mal wieder benutzen.

Nein du verwechselst das mit visible, mit enabled wird er nur grau unterlegt, verschwindet aber nicht, natürlich musst du ihn wenn der Vorgang fertig ist wieder auf Button1.Enabled ...

@edit@ habe es nur geht es evtl. so wie ich es oben vor hatte?
so hab ich es jetzt:
if EditR1.Text=''then Showmessage('WERTE FEHLEN - neu beginnen') else
if EditR1.Text='' then exit;

Eigentlich schreibt man das so:

if EditR1.Text = '' then
begin
Showmessage('WERTE FEHLEN - neu beginnen ...

Das mit dem OnCHange und SaveToFile ist nur gut wenn es dir egal ist, wenn Daten aus vorherigen Programmbenutzungen wieder gelöscht werden.
Ansonsten wäre mein Lösungsansatz (mit OnKeyPress von Memo) so, ist aber noch nicht ganz ausgereift...

const
Dateiname: String = 'DeineDatei.txt';

var ...

Auf das Memo klicken, dann (links) im Objektinspektor Ereignisse suchen und dort OnChange suchen, dann einfach doppelklick in die rechte leere Spalte.
Allderings wird mit dem SaveToFile, das du hier anwendest, die datei ganz neu geschrieben. Es wird also nur immer der momentane Inhalt des Memo ...

Dafür könntest du das OnChange Ereignis vom Memo benutzen. Allerdings würde ich dann auf den Savedialog verzichten... Also dann mit festen Dateienname.

Grüße