VAR
FF:ARRAY OR TLABEL;------全局变量
I:INTETGER;
在窗体的ONPAINT事件写
BEGIN
SETLENGTH(FF,10);
TRY
FOR I:=1 TO 10 DO
BEGIN
FF[I]:=TLABEL。CREATE(FORM1);
FF[I]。PARENT:=FORM1;
FF[I]。LEFT:=100;
FF[I]。CAPTION;=‘WERWE’;
END;END;
在窗体的CLOSE事件写
VAR
J:INTEGER;
FOR J:=1 TO 10 DO
BEGIN
FF[J]。FREE;
END;为何有错误呀
FF:ARRAY OR TLABEL;------全局变量
I:INTETGER;
在窗体的ONPAINT事件写
BEGIN
SETLENGTH(FF,10);
TRY
FOR I:=1 TO 10 DO
BEGIN
FF[I]:=TLABEL。CREATE(FORM1);
FF[I]。PARENT:=FORM1;
FF[I]。LEFT:=100;
FF[I]。CAPTION;=‘WERWE’;
END;END;
在窗体的CLOSE事件写
VAR
J:INTEGER;
FOR J:=1 TO 10 DO
BEGIN
FF[J]。FREE;
END;为何有错误呀
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货