近日，由于业务需要导出sql server 数据到DBF文件，要查询多表记录，并适当处理后生成导出DBF文件，系统使用delphi2010平台开发。
首先按要求在VFP里创建DBF表，字段数有240个，作为样表，导出时取样表通过文件流拷贝一个新表，并按要求规则命名，拷贝一份新表使用：
1 procedure copyfile(sfile,tfile:String); 2 var 3 f1,f2: tfilestream ; 4 begin 5 f1:=Tfilestream.Create(sfile,fmopenread); 6 try 7 f2:=Tfilestream.Create(tfile,fmopenwrite or fmcreate); 8 try 9 f2.CopyFrom(f1,f1.size); 10 finally 11 f2.Free; 12 end; 13 finally 14 f1.Free; 15 end; 16 end;
接着查询sql server 数据，使用delphi BDE Table，循环写入数据到DBF文件，结果，其中有中文的字段为乱码。
为了解决乱码问题，上网查了一些资料，也做了一些其他操作，最终得到解决。
产生乱码后，曾尝试把DBF文件字段数删除了大部分，再导入，结果没有乱码，字段数128个以内没乱码，128个以上就会有乱码。
又在delphi 7里进行如此操作导出，结果没有乱码，由于系统程序是delphi 2010开发的，还是要解决在2010版里，128个字段以上的导出记录中文乱码问题。
使用Database Desktop修改DBF文件的语言编码，通过Tools菜单Utilities子菜单的Restructure打开DBF文件，在Table Properties选Table Language，点Modify，在弹出的表语言选择里，有dBASE CHS cp936和dBASE CHS cp950选项，先选择dBASE CHS cp936保存，进行导出，结果还是乱码，再选择dBASE CHS cp950，进行导出操作，结果乱码问题解决。