把数据库格式的表记录转换为txt文件,并在每个记录的每个字段之间用'|'隔开.

Question

各位高手,通常我们在实际操作中,一般是把txt格式的文件转换为数据库文件,我们叫导入数据,我现在要问的是我们怎么样把数据库文件导出为txt格式的文件,并在每个记录的每个字段之间用"|"隔开表示区分?
   如:991675|高手|1979-04|男|地址不告诉你|等等|

Answer 1

var RecordString:string;
    i,j:integer;
    qry:Tadoquery;
    fileName:string;
    myfile:Textfile;
    fileHandle:integer;
begin
   RecordString:='';
   filename:='d:\out.txt';//目标文件
   if not fileexists(filename) then
      begin
         fileHandle:=fileCreate(filename);
         fileclose(filehandle);
      end;//首先要确定文件存在
   
   assignfile(myfiles,filename);
   append(myfiles); 
  
  {
    打开表部分自己写
   } 
   
   for i:=0 to qry.RecordCount-1 do
      begin
        for j:=0 to n do//n为字段总数减一
           RecordString:=RecordString+qry[j].AsString+'|';
        writeln(myfiles,strdata);
        
        qry.next;
          
      end;
   closefile(myfiles);
end;