ÕâЩdelphi ´úÂëÔõôת¸ø BCB
ÎÒ¶Ôdelphi²»´óÊìϤ£¬ µ«ÍøÂçÉÏdelphiµÄ´úÂë¶à£¬BCBµÄÉÙ£¬ÏëÕÕ×ÅdelphiµÄ´úÂë¸Ä³ÆBCBµÄ£¬µ«Óöµ½Ò»Ð©¶îÎÊÌâ²»ÖªÔõôתΪ£Â£Ã£Â¡£¡¡ÏÂÃæÊÇժ¼һЩ¼ò¶ÌµÄ¡£
(1)
type
IXMLDOMImplementation = interface;
IXMLDOMImplementationDisp = dispinterface;
(2)
IXMLDOMNamedNodeMapDisp = dispinterface
['{2933BF83-7B36-11D2-B20E-00C04F983E60}']
function removeNamedItem(const name: WideString): IXMLDOMNode; dispid 85;
property item[index: Integer]: IXMLDOMNode readonly dispid 0; default;
property Value:Integer WriteOnly Write fValue Stored True nodefault;
property MyImplClass: TMyImplClass read FMyImplClass implements IMyInterface; //ÆäÖÐ typeIMyInterface = interface
end;
(3)
IXMLDOMNode = interface(IDispatch)
['{2933BF80-7B36-11D2-B20E-00C04F983E60}']
//....
end;
IID_IXMLDOMImplementation: TGUID = '{2933BF8F-7B36-11D2-B20E-00C04F983E60}';
(4)
function MessageBox(HWnd: Integer; Text, Caption: PChar; Flags: Integer): Integer; external 'user32.dll' name
'MessageBoxA'; message ID_REFRESH ;abstract; Assembler; cdecl; Dynam
Ïà¹ØÎÊ´ð£º
ÈçÌâ¡£
¸Ð¾õÈçºÎ£¿½»Á÷Ï¡£
ûÓÐÑо¿¹ý£¬ºÇºÇ
ÓÐɶÑо¿Í·£¿
ÄǸö¶«Î÷£¬ÊǸö¼¦Àߣ¬£¬Ã»ÓÐʲôÒâ˼£¬·¢ÏÖ£¡£¡
ÓÃÀ´×öB/S¼Ü¹¹µÄMISϵͳµÄ»°Ó¦¸Ã¿ÉÒÔÌá¸ß½çÃæ¿ª·¢µÄЧÂʰɣ¿
ÒòΪ²»ÊìϤDelphi £ ......
Delphi ÏñÍö¹úµÄÄÏËΣ¬ÊÔÎÊÕâÓïÑÔ»¹ÓÐǰ;Âð£¿
Win32¿ª·¢²»ÈçC#£»
ÃæÏñ¶ÔÏñ¿ª·¢²»ÈçJAVA£»
ϵͳ¿ª·¢²»ÈçVC++6.0£»
ÄÜÓÃÐÔ²»ÈçVB6.0£»
²»Ö§³ÖWeb¿ª·¢¡£¡£¡£
³ö¸öDelphi 2010Ãâ·ÑÒ»Äê»áÓÐÈËÓÃÂð£¿
......
ÎÒÏÖÔÚÒª¶Áȡһ¸öTXTÎļþ ÀïÃæ ´æ·ÅµÄ¸ñʽÊÇÕâÑù´ø¸ñʽµÄ
Êý¾Ý1----Êý¾Ý2----Êý¾Ý3----Êý¾Ý4
ÎÒÏëʵÏÖ·Ö±ð¶ÁÈ¡ Êý¾Ý1 Êý¾Ý2 Êý¾Ý3 Êý¾Ý4
ÇëÎÊdelphiÏÂÓÐʲôºÃµÄ·½·¨Â𣿠......
Åöµ½Ò»¸öÆæ¹ÖµÄÎÊÌ⣺
ÎÒ´Ó·þÎñ¶ËÈ¡µ½Ò»¸ö×Ö·û´®±£´æÔÚ±äÁ¿SÖУ¬ÎÒÒªÓÃSÆ´³ö×Ô¼ºÒªµÄÒ»¸ö×Ö·û´®£¬Èç
<Name>S </name>;µ«ÊÇÏÖÔÚ½á¹ûÏÔʾ³öÀ´ÓÐʱºò»á±ä³ÉÕâÑù£º <Name>S?/name>;
ºÃÏñ ......
type
myclass=class //¶¨ÒåÒ»¸öÀà
procedure mypro (var x:integer);//´´½¨¹ý³Ì·½·¨
function myfun (var x:integer):integer;//´´½¨º¯Êý·½·¨
end;
function myclass.myfun(var x:integer) ......