怎么样将数据集存成文本文件？

Question

//一个函数要买多少￥
function DataSetToText(mDataSet: TDataSet): string;
var
  vBook: string;
  I: Integer;
  S: string;
begin
  Result := '';
  vBook := mDataSet.Book;
  mDataSet.First;
  while not mDataSet.Eof do begin
    S := '';
    for I := 0 to mDataSet.FieldList.Count - 1 do
      S := S + #9 + mDataSet.FieldList[I].DisplayText;
    Delete(S, 1, 1);
    Result := Result + S + #13#10;
    mDataSet.Next;
  end;
  mDataSet.Book := vBook;
end;

Answer 1

//一个函数要买多少￥
function DataSetToText(mDataSet: TDataSet): string;
var
  vBook: string;
  I: Integer;
  S: string;
begin
  Result := '';
  vBook := mDataSet.Book;
  mDataSet.First;
  while not mDataSet.Eof do begin
    S := '';
    for I := 0 to mDataSet.FieldList.Count - 1 do
      S := S + #9 + mDataSet.FieldList[I].DisplayText;
    Delete(S, 1, 1);
    Result := Result + S + #13#10;
    mDataSet.Next;
  end;
  mDataSet.Book := vBook;
end;

Answer 2

Memo1.Text := DataSetToText(ADOTable1);
Memo1.Lines.SaveToFile('C:\Temp\1.txt');

Answer 3

delphi中数据集不是有这个功能吗？