80分寻求一控件！！

Question

delphi的demo中有一个例子就是将text的数据导入到table中的
看看就明白了，不过它也要有一个控件——在同一个目录下就有

Answer 1

cobi你说很简单，有没有类似的参考一下，帮帮忙咯，赶着要交差了。

Answer 2

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;