紧急求助:access数据库，delphi下如何能导出到.txt文件

Question

因为直接拷贝的话太大了，有几M
在线急等
非常非常感谢

Answer 1

FS: TStream; I: Integer;
begin
  Table1.Open;
  Table1.First;
  if not Table1.Eof 
  then begin
       FS:=TFileStream.Create('DB.txt', fmCreate);
       try  
         while not Table1.Eof
         do begin
            S:='';
            for I:=0 to Table1.FieldCount-1 
            do S:=S+format('%s ; ',[Table1.Fields[I].AsString]);
            S:=S+#13#10;
            FS.WriteBuffer(S[1], Length(S));
            Table1.Next;
            end;
       finally
         FS.Free;
       end;
       end; 
end;