将数据库表导出为以逗号分割的文本文件（CSV格式）

如果想将数据库表格转换为以逗号分割的文本文件（CSV格式），可以使用如下的过程代码：

 

procedure  BackupTableToCSV(tableName:TTable);
var
  i,j: integer;  (* i-field, j-record *)
  s: string;  (* Record string *)
  theStringList: TStringList;  (* temp storage *)
begin
  s : =   '' ;
  theStringList : =  TStringList.Create;
  
   with  tableName  do  
   begin
    try
      Active: = True;
    except
      showmessage( ' 不能激活数据库： ' +  Name);
     end ;
   
     for  j: = 0   to  (RecordCount - 1 )  do  
     begin
      s: = '' ;
       for  i: = 1   to  (FieldCount - 1 )  do  
       begin  
         (* add next field w/comma delimiter *)
        s : =  s  +  (Fields[i].AsString) + ' , ' ;
       end ;  (* i for *)  
    
      theStringList.add(s);
   
      Next;
     end ;  (* j for *)
    
    theStringList.savetofile(Name + ' .csv ' );  (* memo1.lines. *)
    Showmessage(Name +   '  已被转换完毕. ' );
    close;
 
   end ;  (* with *)
end ;  (* BackupTableToCSV *)

转载于:https://www.cnblogs.com/safezone/articles/1260827.html