试试BatchMove:
放一个OpenDialog1,filter为*.txt, 一个SaveDialog1, Filter为*.db;
==============================================================
if(OpenDialog1->Execute())
{
Table1->TableType=ttASCII;
Table1->TableName=OpenDialog1->FileName;
if(SaveDialog1->Execute())
{
Table2->TableType=ttParadox;
Table2->TableName=SaveDialog1->FileName;
BatchMove1->Source=Table1;
BatchMove1->Destination=Table2;
BatchMove1->Mode = batCopy;
BatchMove1->Execute();
ShowMessage(IntToStr(BatchMove1->MovedCount) + " 条记录被转换!");
}
}//大致如此~