Надо писать / считывать записи из файла, причем, желательно - без заранее заданного формата.
Как организовать процедуру:
- Код: Выделить всё
for item in varRecord do begin
varBuffer := item+delimiter;
end;
ArrayOfLines[i] := varBuffer;
и обратная процедура:
- Код: Выделить всё
for item in ArrayOfLines do begin
for i:=0 to length( item )do begin
case item[i] of
delimiter : inc(j); //переход к следующему полю записи
else
ArrajOfRecords[k].item[j]+=item[i]; //добавить символ к строке поля.
end;
Плюс ещё сложности - разные типы данных у полей.
Годится и другой вариант: как выполнить explode строки из файла в запись?
Пытался
Readln (fH, vRec.pole1, vRec.pole2, vRec.pole3, vRec.pole4, vRec.pole5);
Не вылетает с ошибкой. И куда вставить флаги полей?