關於陣列使用 |
尚未結案
|
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 >>< face="Verdana, Arial, Helvetica"> 何不改成如下的方式 Procedure TForm1.aa; var i1,i2:Integer; a:array [1..4, 1..100] of string; begin for i1:=1 to 4 do begin for i2:=1 to 100 do begin a[i1, i2]:=''; End; end; end; end; @@~~飛翔在天際的精靈~~@@
------
@@~~飛翔在天際的精靈~~@@ |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |