请问--------如何把Tlist的值取出来?----------
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;

[解决办法]
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;