如何在新建dbf文件(50分)

各位大虾：
本人在做一个脱离数据库c/S模式的系统即以文件形式存放，那么怎么建立dbf文件呢？不要笑话
阿拉的能力，谢谢，如有答案尽快和我联系，chengzx@handsome.com.cn

如你所说，以文件形式存放文件，可以自定义文件类型，
即：在程序中定义结构类型
type
data = record
a1:string;
a2:integer;
......
end;
Myfile = file of data;//定义结构文件类型

如何写文件：
var
MyRecord:Tdata;
f:Myfile;
begin
Assignfile(f,MyFileName);
if FileExists(MyFileName) then
reset(f)
else
ReWrite(f);
try
Seek(f,filesize(f));//文件末尾追加
MyRecord.a1:= '自己的东东';
MyRecord.a2:= 234243;
//.......省略
write(f,MyRecord);
finally
closefile(f);
end;
end;