String zum String addieren

Eigentlich ein triviales Problem, aber anscheinend befinde ich mich inzwischen im Wald und kann vor lauter Bäume... usw.

Ich muss an einen String einen weiteren String anfügen, also ein einfaches s := s + 'x';

Das Problem ist, dass es sich bei dem String um Memo.Lines handelt und ein Memo.Lines[x] := Memo-Lines[x] + 'x'; zum flackern des Inhalts führt.

Wer es testen will, ein einfaches Beispiel:

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TForm1.Timer1Timer(Sender: TObject);

begin

  Memo1.Lines[0] := Memo1.Lines[0] + 'x';

end;

procedure TForm1.FormCreate(Sender: TObject);

var

  i: Integer;

begin

  for i := 0 to 10 do Memo1.Lines.Add('Einfacher Fülltext');

  Timer1.Interval := 10;

end;

Auf jeden Fall fällt mir hier keine bessere Mehhode Lines zu ergänzen und ein BeginUpdate ist mir bei Memo auch nicht bekannt.

String zum String addieren

String zum String addieren

Forumregeln