關於陣列使用 |
|
尚未結案
|
|
kkccgg
初階會員   發表：50 回覆：54 積分：30 註冊：2002-07-28 發送簡訊給我 |
有一個問題想請教大家
程式如下,不曉得是否有方法將case處改成以尋找對應方式撰寫 Procedure TForm1.aa;
var
i1,i2:Integer;
a1,a2,a3,a4:array [1..100] of string;
begin
for i1:=1 to 4 do
begin
for i2:=1 to 100 do
begin
Case i1 of
1:a1[i2]:='';
2:a2[i2]:='';
3:a3[i2]:='';
4:a4[i2]:='';
End;
end;
end;
end; Thank
|
|
andersonhsieh
版主 發表：33 回覆：531 積分：439 註冊：2002-06-10 發送簡訊給我 |
引言: 有一個問題想請教大家 程式如下,不曉得是否有方法將case處改成以尋找對應方式撰寫 Procedure TForm1.aa; var i1,i2:Integer; a1,a2,a3,a4:array [1..100] of string; begin for i1:=1 to 4 do begin for i2:=1 to 100 do begin Case i1 of 1:a1[i2]:=''; 2:a2[i2]:=''; 3:a3[i2]:=''; 4:a4[i2]:=''; End; end; end; end; Thank
------
@@~~飛翔在天際的精靈~~@@ |
發表時間：2002-11-12 23:31:05
IP:203.204.xxx.xxx 未訂閱
系統時間：2024-05-08 16:18:59
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |