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]

Спасиба. Работает!!!!!

Seek Найти похожие ветки