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

[QQCAT]

var
fFile:File of MyReocrd;
NewVar:MyReocrd;
begin
...
//此处如何写???
reset (fFile);
write(fFile,NewVar);
...
end;

[Nizvoo]

搜搜

[NetWorm]

用assignfile呀！

[王集鹄]

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;

[王集鹄]

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;