想要这样一个功能，代码如下： sl := TStringList.Create; 然后我就想把datasource中的内容写到s1里面，谢谢！

------
我的编程起步于ktop，我将永远支持ktop

您好﹗    DataSource的內容﹖應該是資料集元件的內容吧﹐我們以ADOTable元件舉例﹕

Var
  s1: TStringList;
begin
  s1 := TStringList.Create;
  s1.Add(ADOTable1.FieldByName('欄位名稱一').AsString);
  s1.Add(ADOTable1.FieldByName('欄位名稱二').AsString);
end;

================================= 有空來瞅瞅我﹗因為我是您的朋友﹐有您真好﹗ ================================

------
忻晟

我是用adoquery查询得来的，而且查询来的列数和行数不确定的，名称也不确定的，能不能就是查询出来几行几列叫什么名称就ADD其中的内容？或者也可以dbgrid（也是连着那个ADOQUERY的）中的表格内容有什么就ADD进去什么，是不是写一个循环什么？ 發表人 - ntjrr 於 2005/11/16 18:36:33

------
我的编程起步于ktop，我将永远支持ktop

 
Var
  s1: TStringList;
 s:String;
  cox : integer;
begin
  s1 := TStringList.Create;
  try
    ADOTable1.first;
    while not ADOTable1.eof do
    begin
      s := '';
      for cox := 0 to ADOTable1.fieldcount - 1 do
      begin 
        if s = '' then
          s := AdoTable1.Fields[cox].Asstring
        else
          s := s ',' AdoTable1.Fields[cox].asstring;   
      end;
      si.add(s);
      ADOTable1.next;
    end;
  finally
    s1.savetofile('c:\DATA.TXT');
    s1.free;
  end;
end;

發表人 - huwk 於 2005/11/16 22:16:06

------
熊的學習 http://huwk.blogspot.com

我把上面的代码换成了从adoquery1中查询出来，结果是只出来查询后的结果，不出来查询出来的标题，也就是在另一个问题中提到的select 用户名 form 表 用户名都出来了，但用户名这三个字本身没出来。 对了，如果stirnglist添加stringgrid中的内容用什么代码？谢谢！ 發表人 - ntjrr 於 2005/11/17 07:09:21

------
我的编程起步于ktop，我将永远支持ktop