Текущий архив: 2002.11.21;
Скачать: CL | DM;
Вниз
Seek Найти похожие ветки
← →
бобёр (2002-11-11 23:34) [0]Доброй ночи!
Следующая процедура переписывает файл сначала.
Как используя Seek дописать в конец?
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var
F:TfileStream;
begin
f:=TfileStream.Create("d:\mas\log.pgp",fmOpenWrite);
Memo1.Lines.SaveToStream(f);
FlushFileBuffers(f.Handle);
end;
P.S. Что-то у меня уже наверное мозги навернулись...
← →
pusrg © (2002-11-11 23:40) [1]f.Seek(0, soFromEnd);
← →
бобёр (2002-11-11 23:50) [2]Спасиба. Работает!!!!!
Страницы: 1 вся ветка
Текущий архив: 2002.11.21;
Скачать: CL | DM;
Память: 0.46 MB
Время: 0.012 c
