Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö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ÖеĿì½Ý·½Ê½Ò»ÀÀ(ÍêÈ«Õýʽ°æ)

 
 1.SHIFT+Êó±ê×ó¼ü    ÏÈÑ¡ÖÐÈÎÒ»¿Ø¼þ,°´¼üºó¿ÉÑ¡Öд°Ìå(Ñ¡Öпؼþºó°´EscЧ¹ûÒ»Ñù)
 2.Shift+F8          µ÷ÊÔʱµ¯³öCPU´°¿Ú¡£
 3.Shift+F10         µÈÓÚÊó±êÓÒ¼ü£¨Windows¿ì½Ý¼ü£©¡£
&n ......

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

1¡¢±£Ö¤Äã´«µÝµÄ²ÎÊýÒªÕýÈ·£ºC++ÖеÄchar *¶ÔÓ¦PASCALÖеÄpchar¡£
2£ºC++Öе¼³öµÄº¯ÊýµÄ²ÎÊýµ÷Ó÷½Ê½ÒªºÍÄãDELPHIÖеĵ¼ÈëµÄº¯Êý²ÎÊýµ÷Ó÷½Ê½ÒªÒ»ÖÂ!
 ÀýÈ磺    C++µÄ²ÎÊýµ÷Ó÷½Ê½           ¶ÔÓ¦µÄDELPHIµÄ²ÎÊýµ÷Ó÷½Ê½
           _declspec ......

C#ѧϰ¼°ÓëdelphiµÄ±È½Ï£¨¶þ£©

      C#µÄToolTip£¨delphi½ÐHint£©»úÖÆ·Ç³£¹Ö£¬²»ÊÇÏñdelphiµÄÔª¼þÒ»Ñù£¬Ã¿¸öTControlÓÐÒ»¸öHintÊôÐÔ£¬C#ÓÐÒ»¸öToolTipÔª¼þ£¬µ±°ÑÕâ¸öÔª¼þ´Ó¹¤¾ßÏäÀ­µ½formÉϺó£¬Ñ¡ÖÐformÉϵÄÈκÎcontrolÔª¼þ£¬ÔÚÊôÐÔ´°Ì壨Object Inspector£©ÉϾͻá¶à³öÒ»¸öÊôÐÔ“toolTip1ÉϵÄToolTip”£¬Èç¹û¶àÀ­¼¸¸ ......

DelphiÏÂPOS»ú¿ØÖÆÇ®Ïä,¿ÍÏÔ,´òÓ¡»ú,СƱ´òÓ¡

1¡¢¿ØÖÆPOS»úµÄ¿Í»§ÏÔʾÆÁ
procedure TFrmMain.ShowMoney(Money_Port:   String;Money_String:String);
//Moneey_Port     ¹ËÏÔ½Ó¿ÚCom1   or   Com2     Money_String     ¹ËÏÔÏÔʾµÄÄÚÈÝ
var
    PrnFile ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ