想改寫以下程式,讓它們看起來簡潔 |
|
答題得分者是：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; ~悠遊法國號~
|
發表時間：2004-04-20 11:02:40
IP:61.30.xxx.xxx 未訂閱
系統時間：2024-05-17 18:19:21
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |