Тема: Memo
Показать сообщение отдельно
  #6  
Старый 09.09.2008, 12:03
Phedor Phedor вне форума
Начинающий
 
Регистрация: 28.02.2008
Сообщения: 118
Репутация: 21
По умолчанию

Все строки в 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;
Ответить с цитированием