Итак пойдем плясать от печки:
1. У вас возможны 3 вида файла: IA.ICAMA, IA.ICIAR, IA.ICINA
Последние 5 букв видимо расширение по которому вы будете определять тип данных в конкретном файле.
Для первого типа файла имеем такое описание:
Цитата:
Длина блока: 8192 байт;
Длина записи : 8192 байт;
Формат записи : фиксированный (F).
|
Значит BlockRead нам не очень подходит для чтения. Самый простой описатель для чтения будет таким:
Код:
Type
ICAMA = record
Data: Array[1..8192] of byte;
end;
И код для чтения данных записями будет такой:
Код:
Type
ICAMA = record
Data: Array[1..8192] of byte;
end;
Var
F: File of ICAMA;
R: ICAMA;
begin
AssignFile(F, 'c:\IA.ICAMA');
Reset(F);
while not Eof(F) do Read(F, R);
CloseFile(F);
end.
Данный код ничего не возвращает, но он честно читает ваш файл.
А вот что касается чтения содержимого каждой из записи - это уже скорее всего в работу.