Paradox数据库导出到文本

  • 主题发起人 主题发起人 import
  • 开始时间 开始时间
I

import

Unregistered / Unconfirmed
GUEST, unregistred user!
procedure TForm1.Button1Click(Sender: TObject); var
t1, t2: tTable; {t1 = PW table; t2 = ASCII version}
begin
t1 := tTable.create(self);
with t1 do begin
DataBaseName := 'DBDEMOS';
tableName := 'customer.db';
open;
end;
t2 := tTable.create(self);
with t2 do begin
DataBaseName := 'DBDEMOS';
tableName := 'myfile.txt';
TableType := ttASCII;
createTable;
open;
edit;
BatchMove(t1, batCopy);
close;
end;
t1.close;
end;
 
后退
顶部