请问大家的初级问题

Question

我从网上摘了段代码,老是编译不了...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,是不是不支持?
如果想实现上述代码的功用,有什么更好的方法么?谢谢大家了.

Answer 1

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

Answer 2

不好意思，搞錯了，方法還有很多種吧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;

Answer 3

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;

Answer 4

for a in list do
的顺序是确定的吗？for a:=0 to list.count-1 do
或
for a:=list.count-1 downto 0 do

Answer 5

在D7版本中不支持for in 的形式，2010中可以