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

DELPHI²ÎÊý¼¸¸ö¸ÅÄîÉϵÄÇø±ð

 ÒýÓòÎÊý£º
ÒýÓòÎÊýÓÃvar¹Ø¼ü×Ö±êʾ
procedure DoubleTheValue (var Value: Integer);
begin
Value := Value * 2;
end;
ÔÚÕâÖÖÇé¿öÏ£¬²ÎÊý¼È°ÑÒ»¸öÖµ´«µÝ¸ø¹ý³Ì£¬ÓÖ°ÑÐÂÖµ·µ»Ø¸øµ÷Óùý³ÌµÄ´úÂë¡£µ±ÄãÖ´ÐÐÍêÒÔÏ´úÂëʱ£º
var
X: Integer;
begin
X := 10;
DoubleTheValue (X);
x±äÁ¿µÄÖµ±ä³ÉÁË20£¬ÒòΪ¹ý³Ìͨ¹ýÒýÓ÷ÃÎÊÁËXµÄԭʼ´æ´¢µ¥Ôª£¬Óɴ˸ıäÁËXµÄ³õʼֵ
 ÔÚC++ÖУ¬ ÒýÓÃÓÃ&±íʾ
ÖµµÃ×¢ÒâµÄÊÇ£º
Delphi 3Ôö¼ÓÁËÒ»ÖÖеIJÎÊý£ºout¡£out²ÎÊýûÓгõʼֵ£¬Ö»ÊÇÓÃÀ´·µ»ØÒ»¸öÖµ¡£out²ÎÊýÓ¦Ö»ÓÃÓÚCOM¹ý³ÌºÍº¯Êý£¬Ò»°ãÇé¿öÏÂ×îºÃʹÓøüÓÐЧµÄvar²ÎÊý¡£³ýÁËûÓгõʼֵÕâÒ»µãÖ®Í⣬out²ÎÊýÓëvar²ÎÊýÏàͬ¡£
³£Á¿²ÎÊý
ºÍC++Ò»Ñù£¬ÓÃCONST¹Ø¼ü×Ö±íʾ
function DoubleTheValue (const Value: Integer): Integer
±àÒëÆ÷»áÑ¡ÓÃÒ»ÖÖÓëÒýÓòÎÊýÏàËÆµÄ·½·¨±àÒë³£²Î£¨C++ÊõÓïÖеij£Á¿ÒýÓã©£¬µ«ÊÇ´Ó±íÃæÉÏ¿´³£²ÎÓÖÓëÖµ²ÎÏàËÆ£¬ÒòΪ³£²Î³õʼֵ²»ÊÜÀý³ÌµÄÓ°Ïì¡£
¿ª·ÅÊý×é²ÎÊý
ÓëCÓïÑÔ²»Í¬£¬Pascal º¯Êý¼°¹ý³ÌµÄ²ÎÊý¸öÊýÊÇÔ¤¶¨µÄ¡£Èç¹û²ÎÊý¸öÊýÔ¤ÏÈûÓÐÈ·¶¨£¬ÔòÐèҪͨ¹ý¿ª·ÅÊý×éÀ´ÊµÏÖ²ÎÊý´«µÝ¡£
Ò»¸ö¿ª·ÅÊý×é²ÎÊý¾ÍÊÇÒ»¸ö¹Ì¶¨ÀàÐÍ¿ª·ÅÊý×éµÄÔªËØ¡£ Ò²¾ÍÊÇ˵£¬²ÎÊýÀàÐÍÒѶ¨Ò壬µ«ÊÇÊý×éÖеÄÔªËØ¸öÊýÊÇδ֪Êý¡£
function Sum (const A: array of Integer): Integer;
ÀàÐͱ仯µÄ¿ª·ÅÊý×é²ÎÊý
³ýÁËÀàÐ͹̶¨µÄ¿ª·ÅÊý×éÍ⣬Delphi »¹ÔÊÐí¶¨ÒåÀàÐͱ仯µÄÉõÖÁÎÞÀàÐ͵Ŀª·ÅÊý×é¡£ÕâÖÖÌØÊâÀàÐ͵ÄÊý×éÔªËØ¿ÉËæÒâ±ä»¯£¬Äܷܺ½±ãµØÓÃ×÷´«µÝ²ÎÊý¡£
¼¼ÊõÉÏ£¬array of const ÀàÐ͵ÄÊý×é¾ÍÄÜʵÏְѲ»Í¬ÀàÐÍ¡¢²»Í¬¸öÊýÔªËØ×é³ÉµÄÊý×éÒ»ÏÂ×Ó´«µÝ¸øÀý³Ì
function Format (const Format: string; const Args: array of const): string;
N := 20;
S := 'Total:';
Label1.Caption := Format ('Total: %d', [N]);
Label2.Caption := Format ('Int: %d, Float: %f', [N, 12.4]);
Label3.Caption := Format ('%s %d', [S, N * 2]);
µ«ÎÒÃÇÍùÍù»áÓöµ½ÕâÑùµÄÎÊÌ⣺
ÔÚFUN£¨£©Öд«Èë var a: array of integer ²ÎÊýÖ®ºó
²»ÄÜÔÚº¯ÊýÀïSetLength£¨a£¬num£©;
ËùÒÔÎÒÃǰѲÎÊýÉèΪ¶¯Ì¬Êý×éÀàÐÍ
type
tarrayofinteger = array of integer;
procedure grow( var data: tarrayofinteger );
begin
setlength( data, length(data) ,   г¤¶È );
// ¶¯Ì¬Êý×é×÷Ϊ²ÎÊý¿ÉÒԸıäÊý×é´óС¡£
end;
²Î¿¼BLOG£º
http://hi.baidu.com


Ïà¹ØÎĵµ£º

Delphi¶àÏß³Ìѧϰ£¨7£©£ºÊ¼þEvent

EventʼþÓ÷¨ÓëMutex²î²»¶à£¬µ«Ëü¿ÉÒÔʹÓãºSetEvent£¨Æô¶¯ÔËÐУ©ResetEvent£¨ÔÝÍ£ÔËÐУ©¡¢PulseEvent£¨Ö´ÐÐÒ»´ÎºóÁ¢¼´ÔÝÍ££©¡£
       ÏÈ¿´Ò»Ï´´½¨º¯Êý£ºCreateEvent(
                   ......

Delphi¶àÏß³Ìѧϰ£¨9£©£º¶àÏß³ÌÊý¾Ý¿â²éѯ£¨ADO£©

ADO¶àÏß³ÌÊý¾Ý¿â²éѯͨ³£»á³öÏÖ3¸öÎÊÌ⣺
1¡¢CoInitialize ûÓе÷Óã¨CoInitialize was not called£©£»ËùÒÔ£¬ÔÚʹÓÃÈκÎdbGo¶ÔÏóǰ£¬±ØÐëÊÖ µ÷ÓÃCoInitializeºÍCoUninitialize¡£µ÷ÓÃCoInitializeʧ°Ü»á²úÉú"CoInitialize was not called"ÀýÍâ¡£
2¡¢»­²¼²»ÔÊÐí»æ»­£¨Canvas does not allow drawing£©£»ËùÒÔ£¬±ØÐëͨ¹ýSynch ......

delphi ±àдdllÎļþ

dllÎļþ¼ò½é£º
ËüÊÇDynamic Link Library µÄËõдÐÎʽ£¬DLL ÊÇÒ»¸ö°üº¬¿ÉÓɶà¸ö³ÌÐòͬʱʹÓõĴúÂëºÍÊý¾ÝµÄ¿â£¬DLL²»ÊÇ¿ÉÖ´ÐÐÎļþ¡£¶¯Ì¬Á´½ÓÌṩÁËÒ»ÖÖ·½·¨£¬Ê¹½ø³Ì¿ÉÒÔµ÷Óò»ÊôÓÚÆä¿ÉÖ´ÐдúÂëµÄº¯Êý¡£º¯ÊýµÄ¿ÉÖ´ÐдúÂëλÓÚÒ»¸ö DLL ÖУ¬¸Ã DLL °üº¬Ò»¸ö»ò¶à¸öÒѱ»±àÒë¡¢Á´½Ó²¢ÓëʹÓÃËüÃǵĽø³Ì·Ö¿ª´æ´¢µÄº¯Êý¡£DLL »¹ÓÐÖúÓ ......

ÈçºÎÓà DELPHI »ñÈ¡ CPU µÄÐòÁкÅ

      ÔÚ¶àCPU»ò¶àºËCPUÖУ¬»áËæ»úµÄ»ñµÃ²»Í¬µÄÐòÁкÅ.Õâ¾ÍΪÎÒÃǸù¾ÝCPUÐòÁкÅÀ´ÖÆ×÷×¢²á»ú´øÀ´Á˺ܴóµÄÂé·³¡£
Windows 2000/XPÔÊÐíÉèÖýø³ÌºÍÏ̵߳ĹØÏµ¡£»»¾ä»°Ëµ£¬¿ÉÒÔ¿ØÖÆÄĸö CPU Äܹ»ÔËÐÐijЩÏ̡߳£Õâ³ÆÎªAffinity Mask¡£WindowsÌṩÁËÉèÖÃÏàËÆÐԵĺ¯ÊýSetProcessAffinityMask £¬Ê¹ÓÃËü¿É ......

Delphi ÀàµÄѧϰ

Ò»¡¢ÀàÓë¶ÔÏó
1¡¢  Àà(Class)ÊÇÓû§¶¨ÒåµÄÊý¾ÝÀàÐÍ
2¡¢  ¶ÔÏó£¨Object£©ÊÇÀà(Class)µÄÒ»¸öʵÀý£¬»òÓÉÀඨÒåÊý¾ÝÀàÐ͵ÄÒ»¸ö±äÁ¿;
3¡¢  ÀàÓÐÒ»ÖÖ״̬£¨ÄÚ²¿Êý¾Ý£©£¬²Ù×÷£¨ÐÐΪ»ò·½·¨£©£¬ÊôÐÔ;
4¡¢  ¶ÔÏóÊÇÒ»¸öʵÌ壬³ÌÐòÔËÐÐʱ»áΪÆäÄÚ²¿±íÏÖ·ÖÅäһЩÄÚ´æ;
5¡¢  ÀàÓë¶ÔÏóÖ®¼äµÄ¹ØÏµºÍ±äÁ¿ÓëÀàÐ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ