spicirmkh
شنبه 09 دی 1385, 15:23 عصر
سلام
من می خواهم چند Label با شماره شروع می شود در برنامه تکرار کنم به مثال توجه کنید
change(Label1);
change(Label2);
change(Label3);
change(Label4);
حال می خواهم به اینصورت بنویسم و پیغام خطا می دهد
for i:=1 to 5 do
begin
T := 'label'+inttostr(i) ;
change(T);
end;
من می خواهم چند Label با شماره شروع می شود در برنامه تکرار کنم به مثال توجه کنید
change(Label1);
change(Label2);
change(Label3);
change(Label4);
حال می خواهم به اینصورت بنویسم و پیغام خطا می دهد
for i:=1 to 5 do
begin
T := 'label'+inttostr(i) ;
change(T);
end;