自定义记录文件

Question

我定义了记录文件，怎么在后面插入记录呀

Answer 1

可以用Appendrecordquery方法实现,他是用来在数据集末端插入记录

Answer 2

用APPEND方式打开文件，然后用BLOCKWRITE来进行RECORD；

Answer 3

delphi  不是有TwcLog类么简单。更简单的办法就是用TStringList.

Answer 4

TMyRecord = Packed Record
  a: string[20];
  b: string[10];
end;
MyRecordFile: File of TMyRecord;

Answer 5

var
  myfile : TMyRecord;
  myrecordFile : File of TMyRecord;
begin
  AssignFile(myRecordFile,'aaa.dat');
  Reset(myRecordFile);
  Seek(myRecordFile,FileSize(myRecordFile));
  try
    write(myRecordFile，myfile);
  finally
    closeFile(myRecordFile);
  end;
end;