请高手指点数据集导出TXT文本

Question

我有2个数据一个销售主表，一个是销售明细，2个表字段数量不一样，请问如何将2个数据导出到同一个TXT文件中，字段之间分隔符是逗号。
实例：
HOH,101,1,100001,01-10-2010 10:30:20,0,1000,0 
HOH,101,1,100002,01-10-2010 15:10:37,200,800,0 
HOH,101,1,100003,01-10-2010 16:19:01,0,-1000,1
HOH,101,1,100004,01-10-2010 21:30:00,0,1000,0 
HOT,101,1,100001,C,1000 
HOT,101,1,100002,C,800 
HOT,101,1,100003,C,-1000 
HOT,101,1,100004,C,500 
HOT,101,1,100004,B,500

Answer 1

遍历数据集
遍历字段
写入txt

Answer 2

问题不是很明白，一是原来的数据表是在SQL SERVER或其他？二是两个数据表导出形成的TXT文件，是主表与明细连接后的记录，（如果是连接后的记录，那么关联字段是什么？）还是简单的将主表记录导出到TXT，然后再将明细记录导出到同一个TXT？

Answer 3

  
  procedure TForm1.Button1Click(Sender: TObject);
var
  s              :string;
  theStringList  : Tstringlist;
  i              :integer;begin
  theStringList:=TStringList.Create;
  x.First;
  s:='';
  while not dataset1.Eof do
  begin
    for i :=0  to dataset1.FieldList.Count-1 do
    begin
      s:=s+dataset1.Fields[i].AsString;
    end;
    theStringList.add(copy(s,1,length(s)-1));
    s:='';
    dataset1.Next;
  end;  s:='';
  while not dataset2.Eof do
  begin
    for i :=0  to dataset2.FieldList.Count-1 do
    begin
      s:=s+dataset2.Fields[i].AsString;
    end;
    theStringList.add(copy(s,1,length(s)-1));
    s:='';
    dataset2.Next;
  end;  try
  theStringList.savetofile(extractfilepath(application.ExeName)+'MyData.txt');
  except on e:exception do
    begin
      showmessage('Save TXT fail!');
      theStringList.Free;
    end
  end;
  theStringList.Free;end;
  

Answer 4

PS:文件保存在程序所在地文件夹中。
   可以在最后加一句showmessage('Save to'+extractfilepath(application.ExeName)+'MyData.txt');

Answer 5

遍历表 自己写入txt不行么