如何定義一個合成陣列?? |
|
答題得分者是：Justmade
|
|
ivankuo
中階會員   發表：132 回覆：272 積分：95 註冊：2002-11-21 發送簡訊給我 |
|
|
Justmade
版主 發表：94 回覆：1934 積分：2030 註冊：2003-03-12 發送簡訊給我 |
Static :Type TMyVarArray = Array [1..10] of Variant; MyArray : TMyVarArray MyArray[1] := 12123; MyArray[2] := 'afdfe';Dynamic :Type TMyVarArray = Array of Variant; MyArray : TMyVarArray SetLength(MyArray,4); MyArray[0] := 12123; MyArray[1] := 'afdfe';VarArray :MyVarArray : Variant; MyVarArray := VarArrayOf([12123,'afdfe',245.45,Form.Color]); 發表人 - Justmade 於 2003/05/30 15:02:27 |
|
P.D.
版主  發表：603 回覆：4038 積分：3874 註冊：2006-10-31 發送簡訊給我 |
引言: 我想要定一個陣列可是元素有不同的型態,請問如何定義ㄋ??jsutmade 兄的做法是指這個陣列的型別不確定, 而我 還有另一種方式我常用的, 是指這個陣列擁有不同的元素型態 (因為你沒有說明清楚, 不知有沒有誤解你的意思)
Type
TmyArray = Array of Record
str: String;
int: Integer;
bol: boolean;
end; procedure TForm1.Button1Click(Sender: TObject);
var newAry: TmyArray;
begin
setLength(newAry,10);
newAry[0].str:= 'A';
newAry[0].int:= 1;
newAry[0].bol:= True;
newAry[1].str:= 'B';
newAry[1].int:= 2;
newAry[1].bol:= False;
.....
end;
發表人 - P.D. 於 2003/05/30 16:02:35
|
|
ivankuo
中階會員 發表：132 回覆：272 積分：95 註冊：2002-11-21 發送簡訊給我 |
|
|
ivankuo
中階會員 發表：132 回覆：272 積分：95 註冊：2002-11-21 發送簡訊給我 |
|
|
syntax
尊榮會員 發表：26 回覆：1139 積分：1258 註冊：2002-04-23 發送簡訊給我 |
|
|
ivankuo
中階會員 發表：132 回覆：272 積分：95 註冊：2002-11-21 發送簡訊給我 |
|
|
ivankuo
中階會員 發表：132 回覆：272 積分：95 註冊：2002-11-21 發送簡訊給我 |
|
|
pgdennis
資深會員 發表：41 回覆：526 積分：443 註冊：2002-05-23 發送簡訊給我 |
引言: 我知道array是元素的集合, 但是newAry[0]不是其中一個元素ㄇ?? 一個元素不是指向一個記憶體位置的資料, 那.str和.int和.bol 是又把此元素的記憶體位置指向另外三個記憶體位置ㄇ?? newAry[0].str:= 'A'; newAry[0].int:= 1; newAry[0].bol:= True;P.D兄的方法是宣告一堆由record所組成的array 而newAry[0]就是array中的第一個record 阿這個reocrd又有三個成員組成(str,int,nol) ..這樣的關係不知你瞭不瞭
------
星期一,二...無窮迴圈＠＠ |
|
pgdennis
資深會員 發表：41 回覆：526 積分：443 註冊：2002-05-23 發送簡訊給我 |
引言: 我知道array是元素的集合, 但是newAry[0]不是其中一個元素ㄇ?? 一個元素不是指向一個記憶體位置的資料, 那.str和.int和.bol 是又把此元素的記憶體位置指向另外三個記憶體位置ㄇ?? newAry[0].str:= 'A'; newAry[0].int:= 1; newAry[0].bol:= True;P.D兄的方法是宣告一堆由record所組成的array 而newAry[0]就是array中的第一個record 阿這個reocrd又有三個成員組成(str,int,nol) ..這樣的關係不知你瞭不瞭
------
星期一,二...無窮迴圈＠＠ |
|
ivankuo
中階會員 發表：132 回覆：272 積分：95 註冊：2002-11-21 發送簡訊給我 |
|
|
P.D.
版主 發表：603 回覆：4038 積分：3874 註冊：2006-10-31 發送簡訊給我 |
發表時間：2003-05-30 14:54:18
IP:61.221.xxx.xxx 未訂閱
系統時間：2024-05-05 18:49:42
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |