想改寫以下程式,讓它們看起來簡潔 |
答題得分者是:yachanga
|
Julien
一般會員 發表:36 回覆:28 積分:12 註冊:2002-11-28 發送簡訊給我 |
Label1.Caption :=fieldtype[1];
Label2.Caption :=fieldname[1];
Label3.Caption :=fieldsize[1];
Label4.Caption :=fieldtype[2];
Label5.Caption :=fieldname[2];
Label6.Caption :=fieldsize[2];
Label7.Caption :=fieldtype[3];
Label8.Caption :=fieldname[3];
Label9.Caption :=fieldsize[3];
.......................(還很多) 想改寫成回圈寫法,但是不曉得"().caption:=str[]",等號左邊的寫法.
有勞請幫忙...
|
william
版主 發表:66 回覆:2535 積分:3048 註冊:2002-07-11 發送簡訊給我 |
|
yachanga
資深會員 發表:24 回覆:335 積分:296 註冊:2003-09-27 發送簡訊給我 |
Hi Julien:
好像沒差多少 Var
i,k,j: Integer;
begin
For i:=1 to 100 do begin
if (findComponent('Label'+inttostr(i)) is TLabel) then
with (findComponent('Label'+inttostr(i)) as Tlabel) do begin
j:= trunc( i / 3)+1;
k:= i mod 3;
if k=0 then begin
k:=3;
j:=j-1;
end; if k=1 then Caption :=fieldtype(j)
else if k=2 then Caption :=fieldname(j)
else if k=3 then Caption :=fieldsize(j);
end;
end; ~悠遊法國號~
|
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |