Ò׽ؽØͼÈí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö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ÖаüÀ¨Ò»¸öÖØÃûµÄº¯Êý»ò¹ý³Ìʱ, ÄÇçÛµ±ÄãÒýÓÃÕâÒ»º¯Êý»ò¹ý³Ìʱ


Ïà¹ØÎĵµ£º

(ÕÐƸ£©Delphi³ÌÐòÔ±ËÄÃû

ÕÐƸÈËÊý£º 4ÈË
ѧÀúÒªÇó£º ²»ÏÞ
¹¤×÷ÄêÏÞ£º ²»ÏÞ
н×Ê·¶Î§£º ÃæÒé
¹¤×÷µØµã£º ±±¾©Í¨ÖݾſÃÊ÷
Delphi³ÌÐòÔ±ËÄÃûְλҪÇó
񻂗:
1. ÊìÁ·Ê¹ÓÃDELPHI(C,C++, C#µÈ)½øÐпª·¢£»
2. ¾ßÓÐÁ¼ºÃµÄ³ÌÐò±àдϰ¹ß£»
3. ÔúʵµÄ»ù±¾¹¦£¬½á¹¹ÇåÎú¡¢ºÏÀí£»
4. Á¼ºÃµÄÖ´ÐÐÄÜÁ¦£¬½ÏºÃµÄÍê³ÉÔ¤¶¨ÈÎÎñ£»
5. ÉϽøÐÄÇ¿£¬ÄܳԿ ......

Delphi С̸֮TList ƪ

×î½ü¿ª·¢³ÌÐòÐèҪʹÓÃTList¹¦ÄÜ£¬×ªÔØ´ËÎÄÕ£¬ÒÔ×÷²Î¿¼¡£
¿´ÁËÕâÀï±êÌ⣬´ó¼Ò¿ÉÄÜÒÔΪÎÒ»á̸TListBox¿Ø¼þ£¬ÄǾʹíÁË¡£ÎÒҪ̸µÄÊÇDelphiÌṩ¸øÎÒÃǵľßÓÐÁбíÐÔÖʵÄÀࣺTstringList¡¢TListºÍTObjectList¡£TstringListÓÃÀ´´æ·Å×Ö·û´®£¬TList´æ·ÅÖ¸Õ룬¶øTObjectListÔò´æ·Å¶ÔÏó(Object)¡£
ÔÚÎÒÃÇʹÓÃDelphi µÄ¹ý³ÌÖУ¬Óкܶà ......

delphiÖÐCreateMutex£¬OpenMutexʹÓÃÒ»Àý

VCÉùÃ÷
HANDLE CreateMutex(
¡¡¡¡LPSECURITY_ATTRIBUTES lpMutexAttributes, // SD
¡¡¡¡BOOL bInitialOwner, // initial owner
¡¡¡¡LPCTSTR lpName // object name
¡¡¡¡);
delphiÉùÃ÷£º
function CreateMutex(lpMutexAttributes: PSecurityAttributes; bInitialOwner: BOOL; lpName: PChar): THandle; stdcall;
´´½ ......

delphiÖеÄTCollection

TCollection ÊÇTCollectionItenm¶ÔÏóµÄÒ»¸öÈÝÆ÷¡£
Àà¹ØϵTObject→TPersistent
¡¡¡¡Ã¿Ò»¸öTCollection¶¼ÓµÓÐÒ»×éTCollectionItem¶ÔÏó¡£
¡¡¡¡ÔÚÆäItemsÊôÐÔÊý×éÖУ¬TCcllection±£´æ¼¯ºÏÏîÄ¿µÄÒ»¸öϱꡣCount ÊôÐÔ°üº¬Á˼¯ºÏµÄÏîÄ¿ÊýÁ¿¡£Ê¹ÓÃAddºÍClear·½·¨¿ÉÒÔÏò¼¯ºÏÖмÓÈëÏîÄ¿ºÍ´Ó¼¯ºÏÖÐɾ³ýÏîÄ¿¡£
¡¡¡¡´ÓTCollect ......

DelphiµÄAction¼°ActionListµÄÓ÷¨

    Ò»¸öÓѺõÄÓû§½çÃæ,±ØÐë¾ßÓÐÏÂÀ­²Ëµ¥£¬µ¯³ö²Ëµ¥£¬¹¤¾ßÌõºÍ¿ì½Ý¼ü¡£Í¬ÑùÒ»¸ö¹¦ÄÜ£¬³ÌÐòÔ±¿ÉÄÜÒªÌṩ¼¸ÖÖ²Ù×÷·½Ê½£¬ÈçÎı¾¿½±´£¬²Ëµ¥ÃüÁî&Copy,¿ì½Ý¼üCtrl+C,¹¤¾ßÌõÉϵĿ½±´°´Å¥£¬¶¼ÊdzÌÐòÔ±Ìṩ¸øÓû§µÄ²Ù×÷£¬¿ÉÒÔ´ó´ó·½±ãÁ˲»Í¬²ã´ÎµÄÓû§¡£µ«ÊÇ£¬¶àÔö¼ÓÒ»ÖÖ²Ù×÷·½Ê½£¬¾ÍÒâζ×ÅÔö¼ÓÏìӦʼþµÄ´úÂë£ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØͼ | ¸ÓICP±¸09004571ºÅ