如何对记录类型文件追加记录？？

Question

procedure TForm1.Button1Click(Sender: TObject);
type
  TMyReocrd = record
    X: Integer;
    Y: Integer;
  end;
var
  vReadFile, vWriteFile: file of TMyReocrd;
  NewVar: TMyReocrd;
begin
  AssignFile(vReadFile, 'C:\Temp\Temp.dat');
  Reset(vReadFile);  AssignFile(vWriteFile, 'C:\Temp\Temp.tmp');
  Rewrite(vWriteFile);
  while not Eof(vReadFile) do begin
    Read(vReadFile, NewVar);
    Write(vWriteFile, NewVar);
    ShowMessage(Format('%d,%d', [NewVar.X, NewVar.Y]));
  end;
  NewVar.X := 1;
  NewVar.Y := 2;
  Write(vWriteFile, NewVar);
  CloseFile(vWriteFile);
  CloseFile(vReadFile);  DeleteFile('C:\Temp\Temp.dat');
  RenameFile('C:\Temp\Temp.tmp', 'C:\Temp\Temp.dat');
end;

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
type
  TMyRecord = record
    X: Integer;
    Y: Integer;
  end;
var
  F: file of TMyRecord;
  NewVar: TMyRecord;
begin
  AssignFile(F, 'C:\Temp\Temp.dat');
  Reset(F);
  while not Eof(F) do begin
    Read(F, NewVar);
    ShowMessage(Format('%d,%d', [NewVar.X, NewVar.Y]));
  end;
  Seek(F, FileSize(F));
  NewVar.X := 17;
  NewVar.Y := 17;
  Write(F, NewVar);
  CloseFile(F);
end;