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;以上代码有错吗?就是弹出不来!
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;
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;以上代码有错吗?就是弹出不来!
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;