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

Delphiº¯ÊýºÍ¹ý³Ì

     ¹ý³ÌÎÞ·µ»ØÖµ£¬º¯ÊýÓзµ»ØÖµ¡£
     procedure MyProc(m,n : Integer; o : String; p : Single = 2.5; q : String = 'Delphi');
     ÈçÉÏÀýËùʾ£¬¹ý³ÌÉùÃ÷ºÍ¶¨ÒåÖУ¬¶à¸ö²ÎÊýÊÇÓ÷ֺŸô¿ªµÄ£¬µ«ÔÚµ÷ÓÃʱÊÇÓöººÅ¸ô¿ªµÄ ¡£eg£º
     MyProc(3, 4, 'me', 3.14);
     ÉÏÀýÖÐÊ¡ÂÔÁË×îºóÒ»¸ö²ÎÊý£¬µ±Ö¸¶¨Ò»¸ö²ÎÊýµÄȱʡֵºó£¬ÆäºóµÄËùÓвÎÊý¶¼±ØÐëÖ¸¶¨Ò»¸öȱʡֵ£¬ÈçÉÏÃæµÄÉùÃ÷ÖеIJÎÊý p ºÍ q ¡£»òÕß˵£¬Ó¦¸Ã°ÑËùÓÐÖ¸¶¨Ä¬ÈÏÖµµÄ²ÎÊý·ÅÔÚ²ÎÊýÁбíµÄºóÃæ¡£
     Delphiº¯ÊýµÄÖµÓÐÁ½ÖÖ·½Ê½·µ»Ø£¬µÚÒ»£º°ÑÖµ¸³¸øº¯ÊýÃû£»µÚ¶þ£º°ÑÖµ¸³¸øResult¡£¶øResultʵ¼ÊÉÏÊǺ¯ÊýÃûµÄÒ»¸ö±ðÃû£¬Í¬Ê±ËüÒ²ÊÇÿһ¸öº¯ÊýÄÚ²¿×Ô¶¯Òþº¬µÄ¾Ö²¿±äÁ¿£¬ÆäÀàÐ͸úº¯ÊýµÄ·µ»ØÀàÐÍÏàͬ¡£
     Ò»°ãÇé¿öÏ£¬Ê¹ÓÃResult·½Ê½·µ»Øº¯ÊýÖµ£¬¶ø²»Óú¯ÊýÃûÀ´·µ»Ø¡£ÒòΪÔÚµ÷ÓÃÒ»¸öÎÞ²ÎÊýµÄº¯Êýʱֻдº¯ÊýÃû¾Í¿ÉÒÔµ÷Ó㬲»ÏñCÓïÑÔµÈÆäËüÓïÑÔÒ»Ñù¼´Ê¹ÎÞ²ÎÊýÒ²ÒªÔÚº¯ÊýÃûºó¼ÓÉÏÀ¨ºÅ£¬ÕâÑùºÜÈÝÒײ»Ð¡ÐľÍд³ÉµÝ¹éµ÷Ó㬽øÈëËÀÑ­»·¡£ÁíÍ⣬ÓÐʱºòÔÚcoding¹ý³ÌÖпÉÄÜÐèÒªÐÞ¸ÄÒѾ­¶¨Ïµĺ¯ÊýÃû£¬´ËʱÈç¹ûÓÃResult·µ»Øº¯ÊýÖµµÄ»°¾Í²»ÐèÒªÔÙÐ޸ĺ¯ÊýÌåÁË¡£
function Add:Integer;
var
  i:Integer;
begin
  Result := 0;
  for i := 1 to 100 do
    Add := Add + i;    //ËÀÑ­»·
  ShowMessage(IntToStr(Result););
end;
     ÐèҪעÒâµÄÊÇ£¬DelphiºÍÆäËûһЩÓïÑÔ²»Í¬£¬ËüµÄº¯ÊýÔÚ·µ»ØÖµµÄʱºò²¢²»ÖÐÖ¹º¯Êý±¾Éí£¬Ëü×Ü»áÖ´Ðе½º¯ÊýµÄ×îºóÒ»ÌõÓï¾ä¡£Èç¹ûÐèÒªÌáǰÍ˳ö£¬¿ÉÒÔÓà Exit£»Óï¾ä¡£


Ïà¹ØÎĵµ£º

Delphi×é¼þ¿ª·¢½Ì³ÌÖ¸ÄÏ£¨1£©×é¼þ¿ª·¢¸ÅÊö

ÔÚ¿ª½²Ö®Ç°£¬Ê×ÏÈ£¬ÎÒ¼ÙÉèÄãÁ˽âʲôÊÇÃæÏò¶ÔÏó£¬Ê²Ã´ÊÇÀà¡£Èç¹û²»Á˽âµÄ»°£¬½¨ÒéÏÈÈ¥Á˽âÒ»ÏÂÏà¹ØÖªÊ¶£¡
  
ÔÚDelphiÖУ¬×é¼þ£¬ÎÒÃÇ¿ÉÒÔ½«ËüÀí½âΪһ¸ö¸öµÄ·â×°ºÃÁ˵ŦÄܶÔÏó¿â£¬Ê¹ÓÃÕâ¸ö¿â£¬¾ÍÖ»Óüòµ¥µÄ¼¸¾ä´úÂ룬ÉõÖÁ½ö½ö¼òµ¥µÄÉèÖü¸¸öÊôÐÔ¾ÍÄÜʵÏÖijЩ
¹¦ÄÜ£¬ÎÒÃÇ¿ÉÒÔ½«×é¼þÏëÏó³ÉÈÕ³£Éú»îÖÐʹÓõÄijЩ ......

DelphiÖÐʵÏÖC++/JavaÀàËÆ¾²Ì¬±äÁ¿µÄ¹¦ÄÜ

ÔÚÍøÉÏ¿´µ½ºÜ¶àÈ˶¼ÔÚΪDelphiÊÇ·ñÖ§³ÖC++/JavaÖеľ²Ì¬±äÁ¿¼°¾²Ì¬·½·¨µÄ¹¦ÄܶøÀ§ÈÅ,ÆäʵÕâÔÚDelphiÖÐÊǺܼòµ¥µÄ.
¾²Ì¬·½·¨¾ÍÊÇʹÓÃClass Function. ¾²Ì¬±äÁ¿ÔòʹÓõ¥Ôª¾Ö²¿±äÁ¿À´ÊµÏÖ. ´úÂëÈçÏÂ:
//=========================================
// StaticVarTestU - ¶¨ÒåÁË¿ÉÒÔ¼ÆÊýµÄÀ࣬ͨ¹ýÀà·½·¨¼´¿É·ÃÎÊ´ËÀàµÄ¶ÔÏóÊý ......

DelPhiÏÂÓÃCDO·¢ËÍÓÊÏäʵÀý

Ïà¶ÔÓõÚÈý·½¿Ø¼þ£¬CDO·¢ËÍÓʼþ»¹ÊǺܼò½à·½±ãµÄ
×¢£ºCDONTSΪCDOµÄ×Ó¼¯£¬½öÖ§³ÖWinNT/Win2K£¬WinXPÒÔÉÏÇëÓÃCDO;
µ¥ÔªÒýÓÃComObj;
procedure TForm1.Button1Click(Sender: TObject);
var
VCDOMessage:oleVariant;
begin
  vCDOMessage:=CreateOleObject('CDO.Message');
  vcdomessage.from:='MR.F'+'< ......

Delphi ÖÐ FindWindow ºÍ FindWindowEx µÄÓï·¨ºÍÓ÷¨

 Delphi ÖÐ FindWindow ºÍ FindWindowEx µÄÓï·¨ºÍÓ÷¨
FindWindow(
lpClassName,        {´°¿ÚµÄÀàÃû}
lpWindowName: PChar {´°¿ÚµÄ±êÌâ}
): HWND;              {·µ»Ø´°¿ÚµÄ¾ä±ú; ʧ°Ü·µ»Ø 0}
//FindWin ......

DelphiʼþµÄ¹ã²¥


    Ã÷Ìì¾ÍÊÇÎåÒ»½ÚÁË£¬ÐÁ¿àÁ˺ü¸¸öÔ£¬½è´Ë»ú»áÓ¦¸Ã¾¡Çé·ÅËÉÒ»·¬¡£¿ÉÊÇÏëµ½BlogºÃ¾ÃûÓÐдÎÄÕ£¬ËƺõÈ±Ð©Ê²Ã´ËÆµÄ¡£Õ⼸¸öÔÂÀ´ÔÚÏîÄ¿ÖÐÓÖÔö³¤ÁËÐí¶à¾­Ñ飬ѧµ½Ðí¶àʵ¼ÊÓ¦ÓõÄ֪ʶ¡£²»Èç°ÑһЩ±È½ÏÓÐÓõļǼÏÂÀ´£¬¹©ÅóÓÑÃDzο¼¿ÉºÃ¡£
ÎÒÏëµ½DelphiµÄʼþ£¬ÄÇ¿ÉÕæÊǸö·½±ãµÄ¶«Î÷£¬³õѧÕßÔÚ´°ÌåÉÏÀ­¼¸¸ö¿ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ