Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö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:


Ïà¹ØÎÊ´ð£º

PythonÖеÄUnicodeÔÚDelphiÈçºÎ»¹Ô­³ÉGb2312£¿

ÒÑÖªPython ÖУº
s = unicode("²âÊÔ", "gb2312")
s = u'\u6d4b\u8bd5'
print s
²âÊÔ

ÔÚDelphiÀïÃæÈçºÎ½«\u6d4b\u8bd5ÕâÑùµÄ»¹Ô­³ÉGb2312µÄºº×ÖÄØ£¿
ÕÒµ½¸ö·½·¨
......

ÈçºÎ½«XMLÊý¾Ý´æÈëACCESSÊý¾Ý¿â

ÇëÎʸ÷λ´óʦ£¬ÎÒÏÖÔÚÐèÒª½«XMLµÄÊý¾ÝʵʱµÄ´æÈëµ½Êý¾Ý¿âÖУ¬ÎÒÊÇÓÃasp±àµÄ³ÌÐò£¬´óÁ¿Ãǰïæ·ÖÎö һϣ¡£¡£¡
ÏÂÃæÊÇÎÒµÄXMLÎļþ´úÂë
XML code:

<?xml version="1.0" encoding="utf-8"? ......

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

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

100·Ö£¡¹ØÓÚvbµ÷ÓÃdelphi±àдµÄdllµÄÎÊÌ⣬¼±£¡£¡£¡

¸÷λ¸ßÊָϿì°ï°ïæ¡£
ÏÖÔÚÓÐÒ»¸ödelphiдµÄdll£¬º¯ÊýÖÐÓÐPIntegerµÄ·µ»Ø²ÎÊý£¬ÔÚdelphiÖпÉÒÔÕý³£µ÷Ó㬵«ÊÇÎÒÔÚvbÀïдµÄʱºò¾Í²»ÖªµÀ¸ÃÔõôÀ´µ÷ÓÃÁË¡£
Çë¿´´úÂë
ÒÔÏÂÊÇdelphiÖеĺ¯Êý¶¨ÒåºÍµ÷ÓôúÂ룬ÄÜÕý³£ÔËÐ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ