Цитата:
Сообщение от 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;