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;
學而時習之不亦樂乎!
|
發表時間：2004-05-01 10:13:39
IP:61.218.xxx.xxx 未訂閱
系統時間：2024-05-15 10:27:26
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |