Q&A

  • AssignFile사용법
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;                
0  COMMENTS