[Karsh]

Сообщение от serpico

Кароче сделал проше, при нажатии кнопки загружал в ListBox из файла а в файле 5 раз нажал Enter и проблема исчезла. Все спасибо всем!

А добавлять пустую строку вы не додумались?? (ListBox1.Items.Add('')

Сообщение от serpico

Меня делфи добивает уже, теперь другая проблема как сделать так что, все что у меня в мемо поле он ДОБАВЛЯЛ в текстовый файл, я знаю что memo1.Lines.SaveToFile('log.txt') например он сохраняет, но при этом он заменяет все что там находится, а как сделать что бы он добавлял к уже сушествуюшему.

Необходимо вручную открывать файл и добавлять в него информацию:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  XFile: TextFile;
  s: string;
begin
  s:= 'gg.txt';
  AssignFile(XFile, s);
  if not FileExists(s) then Rewrite(XFile) else Append(XFile);
  try
    WriteLn(XFile, Memo1.Lines.Text);
  finally
    CloseFile(XFile);
  end;
end;