Einzelnen Beitrag anzeigen

marabu

Registriert seit: 6. Apr 2005
10.109 Beiträge
 
#4

Re: Problem Memo1.lines.savetofile()

  Alt 26. Feb 2006, 20:21
Hallo.

alzaimar meinte die Cursorposition, wenn du im Memo Strg+Ende drückst. Steht der Cursor hinter der letzten Textzeile, dann wurde diese mit einem Zeilenumbruch beendet und der hat dann eine Leerzeile am Ende deines Memo-Textes verursacht. Wie du das prüfst hat dir alzaimar im Prinzip schon gezeigt, allerdings kann man die Eigenschaft Count nicht manipulieren. So kannst du vor dem Speichern trailing whitespace aus deinem Memo entfernen:

Delphi-Quellcode:
with Memo do
begin
  while (Lines.Count > 0) and (Trim(Lines[Pred(Lines.Count)]) = '') do
    Lines.Delete(Pred(Lines.Count));
  Lines.SaveToFile(fn);
end;
Grüße vom marabu
  Mit Zitat antworten Zitat