Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö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 ÖÐMd5»ñÈ¡£¨Indy 9£©







ÔÚDelphi×Ô´øµÄIndy¿Ø¼þÖÐÆäʵÊÇÌṩÁËMD2,MD4,MD5¶ÔÏóµÄ£¬ÎÒÃÇ¿ÉÒÔÖ±½ÓʹÓÃËüÃÇÀ´Íê³ÉMD5µÄÇ©ÃûËã·¨¡£¶ø²»ÐèÒªÔÙÈ¥ÕÒÆäËüµÄ
DLL»òÊÇPasÁË¡£
ÔÚUsesµ¥ÔªÖÐÒýÓà IdHashMessageDigest,IdGlobal, IdHash µ¥Ôª£¬ÔÙдÈçÏ´úÂë¼´¿ÉÒÔ´ïµ½MD5µÄʵÏÖ¡£
ʾÀý´úÂë
procedure TForm1.Button1Click(Sen ......

DelphiµÄHashTable

{-----------------------------------------------------------------------------
 Unit Name: HashTable
 Author:    LiuHeng
 Date:      2010-04-13
 Purpose:   ·â×°DelphiµÄHashTable
 History:
------------------------------- ......

Ò»¸ö·½±ãÓÐÓõÄDelphiÊý¾Ý¿â²Ù×÷Àà(ת)

unit MyADO;
interface
uses
SysUtils, Classes,ADODB,DB,Variants,StdCtrls,Dialogs;
type
TMyADO = class(TComponent)
    private
    Connection: TADOConnection;
    Query: TADOQuery;
    Table: TADOTable;
    FConnectio ......

delphi ½Å±¾ÒýÇæ±È½Ï

TMS Scripter£ºÖ§³ÖPascalºÍVBScriptÁ½ÖÖÓï·¨¡£ÓŵãÊÇÎĵµÆëÈ«¡¢Àý×ÓÆëÈ«£¬½Å±¾¿ÉÖ±½ÓÖ§³ÖDLL£¬¹Ù·½»¹ÌṩÁ˷ḻµÄIDE Debug¹¤¾ß¡¢µ¥Ôªµ¼³öº¯Êý¹¤¾ßµÈ£¬È±µãÊDZàÒëÔËÐнÏÂý¡£for ¿ÕÑ­»·1000Íò´Î£¬ÐèÒª10ÃëÖÓÒÔÉÏ¡£TMS ScripterÊÇÉÌÒµ¹²ÏíÈí¼þ¡£
       FastScript£ºÓùýFastReport±¨±íµÄÍ¬Ñ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ