大家好。如何将表里面的内容导出到文本文件中！！！

Question

我知道已经有相关控件实现该功能~~
但我不记得是哪个了~~procedure Export(DataSet: TDataSet);
var 
  I: Integer;
  J: Integer;
  vStr: String;
begin
  I := DataSet.FieldCount - 1;
  DataSet.First;
  while not DataSet.Eof do
  begin
    vStr := '';
    for J := 0 to I do
    begin
      vStr := vStr + DataSet.Fields[I].AsString;
    end;
    //这里加入代码，将vStr 写入到文件中! 由自己实现....
    DataSet.Next;
  end;
end;//上述代码未经调试！