Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö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ÖеÄRecord


ÔÚDelphiÖеÄRecordÀàÐÍÖУ¬ÓëÖ®CÓïÑÔ¶ÔÓ¦µÄ¼´ÊǽṹÌåÀàÐÍ£¨struct
£©£¬Ò²¿ÉÄÜÊÇΪÁË·ûºÏCÓïÑÔ»òC++³ÌÐòÔ±µÄϰ¹ß£¬¶ÔÓÚËüÔÚDelphiÖеÄÓ¦ÓôæÔÚµÄһЩÎÊÌâ½øÐгõ²½µÄ˵Ã÷¡£ÔÚDelphiÖеļǼÌåÀàÐÍÓÐÁ½ÖÖ·½Ê½¶¨Òå
Type
    RecTest = record (packed
)
      ID :integer; ......

delphi ×é¼þµÄ°²×°

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

delphiµ÷ÓÃVC++6µÄDLL

1¡¢±£Ö¤Äã´«µÝµÄ²ÎÊýÒªÕýÈ·£ºC++ÖеÄchar *¶ÔÓ¦PASCALÖеÄpchar¡£
2£ºC++Öе¼³öµÄº¯ÊýµÄ²ÎÊýµ÷Ó÷½Ê½ÒªºÍÄãDELPHIÖеĵ¼ÈëµÄº¯Êý²ÎÊýµ÷Ó÷½Ê½ÒªÒ»ÖÂ!
 ÀýÈ磺    C++µÄ²ÎÊýµ÷Ó÷½Ê½           ¶ÔÓ¦µÄDELPHIµÄ²ÎÊýµ÷Ó÷½Ê½
           _declspec ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ