用Clidentdataset组件,而不用Table組件,怎樣實現將SQL數據表中的文件通過按鈕(一個button組件)生成*.txt文件?希望各位大蝦能詳細講解一下,謝謝!

解决方案 »

  1.   

    Clidentdataset1.SaveToFile('d:\aa.txe')
      

  2.   

    var
      SL: TStringlist;
      lp: integer;
      StrTmp: string;
    begin
      SL := TStringlist.Create;
      try  
        Clidentdataset1.first;
        while not Clidentdataset1.eof do 
        bgin 
          StrTmp := '';
          for lp := 0 to Clidentdataset1.Fields.Count - 1 do 
            StrTmp := StrTmp + Clidentdataset1.Fields[lp].Asstring + '  ';//间隔符可自己定
          SL.Add(StrTmp);
          Clidentdataset1.next;
        end;
        SL.SaveToFile('D:\aaaa.txt');
      finally
        SL.free;
      end;
    end;