如何 向一个 File Of Record 追加记录?

[fsybaby]

我有一个 File of 记录 的变量,
我已经assignfile,请问是 Reset,还是别的,怎么Append不好使?,怎么打开才能直接向文件中追加记录?

[dext]

begin
if OpenDialog1.Execute then
begin { open a text file }
AssignFile(f, OpenDialog1.FileName);
Append(f);
Writeln(f, ...);
Flush(f); { ensures that the data were actually written to file }
CloseFile(f);
end;

end;

[fsybaby]

不是文本文件呀，是 记录文件

[fsybaby]

有会的吗?

[Delphi1985]

你用SEEK定位，再用write就搞定
Append好像只能用于文本文件吧

[Delphi1985]

rewrite是用于文件不存在的情况，要读一个存在的记录文件用Reset
没错的，给分

[fsybaby]

那到底用什么方式打开？ rewrite是用于文件不存在的情况，要读一个存在的记录文件用Reset？

[hsgrass37301]

上班时间帮你写例子，呵呵，希望有人同样的帮助别人，谢谢

procedure TForm1.FormCreate(Sender: TObject);
type
arecord = record
name: string[10];
id: integer;
end;
var
f: file of arecord;
r: arecord;
begin
FileMode := fmOpenWrite;
AssignFile(f, 'c:\a.txt');
Rewrite(f);
r.name := 'hello';
r.id := 99;
BlockWrite(f, r, sizeof(r));
CloseFile(f);

FileMode := fmOpenRead;
AssignFile(f, 'c:\a.txt');
Reset(f);
BlockRead(f, r, sizeof(r));
text := r.name;
CloseFile(f);
end;

[fsybaby]

谢谢，我明白了大概的意思