Loop讓記憶體不足的困擾 |
答題得分者是:jest0024
|
pprayer
高階會員 發表:35 回覆:185 積分:174 註冊:2002-03-13 發送簡訊給我 |
|
jest0024
高階會員 發表:11 回覆:310 積分:224 註冊:2002-11-24 發送簡訊給我 |
|
nnn0918k
一般會員 發表:12 回覆:33 積分:14 註冊:2003-05-12 發送簡訊給我 |
|
pprayer
高階會員 發表:35 回覆:185 積分:174 註冊:2002-03-13 發送簡訊給我 |
|
jest0024
高階會員 發表:11 回覆:310 積分:224 註冊:2002-11-24 發送簡訊給我 |
引言: 最近碰到的是在某段中不停用FindFist FindNext FindClose 其他產生instance的動作則沒有。 不知道上面提到的三個function有沒有吃記憶體的? 但findclose不是也應該會能釋放記憶體嘛? 還是我應該每跑一圈就把TSearchRec釋放,然後重新建立一個使用工作管理員並沒所謂的吃記憶體現像!? procedure Test var sr: TSearchRec; FileAttrs: Integer; i:Integer; begin for i:=0 to 1000 do begin FileAttrs:=faAnyFile; if FindFirst('D:\*.*', FileAttrs, sr) = 0 then begin repeat // ListBox1.Items.Add(sr.Name) //<--這行加了就會使用掉記憶體了!! until FindNext(sr) <> 0; FindClose(sr); end; end; end;學而時習之不亦樂乎! |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |