freepascal.ru

Помогите, пожалуйста,
Надо писать / считывать записи из файла, причем, желательно - без заранее заданного формата.

Как организовать процедуру:

Код: Выделить всё

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);
Не вылетает с ошибкой. И куда вставить флаги полей?