AssignFile 을 사용해서 연결하는 과정입니다.
델파이 2에서 만들었던 소스를 델파이 6에서 사용하고자 하는데
에러가 발생하는 군요.
델파이 6에서 다음 과정에 문제가 있는지 봐 주십시오.
그리고 리플 부탁드립니다.
TYPE
record = TXY
A1, A2, A3: Integer;
X, Y: Double;
end;
procedure RRead;
var
AD: PChar;
AM, AN: Integer;
FoT: File of TXY;
RR: TXY;
begin
// C폴더에 있는 Point.dat파일(TXY 타입)을 연결해서 AD메모리에 넣는다.
AssignFile(FoT, 'C:DataPoint.Dat');
ReSet(FoT);
AM := FileSize(SS);
AN := AM - 1;
AD := AllocMem(AM * Sizeof(TXY));
BlockWrite(FoT, AD^, AN+1);
CloseFile(FoT);
end;