怎样在记录型文件后面追加记录？？(50分)

我用rewrite打开文件，创建了一个新的文件，
用append打开记录文件，提示说类型不匹配，append只能打开txt文件？
那记录型文件追加数据该如何写？？？

append只能用于文本文件。要在有类型文件中写入，使用write方法。
var
DataRec: TDataRec; //自定义的数据类型
FDataFile:File of TDataRec;
begin
Assign(FDataFile, 'DataFile.dat');
Reset(FDataFile);
Seek(FDataFile, FileSize(FDataFile)); //移动文件指针到文件最后
DataRec := xxxxxx; //给这个类型赋值
try
write(FDataFile, DataRec);
finally
CloseFile(DataFile);
end;
end;
要注意的是，类型文件的类型中，长度必须是确定的，如string[500], 而不能是string。