Форум: "Основная";
Текущий архив: 2002.11.21;
Скачать: [xml.tar.bz2];

Вниз

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;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.007 c