Строка между записями

← →
Jim (2003-01-10 23:55) [0]

Есть файловая переменная типа P:file of Record

При записи в файл write(P,<record>) нужно вставлять некие метки (можно текстовые) между этими записями. Это можно как-нибудь реализовать ?

Нужно для того, чтобы разделять записи. То есть некоторые записи идут для одной цели. Потом идет метка, что следующие записи (тиа запсей тот же) идут уже в другую группу. Потом опять идет блок записей. Потом опять метка, что началась следующая группа. Опять блок и т.д.

Можно конечно каждую группу записей писать в отдельный файл, но так неудобно...

← →
Jim (2003-01-11 00:31) [1]

Думаю объяснил разумно

Если нет - пишите

← →
Sha (2003-01-11 09:09) [2]

Добавь в запись еще одно поле МЕТКА, значение которого одинаково для всех записей одной группы.

← →
Jim (2003-01-11 10:22) [3]

Да, да... так можно...

просто в программе используются данные типа записи... и их тогда сразу можно было бы писать, а так придется приводить к записи с меткой...

← →
TTCustomDelphiMaster (2003-01-11 12:26) [4]

В программе работаеш с TDataRecord. При записи в файл копируешь запись в TSaveRecord.Data и присваиваешь номер группы.

TSaveRecord = record
Data: TDataRecord;
Metka: Integer;
end;

f: file of TSaveRecord;

← →
Jim (2003-01-11 13:49) [5]

Ok.

Только вот забыл, в записях семантика ссылок работает или как ? Ну то есть Record1:=Record2 - первая запись будет ссылаться туда, куда и вторая или будет копирование произведено ?

← →
Sha (2003-01-11 15:36) [6]

Забыл - проверь, будет быстрее, чем ждать ответ :)

Строка между записями Найти похожие ветки