怎样把paradox数据表导出文本记录

Question

我想把paradox数据表导出文本记录，有何方法，或者提供程序代码，谢谢。

Answer 1

用*.sch文件，以下是我做的一个*.sch文件。
[a11001]  //须与*.txt文件名相同
FILETYPE = FIXED
CHARSET = ascii
Field1 = KMH,CHAR,07,00,00   //字段名，字段类型，字段大小，小数位数，起始位置
Field2 = SRYEJF,FLOAT,23,02,08
Field3=SRYEDF,FLOAT,23,02,31
Field4=BRFSEJF,FLOAT,23,02,54
Field5=BRFSEDF,FLOAT,23,02,77
Field6=BRYEJF,FLOAT,23,02,100
Field7=BRYEDF,FLOAT,22,02,123
Field8 = KMH1,CHAR,06,00,145
Field9=Bz,CHAR,03,00,152

Answer 2

procedure TForm1.Button1Click(Sender: TObject); 
vart1, t2: tTable; {t1 = PW table; t2 = ASCII version}begint1 := tTable.create(self);with t1 do beginDataBaseName := 'DBDEMOS';tableName := 'customer.db';open;end;t2 := tTable.create(self);with t2 do beginDataBaseName := 'DBDEMOS';tableName := 'myfile.txt';TableType := ttASCII;createTable;open;edit;BatchMove(t1, batCopy);close;end;t1.close;end;