W
wd5i
Unregistered / Unconfirmed
GUEST, unregistred user!
procedure TForm1.Button1Click(Sender: TObject);<br>var<br> TempStr1,TempStr2,Msg:string;<br>begin<br> try<br> with Fdm.Table1 do<br> begin<br> Active:=False;<br> TableName:='a.dbf';<br> TableType:=ttFoxPro;<br> FieldDefs.Add('第一列',ftstring,30);//FieldDefs.Add('A',ftString,30);//这里写成英文就没问题,中文就是乱码 <br> FieldDefs.Add('第二列',ftstring,30);//FieldDefs.Add('B',ftString,30);<br> FieldDefs.Add('第三列',ftstring,30);//FieldDefs.Add('C',ftstring,30);<br> CreateTable;<br> end;<br> except<br> MessageDlg('出现异常,无法创建dbf文件!',mtInformation,[mbOk],0);<br> end;<br><br> TempStr1:='为啥表头写中文就出错呢?'; TempStr2:='Demo2';<br><br> try<br> with Fdm.Query1 do<br> begin<br> Close;<br> SQL.Clear;<br> SQL.Add('insert into a(第一列,第二列) values('+''''+TempStr1+''''+','+''''+TempStr2+''''+') ');<br> //SQL.Add('insert into a(A,B) values('+''''+TempStr1+''''+','+''''+TempStr2+''''+')');//换成英文就没问题<br> ExecSQL;<br> end;<br> Msg:='Dbf文件生成完毕,文件保存在'+ExtractFilePath(Application.ExeName)+'下!';<br> MessageDlg(Msg,mtInformation,[MbOk],0);<br> except<br> MessageDlg('出现异常,向dbf文件中插入数据出错!',mtInformation,[MbOk],0);<br> end;<br>end;