Problem mit TEdit und String

[Delphine]

Hallo, ich habe da ein Problem mit einem Edit-Feld. Den Quellcode habe ich bis auf 2 Zeilen reduziert. Programm stürtz mit Fehlermeldung "... EStackOverflow ... StackÜberlauf ..." ab.

Es soll sich bei jeder Änderung (programmiert oder eingegeben) der Text ändern:

Delphi-Quellcode:

procedure TForm1.Edit1Change(Sender: TObject);
  var s: String;
begin
  s := Edit1.Text + ' BlaBla';
  Edit1.Text := s;
end;

Eigentlich wollte ich das programmieren (was auch nicht funktionierte):

Delphi-Quellcode:

procedure TForm1.Edit1Change(Sender: TObject);
begin
  Edit1.Text := Edit1.Text + ' BlaBla';
end;

Auf dem Formular ist nichts außer dem EditFeld. Code ist im OnChange-Ereignis.
Was ist die Ursache (bitte kein Fachchinesisch, bin Anfänger)?
Wie kann man die Aufgabe erfüllen und den Absturz vermeiden?

PS: Wozu muß ich die Programmiersprache nochmal eingeben - habe ich doch bei der Registrierung ins Profil schonmal eingetragen? Könnte das nicht oben automatisch erscheinen?

[Sunlight7]

Herzlich Willkommen in der DP!

Cool, ich hab auch noch Delphi 2.0 (im Profil steht 5, hab ich auch)

Zitat von Delphine:

PS: Wozu muß ich die Programmiersprache nochmal eingeben - habe ich doch bei der Registrierung ins Profil schonmal eingetragen? Könnte das nicht oben automatisch erscheinen?

Viele haben mehrere Sprachen, so wie ich, deshalb.

Zu Deinem Problem:

Problem:
Wenn Du in einer OnChange den Text änderst löst Du wieder eines aus, indem Du den Text wieder änderst, also wieder ein OnChange auslöst, indem Du wieder ... Bis es kracht.

Lösung:
Das OnChange vorübergehend deaktivieren.

Delphi-Quellcode:

procedure TForm1.Edit1Change(Sender: TObject);
begin
  Edit1.OnChange:=nil;
  Edit1.Text := Edit1.Text + ' BlaBla';
  Edit1.OnChange:=Edit1Change;
end;

[himitsu]

Zitat von Sunlight7:

Lösung:
Das OnChange vorübergehend deaktivieren.

Es gäbe noch die Möglichkeit über eine eigene Variable.

Wobei dieses vorallem Vorteile hätte, wenn mehrere Ereignisprozeduren wärend "gesperrt" werden sollen.

Delphi-Quellcode:

var irgendwas: boolean;  // oder in der klasse definiert

procedure TForm1.Edit1Change(Sender: TObject); 
begin 
  if irgendwas then exit;

  irgendwas := true;
  Edit1.Text := ...; 
  Edit2.Text := ...; 
  irgendwas := false; 
end;

procedure TForm1.Edit2Change(Sender: TObject); 
begin 
  if irgendwas then exit;

  irgendwas := true;
  Edit1.Text := ...; 
  Edit2.Text := ...; 
  irgendwas := false; 
end;

für nur eine Ereignisprozedur ist das natürlich eventuell ewas "zuviel" Aufwand


Wenn die Ereignisprozedur auch veränderlich sein könnte, dann sollte man die aktuelle Zuweisung zwischenspeichern und danach wiederherstellen,
was bei der Methode mit Zusatzvariable natülich nicht nötig wäre.

Delphi-Quellcode:

procedure TForm1.Edit1Change(Sender: TObject);
var NE: TNotifyEvent;
begin
  NE := @Edit1.OnChange;
  Edit1.OnChange := nil;
  Edit1.Text := Edit1.Text + ' BlaBla';
  Edit1.OnChange := @NE;
end;

PS: hab hier och Mehreres? D1, D4, D5, D7, D05, DSB06 und Turbo ... also was soll's?
D4/D7 wird aber genutzt ^^

[marabu]

Hallo,

das Anhängen einer String-Konstante bringe ich mit Eingabefeldern für Geldbeträge oder physikalische Größen in Verbindung. Dort verbindet man die Anzeige aber nicht mit dem Ereignis OnChange(), sondern hängt die Einheitenbezeichnung im Ereignis OnExit() an und entfernt sie beim Ereignis OnEnter().

Freundliche Grüße vom marabu

[Sunlight7]

@himitsu

Jupp, das stimmt schon, aber ich wollte es für einen Anfänger mal ganz einfach erklären (so wie gewünscht), meistens kommen dann eh weitere Fragen.

[himitsu]

Zitat von Sunlight7:

Jupp, das stimmt schon, aber ich wollte es für einen Anfänger mal ganz einfach erklären (so wie gewünscht), meistens kommen dann eh weitere Fragen.

hab deines doch nicht bemängelt ... 's war nur damit dann keine fragen kommen wenn dieses nötig ist

[Sunlight7]

Zitat von himitsu:

hab deines doch nicht bemängelt ...

Hat ja keiner gesagt
Wollt ich nur mal festhalten

Aber jetzt wieder genug OT