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

Question

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

Answer 1

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;

Answer 2

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

Answer 3

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

Answer 4

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

Answer 5

上班时间帮你写例子，呵呵，希望有人同样的帮助别人，谢谢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;