ÕâЩ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
Ïà¹ØÎÊ´ð£º
ÎÒ°²×°µÄÊÇÆóÒµ°æ¡£¡£¡£
ÎÒÎÊÏ£¬ CTRL+×ó¼ü Äܲ鿴 windows.pas Âð£¿
¾ÍÊÇ ½Ó¿ÚÀïµÄwindows¡£
µ±È»¿ÉÒÔ,CTRL+×ó¼üµã»÷Interface²¿·ÖµÄWindows¾Í¿ÉÒÔÁË
ɶɶÆóÒµ°æ£¿È¥°²×°Ä¿Â¼¿´¿´libÎļþ¼ÐÏÂÓÐÃ»Ó ......
ÎÒÏÖÔÚÒª¶Áȡһ¸öTXTÎļþ ÀïÃæ ´æ·ÅµÄ¸ñʽÊÇÕâÑù´ø¸ñʽµÄ
Êý¾Ý1----Êý¾Ý2----Êý¾Ý3----Êý¾Ý4
ÎÒÏëʵÏÖ·Ö±ð¶ÁÈ¡ Êý¾Ý1 Êý¾Ý2 Êý¾Ý3 Êý¾Ý4
ÇëÎÊdelphiÏÂÓÐʲôºÃµÄ·½·¨Â𣿠......
type
myclass=class //¶¨ÒåÒ»¸öÀà
procedure mypro (var x:integer);//´´½¨¹ý³Ì·½·¨
function myfun (var x:integer):integer;//´´½¨º¯Êý·½·¨
end;
function myclass.myfun(var x:integer) ......
ÔÚ³ÌÐòÖУ¬ÎÒÒ»°ãʹÓÃ
try
...
except
...
end
À´Ê¹Ò»Ð©Êý¾Ý¿â·½ÃæµÄ´íÎó²»µ¯³öÀ´¡£¡£¡£
ÔÚ±àÒëºÃµÄ³ÌÐò£¬µ¥¶ÀÍÑÀëIDEÔËÐÐʱ£¬ÊDz»»áÓдíÎ󱨳öµÄ¡£
µ«ÊÇÔÚIDEϰ´F9ÔËÐÐʱ»á±¨ ......
֮ǰ»ù±¾ÊÇÓÃÁ½²ã×ö¹ýЩСµÄÉè¼Æ£¬ÏÖÔÚÏëѧÈý²ã¡£²»ÖªµÀÈçºÎÈëÊÖ£¬Ó¦ÎªºÃÏñ֮ǰʵÏÖµÄÏë·¨¶¼²»Ò»Ñù¡£
ʵÔÚÀ§»ó¡£Çë¸÷¸ö¸øµãÒâ¼û¡£²»¹»·Ö¿ÉÒÔÔÚ¼Ó
ÄãÒª×öÄÄ·½ÃæÈý²ã
erp,oa
ÊÇʹÓÃwebservice»¹ÊÇcom+£¬
......