如何将查询出来的数据保存成'.dbf'格式的文件? 如题,找了半天也没找到Delphi的例子,向大家求助! 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 To: unsigned(僵哥) 我试着写了下,但是为什么生成dbf文件的表头是英文就没问题,中文就是乱码而且有时还报错呢?我是这么写的 try with Fdm.Table1 do begin Active:=False; TableName:='a.dbf'; TableType:=ttFoxPro; FieldDefs.Add('第一列',ftstring,30);//FieldDefs.Add('A',ftString,30);//这里写成应为就没问题,中文就是乱码 FieldDefs.Add('第二列',ftstring,30);//FieldDefs.Add('B',ftString,30); FieldDefs.Add('第三列',ftstring,30);//FieldDefs.Add('C',ftstring,30); CreateTable; end; except MessageDlg('出现异常,无法创建dbf文件!',mtInformation,[mbOk],0); end; postmessage(简单问题送分) 先到先得 如何用update在数据库中修改是实型的变量 怎么通过SQL PROFILER 跟踪易飞ERP用到的sql语句 如何用我的程序替换windows的系统程序 想要搞分得请进来,如能搞定可再开贴给分:求一个解决方案 excel:=CreateOleObject('Excel.Application');提示出错,怎么办? 怎样才能在字符串的子串位置插入更多的字符串? 关于Type Library dll调用找不到程序入口?? 如何实现像任务条一样,在拖宽后,桌面空间及其他程序的工作空间变小? 画线 置顶 救命呀
我试着写了下,但是为什么生成dbf文件的表头是英文就没问题,中文就是乱码而且有时还报错呢?
我是这么写的 try
with Fdm.Table1 do
begin
Active:=False;
TableName:='a.dbf';
TableType:=ttFoxPro;
FieldDefs.Add('第一列',ftstring,30);//FieldDefs.Add('A',ftString,30);//这里写成应为就没问题,中文就是乱码
FieldDefs.Add('第二列',ftstring,30);//FieldDefs.Add('B',ftString,30);
FieldDefs.Add('第三列',ftstring,30);//FieldDefs.Add('C',ftstring,30);
CreateTable;
end;
except
MessageDlg('出现异常,无法创建dbf文件!',mtInformation,[mbOk],0);
end;