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

DelphiÔ´³ÌÐò¸ñʽÊéд¹æ·¶

1£¬¹æ·¶¼ò½é
¡¡¡¡±¾¹æ·¶Ö÷Òª¹æ¶¨DelphiÔ´³ÌÐòÔÚÊéд¹ý³ÌÖÐËùÓ¦×ñÑ­µÄ¹æÔò¼°×¢ÒâÊÂÏî¡£±àд¸Ã¹æ·¶µÄÄ¿µÄÊÇʹ¹«Ë¾Èí¼þ¿ª·¢ÈËÔ±µÄÔ´´úÂëÊéдϰ¹ß±£³ÖÒ»Ö¡£ÕâÑù×ö¿ÉÒÔʹÿһ¸ö×éÔ±¶¼¿ÉÒÔÀí½âÆäËü×éÔ±µÄ´úÂ룬ÒÔ±ãÓÚÔ´´úÂëµÄ¶þ´Î¿ª·¢¼ÇÒäϵͳµÄά»¤¡£
2£¬Ò»°ã¸ñʽ¹æ·¶
2.1 Ëõ½ø
¡¡¡¡Ëõ½ø¾ÍÊÇÔÚµ±Ô´³ÌÐòµÄ¼¶¸Ä±äʱΪÔö¼Ó¿É¶ÁÐÔ¶øÂ¶³öµÄÁ½¸ö¿Õ¸ñ¡£Ëõ½øµÄ¹æÔòΪÿһ¼¶Ëõ½øÁ½¸ö¿Õ¸ñ¡£²»×¼ÐíʹÓÃTab¡£ÒòΪTab»áÒòΪÓû§Ëù×÷µÄÉèÖò»Í¬¶ø²úÉú²»Í¬µÄЧ¹û¡£µ±Óöµ½begin »ò½øÈëÅжϡ¢Ñ­»·¡¢Òì³£´¦Àí¡¢withÓï¾ä¡¢¼Ç¼ÀàÐÍÉùÃ÷¡¢ÀàÉùÃ÷µÈµÄʱºîÔö¼ÓÒ»¼¶£¬ µ±Óöµ½end»òÍ˳öÅжϡ¢Ñ­»·¡¢Òì³£´¦Àí¡¢withÓï¾ä¡¢¼Ç¼ÀàÐÍÉùÃ÷¡¢ÀàÉùÃ÷µÈµÄʱºî¼õÉÙÒ»¼¶¡£ÀýÈ磺
if TmpInt <> 100 then
TmpInt := 100;
2.2 Begin..End
¡¡¡¡beginÓï¾äºÍendÓï¾äÔÚÔ´³ÌÐòÖÐÒª¶ÀÕ¼Ò»ÐУ¬ÀýÈç:
for I := 0 to 10 do begin //²»ÕýÈ·µÄÓ÷¨
end;
for I := 0 to 10 do //ÕýÈ·µÄÓ÷¨
begin
end;
2.3 ¿Õ¸ñ
¡¡¡¡ÔÚ²Ù×÷·û¼°Âß¼­ÅжϷûºÅµÄÁ½¶ËÌí¼Ó¿Õ¸ñ£¬ÀýÈ磺I := I + 1;£¬a and b µÈ£¬µ«Ìí¼ÓÀ¨ºÅʱ²»ÐèÒª¿Õ¸ñ¡£ÀýÈ磺if ( a > b ) then //´íÎóµÄÓ÷¨
If (a > b) then //ÕýÈ·µÄÓ÷¨
ÓÖÀýÈ磺procedure Test(Param1: integer; Param3: string);
3. Object Pascal Óï·¨Êéд¸ñʽ¹æ·¶
3.1 ±£Áô×Ö
¡¡¡¡Object Pascal ÓïÑԵı£Áô×Ö»ò¹Ø¼ü´ÊӦȫ²¿Ê¹ÓÃСд×Öĸ¡£
3.2 ¹ý³ÌºÍº¯Êý
3.2.1ÃüÃû¼°¸ñʽ
¡¡¡¡¹ý³ÌºÍº¯ÊýµÄÃû³ÆÓ¦È«²¿Ê¹ÓÃÓÐÒâÒåµÄµ¥´Ê×é³É£¬²¢ÇÒËùÓе¥´ÊµÄµÚÒ»¸ö×ÖĸӦ¸ÃʹÓôóд×Öĸ¡£ÀýÈ磺
procedure formatharddisk;//²»ÕýÈ·µÄÃüÃû
procedure FormatHardDisk;//ÕýÈ·µÄÃüÃû
¡¡¡¡ÉèÖñäÁ¿ÄÚÈݵĹý³ÌºÍº¯Êý£¬Ó¦Ê¹ÓÃSet×÷Ϊǰ׺£¬ÀýÈ磺 procedure SetUserName;
¡¡¡¡¶ÁÈ¡±äÁ¿ÄÚÈݵĹý³ÌºÍº¯Êý£¬Ó¦Ê¹ÓÃGet×÷Ϊǰ׺£¬ÀýÈ磺function GetUserName: string;
3.2.2 ¹ý³ÌºÍº¯ÊýµÄ²ÎÊý
3.2.2.1̟̞
¡¡¡¡Í³Ò»ÀàÐ͵IJÎÊýдÔÚͬһ¾äÖÐ:¡¡ procedure Foo(Param1, Param2, Param3: Integer; Param4: string);
3.2.2.2̟̞
¡¡¡¡ ËùÓвÎÊý±ØÐëÊÇÓÐÒâÒåµÄ£»²¢ÇÒµ±²ÎÊýÃû³ÆºÍÆäËüÊôÐÔÃû³ÆÖØÁ˵Äʱºò£¬¼ÓÒ»¸öǰ׺‘A’, ÀýÈ磺
procedure SomeProc(AUserName: string; AUserAge: integer);
3.2.2.3ÃüÃû³åÍ»
¡¡¡¡µ±Ê¹ÓõÄÁ½¸öunitÖаüÀ¨Ò»¸öÖØÃûµÄº¯Êý»ò¹ý³Ìʱ, ÄÇçÛµ±ÄãÒýÓÃÕâÒ»º¯Êý»ò¹ý³Ìʱ£¬½«Ö´ÐÐÔÚuse ×Ó¾äÖкóÉùÃ÷µÄÄǸöunitÖеĺ¯Êý»ò¹ý³Ì¡£ÎªÁ˱ÜÃâÕâÖÖ&


Ïà¹ØÎĵµ£º

DelphiƤ·ô¿Ø¼þ·ÖÎöÓëQQµÄƤ·ô±äÉ«¹¦ÄÜ

     ¹ØÓÚ½çÃæÃÀ»¯·½Ã棬һֱÊÇÒ»¸öÄÔ¿ÇÌÛµÄÎÊÌ⣡ÒÔǰһֱ͵ÀÁ£¬Ê¹ÓõÄÈý·½¿Ø¼þ£¡µ«ÊÇÔÚʹÓÃÁËÒ»¶Îʱ¼äÖ®ºó£¬¶¼»ò¶à»òÉÙµÄÓÐЩÎÊÌ⣡²»ÊÇÎÒ˵Èý·½¿Ø¼þÈç
ºÎÈçºÎµÄ²»ºÃ£¡Ö»ÊÇÈý·½¿Ø¼þ¶àÊÇÅÓ´óµÄÒ»¸öÖ«Ì壬Ҫ¼æ¹ËµÄÓû§ÈºÌåºÜ¶à£¬ËùÒÔͬʱËüÒª¿¼ÂǵÄÎÊÌâÒ²Ôö¼ÓÁ˺ܶ࣬Ȼ¶øÒ»¸ö³ÌÐò³öÏÖBugÊÇÔÚËùÄÑÃâµÄ ......

ÓÃDelphi±à³Ìʱ ÈçºÎÀûÓÃÏß³Ì

============================================================================
Windows95ÊÇMicrosoft¹«Ë¾µÄµÚÒ»¸öÕæÕýµÄ¶àÈÎÎñ²Ù×÷ϵͳ¡£ÔÚÿһʱ¿Ì¿ÉÒÔÓжà¸ö½ø³Ìͬʱ¹¤×÷£¬¶øÃ¿Ò»¸ö½ø³ÌÓÖ°üº¬Óжà¸öÏ̡߳£µ«Ö»ÓÐÒ»¸ö´¦ÀíÆ÷µÄ¼ÆËã»ú²»¿ÉÄÜÕæÕýµØ“ͬʱ”Ö´Ðжà¸öỊ̈߳¬¶øÊDzÙ×÷ϵͳ°Ñʱ¼ä·Ö³ÉÈô¸É¸öʱ¼äƬ£¬ ......

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

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

delphi ×é¼þµÄ°²×°

×î½üÐèÒª°²×°µÚÈý·½×é¼þ£¬ÔÚÍøÂçÉÏÕÒµ½Ò»Ð©×ÊÁÏת¹ýÀ´¿´¿´
ÓÉÓÚ×é¼þÌṩµÄ·½Ê½²»Í¬£¬ËùÒÔ°²×°µÄ·½·¨Ò²ÊDz»Ò»ÑùµÄ£¬ÏÂÃæ¾ÍĿǰ³£¼ûµÄ¸÷ÖÖÐÎʽµÄ×é¼þµÄ°²×°·½·¨½éÉÜһϡ£      
   
  1     Ö»ÓÐÒ»¸öDCUÎļþµÄ×é¼þ¡£DCUÎļþÊDZàÒëºÃµÄµ¥ÔªÎļþ£¬ÕâÑùµÄ×é¼þÊÇ×÷Õß²»Ïë°ÑÔ´Â빫² ......

WSAAsyncSelectÄ£ÐÍDelphi¼òµ¥ÊµÏÖ


TCPÁ¬½Ó½¨Á¢Óë¹Ø±Õ
ÏàП÷λ¶ÁÕßÏÖÔÚ¶Ôì¶ Winsock µÄ¶¨Ò塢ϵͳ»·¾³£¬ÒÔ¼°Ò»Ð© Winsock Stack¼° Winsock Ó¦ÓóÌʽ£¬¶¼Óлù±¾µÄÈÏʶÁË¡£½ÓÏÂÀ´±ÊÕßÏ£ÍûÄÜ·Ö¼¸ÆÚΪ¸÷λ¶ÁÕß½éÉÜһϼòµ¥µÄ Winsock ÍøÂ·Ó¦ÓóÌʽÉè¼Æ¡£ÎÒÃǽ«ÒÔ Winsock 1.1 ¹æ¸ñËù¶¨ÒåµÄ 46 ¸öÓ¦ÓóÌʽ½éÃæ£¨API£©Îª»ù´¡£¬Öð²½À´½¨Á¢Ò»¶Ô TCP socket Ö÷´Ó¼Ü ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ