这个程序小弟有几处不明白，高手们帮忙。

[nnhn]

var
i:integer;
str,str1:string;
MyStringList:TStringList;
begin
MyStringList:=TStringList.create;
str:='0102030405'
for i:=0 to length(str) div 2 -1 do
begin
MyStringList.add(Copy(str,i*2+1,2)+' ');
end;
for i:=0 to MyStringList.count-1 do
begin
str1:=str1+MyStringList.Strings[i];
end;
MyStringList.free;
end;
MyStringList:TStringList;是定义的什么数据类型，
MyStringList:=TStringList.create;
str1:=str1+MyStringList.Strings[i];这几句是什么意思。

[weitao999]

TStringList;是一个字符串列表类。
MyStringList:=TStringList.create; Mystringlist是该类所创建的一个对象。
str1:=str1+MyStringList.Strings[i];这个循环是把mystringlist中的字符串列表组合成一个字符串赋给str1

[proman]

str1:=str1+MyStringList.Strings[i]
直接用TStringList的ComaText也可以完成这个功能。

[killlaoli]

都让 weitao999(涛涛) 说了

BTW：CommaText跟题意不符合吧，得出来的值是带双引的...

[MyCrooner]

顶

[qiume]

都让 weitao999(涛涛) 说了

[mrtxc]

TStringList; //是一个字符串列表类。

MyStringList:=TStringList.create; //Mystringlist是基于字符串列表类所创建的一个对象。
for i:=0 to MyStringList.count-1 do
begin
str1:=str1+MyStringList.Strings[i];
end;
//这个循环是把mystringlist中的字符串提取出来组合成一个字符串赋给str1