關於XML是NULL的問題 |
答題得分者是:smallfox
|
chjunsen
一般會員 發表:38 回覆:15 積分:10 註冊:2006-10-25 發送簡訊給我 |
這是我的XML的格式
<?xml version="1.0" encoding="big5"?> 然 我的程式 SHOWMESSAGE(XML.ChildNodes[1].ChildNodes[2].NodeValue); 這樣會發生問題錯誤訊息 COULD NOT CONVERT VARIANT OF TYP(NULL) INTO TYPE(STRING) [code delphi] FUNCTION TfrmMAIN.MODIFY_MSG(SIV_XML:STRING;VAR SRV_PAR1,SRV_PAR2:STRING):STRING; VAR XML:IXMLDocument; BEGIN[/code] XML := TXMLDocument.Create(Self); MO_XML.CLEAR; MO_XML.Lines.ADD('<?xml version="1.0" encoding="big5"?>'); MO_XML.Lines.ADD(SIV_XML); frmMain.appendLog('EMG19:' SIV_XML); MO_XML.Lines.SAVETOFILE('C:\RPT\1.XML'); XML.LoadFromFile('C:\RPT\1.XML'); RESULT:=XML.ChildNodes[1].ChildNodes[0].NodeValue; SRV_PAR1:=XML.ChildNodes[1].ChildNodes[1].NodeValue; { IF XML.ChildNodes[1].ChildNodes[2].NodeValue<> NULL THEN BEGIN SRV_PAR2:=XML.ChildNodes[1].ChildNodes[2].NodeValue; END ELSE BEGIN SRV_PAR2:='NO_MSG'; END; } { IF XML.ChildNodes[1].ChildNodes[2].NodeValue isnull THEN BEGIN SHOWMESSAGe('有進來'); END; } SHOWMESSAGE(XML.ChildNodes[1].ChildNodes[2].NodeValue); SHOWMESSAGE(XML.ChildNodes[1].ChildNodes[2].NodeValue); END; |
smallfox
高階會員 發表:2 回覆:113 積分:128 註冊:2003-02-19 發送簡訊給我 |
|
chjunsen
一般會員 發表:38 回覆:15 積分:10 註冊:2006-10-25 發送簡訊給我 |
|
smallfox
高階會員 發表:2 回覆:113 積分:128 註冊:2003-02-19 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |