Массив записей в файл - ОБХОД ЗАПИСИ -Record Enumerator

Форум для изучающих FPC и их учителей.

Модератор: Модераторы

Массив записей в файл - ОБХОД ЗАПИСИ -Record Enumerator

Сообщение Researching » 23.12.2018 01:07:23

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

Как организовать процедуру:
Код: Выделить всё
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);
Не вылетает с ошибкой. И куда вставить флаги полей?
Researching
незнакомец
 
Сообщения: 2
Зарегистрирован: 01.11.2018 11:47:12

Вернуться в Обучение Free Pascal

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 3

Рейтинг@Mail.ru