» Letzte Zeile eines Memofeldes löschen

[janjan]

hm, scheinbar erkennt Delphi die letzte leere Zeile nicht als vollwertige Zeile an.

Delphi-Quellcode:

procedure TForm1.Memo1Change(Sender: TObject);
begin
form1.Caption:=memo1.Lines[memo1.Lines.count-1];
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
memo1.Lines.Add(inttostr(memo1.Lines.count));
end;

Wenn man den Button mehrmals drückt, dann sollte er ja theoretisch nichts in der Titelleiste anzeigen, da die letzt Zeile ja nicht beinhaltet. Angezeigt wird aber die vorletzte Zeile.

Wenn man in der letzten Zeile einmal '<-' drückt, dann wird die letzte Zeile gelöscht und taucht auch bei weiterem drücken von Button1 nicht mehr aufund in der Form1.Caption wird jetzt die richtige zeile angezeigt.