TXY = record 인데 타이핑을 잘못하신거죠?

      AM := filesize(FoT); 를 잘못 친거구요?

그것은 당연한거구요.. 리턴값을 표시할수 없을때 나오는 메세지입니다.

<-- 당연히 사용하실수 있습니다.

델파이 5에서 님의 소스를 그래로 복사해서 해보니까 문제없는데요..
근데... 로직자체가 이상하네요...
메모리를 할당해서.. 그것을 기냥 파일에다가 엎어 쓰는건가여?

아래 소스
----------------

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;

type
  TXY = record
        A1, A2, A3: Integer;
        X, Y:       Double;
  end;

  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    procedure rRead;
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.RRead;
var
    AD:     PChar;
    AM, AN: Integer;
    FoT:    File of TXY;
begin
    // C폴더에 있는 C의 Data폴더에 있는 Point.dat파일(TXY 타입)을 연결해서 AD메모리에 넣는다.
    AssignFile(FoT, 'c:aa.Dat');
    ReSet(FoT);
    AM := FileSize(fot);  <-- 여기서는 레코드의 개수를 리턴하더군요 ^^
    AN := AM - 1;
    AD := AllocMem(AM * Sizeof(TXY));
    BlockWrite(FoT, AD^, AN+1);
    CloseFile(FoT);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
    RRead;
end;

end.

이렇게 해보니 aa.dat
--------------------------
                                                                dfdasfdfdasf
aaa

로서 이상없이 동작했습니다....

그러니까.. 님께서는 Syntax-Error 하고..알고리즘이 이상한거 같아여~

참고가 되었기를~~~

님의 답변에 감사 드립니다.
지적해 주신 코딩의 에러는 옮기면서 잘못된 것이 맞습니다.
그리고 말씀 하신것처럼 읽어서 메모리에 그대로 없어 쓰는 부분입니다.

죄송하지만 한번 더 수고 해 주시면 감사 하겠습니다.
아래와 같이 코딩을 했을때,
실행은 됩니다 하지만 RR로 읽어보면 원하는 값이 들어 있지 않습니다.
AM, AN의 갯수 또한 다릅니다.
참고로 델파이2에서는 정상적인 데이타가 나옵니다.
4에서도 정상이었는데, 5와 6에서는 쓰레기 값이 나옵니다.
델파이가 버젼업 되면서 달라진게 있나요?

unit Assign;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Buttons, StdCtrls;

type
        TXY = record
                A1, A2, A3:        Integer;
                X, Y:                Double;
        end;

        
  TForm1 = class(TForm)
        SpeedButton1: TSpeedButton;
        procedure SpeedButton1Click(Sender: TObject);
  private
        { Private declarations }
  public
        { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}


procedure TForm1.SpeedButton1Click(Sender: TObject);
var
        AD:        PChar;
        AM, AN, i: Integer;
        SS:              File of TXY;
        RR:           TXY;
begin
        AssignFile(SS, 'c:datapoint3.dat');
        ReSet(SS);
        AM := FileSize(SS);       <-- 들어 있는 갯수가 델파이2에서와는 다릅니다.  
        AN := FileSize(SS) - 1;
        AD := AllocMem(AM * Sizeof(TXY));
        BlockRead(SS, AD^, AN+1);  <-- Write를 Read로 바꾸었습니다.
        CloseFile(SS);

        for i := 0 to AN do
                begin
                CopyMemory(@RR, @AD[i * Sizeof(TXY)], Sizeof(TXY));
                        <-- RR() 레코드 모두 쓰레기값이 들어 있습니다.
                end;
end;

end.