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:

markieren

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):

markieren

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?

Problem mit TEdit und String

Problem mit TEdit und String

Forumregeln