Цитата:
|
Просто пропускаем ненужные блоки:
|
Если я правильно понял - это при чтении, а как мне дописать в файл еще одну запись? В каком режиме создавать поток , fmOpenRead?
И как встать на конец файла перед записью нового потока?
FS.Position = EOF ? так? чтобы данные дописались к файлу
Код:
FS := TFileStream.Create('c:\temp\test.dat', fmOpenRead); // ??
FS.Position = EOF; // ???
// или нужно через FS.Position := FS.Position + len добираться до конца файла?
FS.WriteBuffer(template1Length, SizeOf(template1Length)); // Сначала записываем размер данных
FS.WriteBuffer(bufferTemplate1^, template1Length); // А потом сами данные