请问--------如何把Tlist的值取出来?----------

Question

Tlist里用的是Add方法,存入很多条数据.
现在我想把里面的数据取出来,可为什么下面的代码出错?
Function ListToTxt(sl:TList):string;
var
    i:Integer;
    str1:string;
begin
    Result:='';
    for I := 0 to sl.Count - 1 do
    begin
        str1:=str1+sl.string[i];   
    end;
    Result:=str1;
    
end;

Answer 1

TList有string这个属性么。。编译不过吧

Answer 2

1.改用TStringList
2.改写如下：Function ListToTxt(sl:TList):string;
var
    i:Integer;
    str1:string;
begin
    Result:='';
    str1:='';
    for I := 0 to sl.Count - 1 do
    begin
        str1:=str1+sl[i];   
    end;
    Result:=str1;
end;