全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:2342
推到 Plurk!
推到 Facebook!

動態array of class可以用constructor做初始值設定嗎?

答題得分者是:AJ
City
一般會員


發表:3
回覆:1
積分:0
註冊:2006-10-02

發送簡訊給我
#1 引用回覆 回覆 發表時間:2006-10-02 02:22:55 IP:218.175.xxx.xxx 訂閱
1.動機:想要用一個每個array中的element都有兩個資料可以記錄,一個是data記錄資料,一個是count記錄次數,用來計算data出現的次數

type
TData = class;
public
m_data;
m_count;
constructor create();
end;

var
MyData = array of TData;

constructor TData.create()
begin
m_data := 'N';
m_count := 0;
end;

procedure xxxx()
begin
//計算array_size

SetLength (MyData, array_size);

//初始化array中所有element

//處理array

//釋放記憶體

end;

想請問各位先進幾個問題:
1. 如何動態決定array大小後,array的每個element的m_data及m_count就已經設定好初始值了。透過廻圈應該是可以設定,只是
在c 時用 TData *p = new TData[arrzy_size],如果有constructor的話,一new出來後每個element裡的m_data及m_count就已經是照constructor裡設定好的
值了,但delphi這邊我用了constructor好像沒作用,不知道該怎麼使用才對,請問一下大家。

2. 釋收記憶體的時候只要做 MyData := nil; 這樣就可以了嗎?還是應該怎麼做?因為procedure會被call多次,每次的array_size
都會不一樣,怕如果沒有釋放記憶體的話會一直把記憶體吃掉了。而且每次的array_size大小不同,想說應該要先釋放掉後再重新
要一個不同大小的空間。


開發工具 delphi 7

還請各位先進指點一下,先謝謝大家了。
AJ
一般會員


發表:9
回覆:19
積分:20
註冊:2003-06-27

發送簡訊給我
#2 引用回覆 回覆 發表時間:2006-10-02 16:55:47 IP:220.132.xxx.xxx 未訂閱

小弟會這樣做,參考參考:

type
TData = class
public
m_data: string;
m_count: integer;
constructor create();
end;

var
MyData : array of TData;

constructor TData.create()
begin
m_data := 'N';
m_count := 0;
end;

procedure xxxx()

var cnt: integer;
begin
//計算array_size

SetLength (MyData, array_size);

//初始化array中所有element

for cnt:=0 to array_size-1 do

MyData[cnt]:= TData.create(); //create的同時應該就會初始化

//處理array

//釋放記憶體

for cnt:=0 to array_size-1 do

begin

MyData[cnt].free;

MyData[cnt]:= nil;

end;

end;

City
一般會員


發表:3
回覆:1
積分:0
註冊:2006-10-02

發送簡訊給我
#3 引用回覆 回覆 發表時間:2006-10-03 00:25:59 IP:220.142.xxx.xxx 訂閱
謝謝AJ大大的指點
系統時間:2017-11-19 18:13:05
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!