怎样把表中的数据导出到*.txt文件中

Question

TStringList * StringList = new TStringList();
Table1->First();//Table1为表名，亦可为Query
for(int i=0;i<Table1->RecordCount;i++)
{
　//一条记录一行,f1,f2,f3为字段名
  StringList->Add(Table1->FieldByName("f1")->AsString+","
                 +Table1->FieldByName("f2")->AsString+","
                 +Table1->FieldByName("f3")->AsString+"\r\n");  Table1->Next();
}StringList->SaveToFile("C:\\yourfile.TXT");
delete StringList;

Answer 1

关于这个问题可以使用TBatchmove控件!

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
var
MyText:TextFile;
tempstr : string;
i:integer;begin 
AssignFile(MyText,ExtractFilePath(Paramstr(0))+'MyTextFile.txt');
Rewrite(MyText);
tempstr :='';
try
TABLE1.FIRST;
WHILE not table1.Eof do
begin  for i:=0 to table1.fieldcount-1 do
    tempstr := tempstr + '|' + table1.fields[i].asstring;  writeln(Mytext,tempstr);
  tempstr := '';
  Next
end
finally
CloseFile(MyText);
end;
end;