Registriert seit: 19. Okt 2003
Ort: Heilbronn
675 Beiträge
Delphi 10.4 Sydney
|
Re: » Letzte Zeile eines Memofeldes löschen
3. Dez 2003, 16:59
Das Problem ist das Senden der Nachricht. Wenn ReadOnly = true, dann werden die Editor-Nachrichten ignoriert :p
Vielleicht einfach ganz hinten das CRLF wegnehmen :
var S, S1 : String;
begin
S := Memo1.Lines[Memo1.Lines.Count - 1];
S1 := #13#10;
Delete(S1, S, 2);
end;
so sollte das gehen, denn wenn kein Carriage Return+LineFeed, dann keine neue Zeile :p
MRN
|