| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Seek [D6, WinXP]

бобёр ©   (2002-11-11 23:34:00) 

Доброй ночи!

Следующая процедура переписывает файл сначала.

Как используя 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. Что-то у меня уже наверное мозги навернулись...

---

бобёр   (2002-11-11 23:50:00) [1]

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

---

pusrg   (2002-11-11 23:40:00) [2]

f.Seek(0, soFromEnd);

---

Наверх