本文為原創，如需轉載，請注明作者和出處，謝謝！
最近做個程序，需要將dbf和文本文件互相轉換，也就是將dbf按表結構將字段和數據導成txt文件，再將txt文件導入其他的dbf表中。在foxpro中完成這些工作簡直太容易了，但很多功能必須用delphi實現。雖然可以用foxpro做個小程序，然后再用delphi調用，但比較麻煩。因此，可以用Delphi通過調用Com組件的方式直接執行foxpro命令來實現，代碼如下：
var
foxpro:olevariant;
begin
foxPro:=CreateOleObject('VisualFoxPro.Application');
foxPro.DoCmd('USE d:\student.dbf');
foxPro.DoCmd('copy to d:\student.txt delimited with tab');
foxPro.Quit;
foxPro:= Unassigned;
上面的代碼是將student.dbf文件導出到student.txt文件。如果想導入，可以使用append命令，如下所示：
append from d:\student.txt type sdf
還想做什么，就看需求了。但不管做什么，只要在foxpro命令窗口可執行的命令，通過這種方式都可以執行。使用createoleobject函數需要使用comobj單元。
新浪微博：http://t.sina.com.cn/androidguy 昵稱：李寧_Lining