如何在paradox表中导入或导出文本文件？谢谢

Question

如何在paradox表中导入或导出文本文件？谢谢

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
i,j:integer;
tempstring:string;
stringlist:tstringlist;
begin
stringlist:=tstringlist.create;
tempstring:='|  ';　{分隔符}
table1.first;
 while not table1.eof do
  begin
    for i:=0 to table1.recordcount-1 do
      begin
         for j:=0 to table1.fieldcount-1 do
           begin
           tempstring:=tempstring+table1.fields[j].asstring+'|  ';
           end;
      stringlist.Add(tempstring);
      tempstring:='|  ';　　{分隔符}
      table1.next;
      end;
  end;
stringlist.savetofile('c:\111.txt');
stringlist.Clear;
tempstring:='';
end;前两天写的，呵呵，，刚好用上了：）