Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

ÔÚDELPHIÖвÙ×÷XMLµÄÎÊÌâ..

´úÂëÈçÏÂ:
procedure TForm3.FormCreate(Sender: TObject);
var
path,name:string;
i:integer;
list:IXMLNodeList;
node:IXMLNode;
begin
path:=ExtractFilePath(Application.ExeName)+'conf4.xml';
FXMLDoc:=TXMLDocument.Create(nil);
  FXMLDoc.LoadfromFile(path);
  FXMLDoc.Active:=true;
  node:=FXMLDoc.DocumentElement;
  list:=node.ChildNodes;
  for i:=0 to list.Count-1 do
  begin
      if node.ChildNodes[i].Attributes['name']='lj' then
      begin
          name:=node.ChildNodes[i].ChildNodes['server'].Text;
      end;
  end;
end;

Õâ¶Î´úÂëÔÚFormCreateÖÐÔËÐлᱨÒÔÏ´íÎó[The system cannot locate the object specified]
Èç¹û·ÅÔÚº¯ÊýÖÐÔËÐоÍûÎÊÌâ.. ÐÂÊÖ..ÆÚ´ý½â¾ö..
¿´¿´ÊÇÄǾ䱨´í

´úÂë¿´ÆðÀ´Ã»ÓÐʲôÎÊÌ⣬Äã·ÅÔÚFormshowʼþ¿´¿´

FXMLDoc.LoadfromFile(path);//´íµÄÊÇÕâ¾ä..




jf

jf


FXMLDoc:=TXMLDocument.Create(nil);
¸ÄΪ
FXMLDoc:=TXMLDocument.Create(Self);

ÊÔÒ»ÏÂ

ÄãÊÔ×ÅÖØÆôһϼÆËã»ú

Delphi(Pascal) code:
function SaveToNewXMLDocument: IXMLDocument;
var
xml:


Ïà¹ØÎÊ´ð£º

DELPHIÕâÖÖÇé¿öÔõô°ì£¿ - Delphi / Windows SDK/API

¾ÍÊÇÒ»¸ö·þÎñ¶ËºÍÒ»¸ö¿Í»§¶Ë£¬Àï±ßÓÐһЩ¹²Óõ¥Ôª £¬ÎÒÔÚ ¹¤³ÌµÄSEARCH PATHÀïÉèÖõÄ·¾¶£¬
Àï±ßÓиö½á¹¹Ì壬ÎÒÔÚ·þÎñ¶Ë´ò¿ª£¬¼ÓÁ˳ÉÔ±£¬µ«ÊÇÎÒÔÚ¿Í»§¶ËÆäËûµ¥Ôª·ÃÎʲ»µ½ÎÒмӵģ¬ÎÒÔÚ¿Í»§¶Ë´ò¿ªÄǸöµ¥Ôª£¬È·Êµ¼ÓÁ ......

delphi¶¯Ì¬Êý×éÈçºÎÈ¥µôÒ»¸öÔªËØ

procedure DynArrayDelete(var A;elSize:Longint;index,Count:Integer);
var
len,MaxDelete:Integer;
P:PLongint; //4 ¸ö×ֽڵij¤ÕûÐÎÖ¸Õë
begin
P:=PLongint(A);// È¡µÄ A µÄ ......

Çë½ÌÏ£¬ÓÃDELPHI×öSOHUµÄ - Delphi / ·Ç¼¼ÊõÇø

Ò»°ã¶¼ÊÇÔõô½Ó»îµÄ£¿
ÊÕÈëÔõôÑù
sohu£¿soho£¿

sohu ¿ÉÄÜÊÇsmall office house unit
С°ì¹«ÊÒ£¬°Ñ¼Ò±ä³Éµ¥Î»¡£

È¥Íþ¿ÍÍø°¡,ºÜ¶à¸öÄØ,»¹ÓÐÍâ°üµÄÍøÕ¾

ѧϰѧϰ¡£

ÏÖÔÚDelphi×ö¶«Î÷²»ÐÐÁË,´¦ÓÚÌÔÌ­×´ ......

¹ØÓÚ±ÜÃâdelphi°æÈ¨»òÕßÊÕÂÉʦº¯µÄ·½°¸¡£

×î½ü»»Á˼ҹ«Ë¾£¬ÓôÃÆµÄÊǹØÓÚDelphiµÄÎÊÌ⣬¹«Ë¾Ö®Ç°ÓõÄÒ²ÊÇD°æDelphi7ÆóÒµ°æµÄ¡£ºóÀ´±»ËÍÁËÂÉʺ¯ÒԺ󣬾ÍÇ¿ÖÆ¸ÄÓÃDelphi7¸öÈ˰棬¾ç˵Õâ¸ö°æ±¾ÊÇÃâ·Ñ°æ£¬»òÕß˵ºÜ±ãÒË£¬Èç¹û²é³öÀ´£¬¾ÍÂò¸öºÃÁË¡£ÕâÏ¿ɺ᣿àÁËÎ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ