问题:表为foxpro的.dbf文件,字段有jy01,jy02,jy03.....jy12,想实现vfp下的宏替换,如变量a1=05,那么jy&a1就代表jy05字段.
delphi中没有想vfp中的宏替换&,不过它可以用好几种方式来实现,如
procedure TForm1.Button1Click(Sender: TObject); var str1,strSQL : string; begin str1 :='05'; strSQL := 'Update Table1 Set a'+str1+'='+ ''''+Edit1.text+''''; with ClientDataSet_Public do begin if Active then Active:=False; CommandText:=strSQL; ExecL; end; end;
delphi中一个比较好的宏代换,可以将一些文本文件包含在程序中,以下的,可以放在程序的任何可执行的任何位置。 {$Include .\MyTxt\ComeOutHouse01.txt} 而ComeOutHouse01.txt的内容可以是程序语句、数据等,正像c++的include语句一样。 参考资料:个人20年fox系列编程+8年delphi编程 如果你对表为foxpro的.dbf文件,字段有jy01,jy02,jy03.....jy12,想实现vfp下的宏替换,如变量a1=05,那么jy&a1就代表jy05字段.这个问题有好的意见或
建议,请留言
|