[FreeUser]

В мемо всегда при savetofile в txt файле сохраняется в самом низу лишняя, пустая строчка. как это убрать?

[shaman]

попробуй так:

procedure TForm1.Button1Click(Sender: TObject);
begin
Memo1.Clear;
Memo1.Text:='твой текст';
Memo1.Lines.SaveToFile('abc.txt');
end;

[FreeUser]

Не подходит

[mskvkin]

у меня никогда такого не было всегда сохранялось и сохраняется нормально может ты сам enter нажимаешь или delphi глючит

[FreeUser]

эх..Не знаю..Но факт остается..Всегда в конце в txt лишняя строка

[Phedor]

Все строки в Memo заканчиваются переводом строки, в том числе и последняя, поэтому так и происходит. Если уж нужно по другому, то сохраняй самостоятельно:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
  f: TextFile;
begin
  AssignFile(f, 'abc.txt');
  Rewrite(f);
  i := 0;
  while i<Memo1.Lines.Count-2 do
    writeln(f, Memo1.Lines[i]);
  write(f, Memo1.Lines[Memo1.Lines.Count-1]);
  CloseFile(f);
end;