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ÖУ¬×é¼þ£¬ÎÒÃÇ¿ÉÒÔ½«ËüÀí½âΪһ¸ö¸öµÄ·â×°ºÃÁ˵ŦÄܶÔÏó¿â£¬Ê¹ÓÃÕâ¸ö¿â£¬¾ÍÖ»Óüòµ¥µÄ¼¸¾ä´úÂ룬ÉõÖÁ½ö½ö¼òµ¥µÄÉèÖü¸¸öÊôÐÔ¾ÍÄÜʵÏÖijЩ
¹¦ÄÜ£¬ÎÒÃÇ¿ÉÒÔ½«×é¼þÏëÏó³ÉÈÕ³£Éú»îÖÐʹÓõÄijЩ ......
ÉÏһƪ£¬½éÉÜÁË×é¼þ¿ª·¢µÄÒ»°ã¸ÅÊö£¬ÒÔ¼°×é¼þÀà²ã´Î½á¹¹µÄ¸÷¸öÀàµÄ´óÖÂÐÅÏ¢£¡ÏÖÔھͿªÊ¼Í¨¹ýʵÀý½øÐÐÀ´¼òµ¥µÄ½²ÊöÒ»ÏÂÒ»°ã×é¼þµÄ¿ª·¢¹ý³Ì£¡ÎÒÕâÀïÏȲÉÓÃ×î
»ù±¾µÄ·½Ê½À´´´½¨Ò»¸ö×é¼þ£¡Ò²¾ÍÊÇʹÓÃDelphi×Ô¼ºµÄ×é¼þ¿ª·¢Ïòµ¼À´½¨Á¢Ò»¸öеÄ×é¼þ¡£ÔÚÕâÀÎÒÒÔÀ©³äTEditΪÀý½øÐн²½â¡£
ÄÇôÊ×ÏÈ£¬Òª½éÉܵľÍÊÇ ......
Ã÷Ìì¾ÍÊÇÎåÒ»½ÚÁË£¬ÐÁ¿àÁ˺ü¸¸öÔ£¬½è´Ë»ú»áÓ¦¸Ã¾¡Çé·ÅËÉÒ»·¬¡£¿ÉÊÇÏëµ½BlogºÃ¾ÃûÓÐдÎÄÕ£¬ËƺõÈ±Ð©Ê²Ã´ËÆµÄ¡£Õ⼸¸öÔÂÀ´ÔÚÏîÄ¿ÖÐÓÖÔö³¤ÁËÐí¶à¾Ñ飬ѧµ½Ðí¶àʵ¼ÊÓ¦ÓõÄ֪ʶ¡£²»Èç°ÑһЩ±È½ÏÓÐÓõļǼÏÂÀ´£¬¹©ÅóÓÑÃDzο¼¿ÉºÃ¡£
ÎÒÏëµ½DelphiµÄʼþ£¬ÄÇ¿ÉÕæÊǸö·½±ãµÄ¶«Î÷£¬³õѧÕßÔÚ´°ÌåÉÏÀ¼¸¸ö¿ ......
unit MyADO;
interface
uses
SysUtils, Classes,ADODB,DB,Variants,StdCtrls,Dialogs;
type
TMyADO = class(TComponent)
private
Connection: TADOConnection;
Query: TADOQuery;
Table: TADOTable;
FConnectio ......
×ªÔØ×Ô£ºhttp://www.cnblogs.com/jdmei520/archive/2009/06/17/1505053.html
Webservice¼¼ÊõµÄ³öÏÖ½«¸÷ÖÖ¿ª·¢¼¼ÊõºÍÓïÑÔÍêÈ«µÄÈÚºÏÁË£¬ÏÂÃæ¾ÍÕâÖÖÈÚºÏÔÚC#ºÍdelphiÖ®¼äµÄ½»»¥×öÒ»´ÎÈ«ÃæµÄÌåÏÖ
1.ʹÓÃC#´´½¨Ò»¸öWebservice·þÎñ¡£
ʹÓÃvs2005µÄÄ£°å´´½¨C#µÄwebservice·Ç³£ÈÝÒס£ÔÎļþÈçÏÂ:
[WebService(Namespace  ......