怎样实现DBF转换为文本文件

Question

1、DBF表中的部分字段转换到文本文件；
2、如数据字段5.99转换到文本文件为0005.99

Answer 1

用个数据集打开DBF文件，并格式化字段
然后直接另存为TXT文件

Answer 2

举例:
C盘有一个BASE.DBF文件,要将其的数据导出为TXT文件(字段X_A中的数据5.99转换到文本文件为0005.99格式)
procedure TForm1.Button1Click(Sender: TObject);
var
sl: TStringList;
begin
 if SaveDialog1.Execute then begin
   sl:=TStringList.Create;
   try
   with adoquery1 do begin
    close;
    sql.Text:='select * from openrowset(''MICROSOFT.JET.OLEDB.4.0'',''dBase III;DATABASE=c:\'',''select * from [base.dbf]'')';
    open;
    while not eof do begin
     sl.Add(FormatFloat('0000.00',FieldValues['x_a']));
     next;
    end;
    sl.SaveToFile(SaveDialog1.FileName);
   end;
  finally
   adoquery1.Close;
   sl.Free;
  end;
 end;end;

Answer 3

用数据集打来,
把需要的字段加到MEMO中,然后保存为文本.