TMemo : Leerzeilen am Ende erkennen

[Mackhack]

Hi,

versuch mal diesen Code:

Delphi-Quellcode:

procedure TForm1.BtnExecuteClick(Sender: TObject);
begin
  Memo1.Clear;
  Memo1.Lines.Add('Dies ist ein sample Test!!!');
  Memo1.Lines.Add('Dies ist die 2. Zeile!!!');
  Memo1.Lines.Add('');
  Memo1.Lines.Add('Dies ist die 4. Zeile da die 3. Zeile leer ist!!!')
end;

procedure TForm1.BtnLoadClick(Sender: TObject);
begin
  Memo1.Lines.LoadFromFile('c:\Test.txt');
end;

procedure TForm1.BtnSaveClick(Sender: TObject);
begin
  Memo1.Lines.SaveToFile('c:\Test.txt');
end;

procedure TForm1.BtnShowLinesClick(Sender: TObject);
begin
  Caption := IntToStr(Memo1.Lines.Count);
end;

Und guck dir mal mein Beispiel an das angehaengt ist!

Ich hoffe dass ich dein Problem richtig erkannt habe und dir helfen konnte!