Неверное считывание из файла [BlockRead]

[Alex Cones]

В общем ситуация:

Script.asc:

Type
 TCell = Record
  X  : Integer; (* Steps for skip in FCOLOR *)
  Y  : Integer; (* Steps for skip if FCOLOR not founded *)
  T  : Integer;
  F  : Integer; (* This use as color in FCOLOR mode *)
  P1 : TPoint;
  P2 : TPoint;
 End;

Var
 Cell  : Array of TCell;

 Sleep(5000);
 AssignFile(FCoun, 'Counter.txt');
 Reset(FCoun);
 ReadLn(FCoun, SCoun);
 Count := StrToInt(SCoun);
 CloseFile(FCoun);

 SetLength(Cell, Count);

Здесь Count считывается нормально, в данной ситуации Count = 2.

AssignFile(F, 'Script.asc');
 Reset(F,1);
 For J := 0 to Count - 1 do
  BlockRead(F, Cell[J], SizeOf(TCell));
 CloseFile(F);

Должно быть
Первый cell: X=355, Y=453, T=2
Второй cell: X=375, Y=558, T=1

Я как-то неправильно записал данные в хексе?

[eoln]

ReadBlock читает байты из нетипизированного файла и делает это в другом порядке, первое 4-х битное число будет равно 63 01 00 00 (в 16 СС) = 1661009920
Чтобы получить 355 (то есть прямой порядок байт), то следует читать файл как типизированный (типа TCell). Тогда и получим прямой порядок байт 00 00 01 63 = 355

То есть в хексе надо исправить файл на
63 01 00 00 c5 01 00 00 02 00 00 00 и т.д.

[Alex Cones]

Спасибо, попробую.