아래와 같이 소스를 만들어서 사용하는데..

에러가 납니다.

어느 부분에서 에러가 나는지 도무지 이유를 알수가 없군요.

에러좀 찾아주세요

지금 당장 처리해야 하는 부분이라서요 ^^;;..죄송합니다.





화일이름은 : EA140220 입니다.

H00000009964210975EA140420010420 R0000002996421097501042017700120050 12000045304956030393 00000108 N0014000059R0000003996421097501042017700120049 81000063212751000103 00000104 N0012000059T99999999964210975EA14042000000500000050000000000000000000000 1574012809



위와 같은 내용이 들어 있습니다.







type

Trec = record

rec1 : array[1..1] of char;

rec2 : array[1..7] of char;

rec3 : array[1..10] of char;

rec4 : array[1..6] of char;

rec5 : array[1..1] of char;

rec6 : array[1..20] of char;

rec7 : array[1..6] of char;

rec8 : array[1..16] of char;

rec9 : array[1..16] of char;

rec10 : array[1..4] of char;

rec11 : array[1..2] of char;

rec12 : array[1..1] of char;

rec13 : array[1..4] of char;

rec14 : array[1..6] of char;

end;



{$R *.DFM}





procedure Tcms3form.Button2Click(Sender: TObject);

var

Test : ^Trec;

iFileHandle : Integer;

iByteRead : Integer;

indate : String;

begin

iFileHandle := FileOpen('EA140220', fmOpenRead);

iByteRead := FileRead(iFileHandle, Test^, Sizeof(Test^));



indate := FormatDateTime('yyyy-mm-dd',now);



end;