結束程式時會Delay好久??? |
|
缺席
|
|
darnell
版主   發表：25 回覆：103 積分：145 註冊：2003-03-04 發送簡訊給我 |
為什麼有時候在F9(Run)後要退出執行Self.Close時都要等上好一陣子才會回到Coding的模式...是因為物件的記憶體沒有釋放完畢嗎?常常發生在使用Memo載入文字檔後要離開的時候,可是我在Close前也有加入memLoad.Free也是沒用耶??不知道是什麼原因呢??
XMLDocument1.Active:=False;
XMLDocument1.XML.Text:='';
XMLDocument1.Active:=True;
mydoc:=XMLDocument1.DOMDocument;
myroot:=mydoc.appendChild(mydoc.createElement('root'));
for i:=0 to memLoad.Lines.Count-1 do begin
if AnsiStartsText('B',memLoad.Lines.Strings[i]) And (blnNext=False) then begin
mynode:=myroot.appendChild(mydoc.createElement('Row'));
blnNext:=True;
end else if AnsiStartsText('B',memLoad.Lines.Strings[i]) And (blnNext=True) then begin
blnNext:=False;
end;//if Ansi
if blnNext then begin
for j:=0 to lbxGridDefine.Count-1 do begin
if SameText(lbxGridDefine.Items.Strings[j],System.Copy(memLoad.Lines.Strings[i],1,5)) then begin
mychild:=mynode.appendChild(mydoc.createElement(lbxGridDefine.Items.Strings[j]));
mychild.appendChild(mydoc.createTextNode(System.Copy(memLoad.Lines.Strings[i],6,Length(memLoad.Lines.Strings[i]))));
end;//if SameText
end;//for j
end;//if
end;//for i
memShow.Lines.Text:=FormatXMLData(XMLDocument1.XML.Text);
XMLDocument1.SaveToFile('c:\zzzzz.xml');
XMLDocument1.Free;
上面這段是我建立XML Tree的程式,也會發生這樣的問題??請教不知道問題都發生在哪?? <==思想的極致就是虛無==>
|
|
stonys
初階會員 發表：64 回覆：111 積分：38 註冊：2002-09-28 發送簡訊給我 |
|
|
darnell
版主 發表：25 回覆：103 積分：145 註冊：2003-03-04 發送簡訊給我 |
發表時間：2003-10-31 14:31:14
IP:61.219.xxx.xxx 未訂閱
系統時間：2024-06-02 3:31:04
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |