请问大家的初级问题
我从网上摘了段代码,老是编译不了...

var
List: TStrings;
s: string;
begin
List := TStringList.Create;
List.CommaText := 'aaa,bbb,ccc';
for s in List do
ShowMessage(s);
List.Free;
end


我的版本是delphi7,是不是不支持?
如果想实现上述代码的功用,有什么更好的方法么?谢谢大家了.

[解决办法]
不好意思，搞了，方法有很多吧

var
List: TStringList;
s: string;
i:integer;
begin
List := TStringList.Create;
List.Text := 'aaa,bbb,ccc';
for i:=0 to list.Count-1 do
ShowMessage(list[i]);
List.Free;

end;
[解决办法]
var
List: TStrings;
s: string;
i:integer;
begin
List := TStringList.Create;
List.CommaText := 'aaa,bbb,ccc';
for i:=0 to list.Count-1 do
ShowMessage(list[i]);
List.Free;
[解决办法]

Delphi(Pascal) code

for a in list do的顺序是确定的吗？for a:=0 to list.count-1 do或for a:=list.count-1 downto 0 do
[解决办法]
探讨

我从网上摘了段代码,老是编译不了...

var
 List: TStrings;
 s: string;
begin
 List := TStringList.Create;
 List.CommaText := 'aaa,bbb,ccc';
 for s in List do
 ShowMessage(s);
 List.Free;
end


我的版本是delph……