for  i:=low(array) to hight(array)
begin
...
end

解决方案 »

  1.   

    .....................这问题  for  while repeate 都可以遍历 
      

  2.   


    procedure TForm1.FormCreate(Sender: TObject);
    type T1=1..25;
     tt=set of T1;
     var mytt:tt;
    begin
    mytt:=[1,2,3,4,5];
    showmessage(inttostr(mytt[2]));
    end;以上代码有错吗?就是弹出不来!
      

  3.   

    type T1=1..25;
         tt=set of T1;
    var mytt:tt;
        i:integer;
    begin
     mytt:=[1,2,3,4,5];
     for i in mytt do
      showmessage(intTostr(i))
    end;
      

  4.   

    4楼是的高版本的DELPHI吧,我的只是DELPHI7不支持 for in语句的!!!
      

  5.   

    建议计一本有关Pascal算法的书。