DELPHIÃæÏò¶ÔÏó²Î¿¼
Ò»¡¢ÀàºÍ¶ÔÏó
ÀàÊǶÔÏóµÄÀàÐÍ£¬ÊÇ´´½¨¶ÔÏóµÄÄ£°å¡£Ò»¸öÀà¿ÉÒÔ´´½¨¶à¸ö¶ÔÏ󣬶øÒ»¸ö¶ÔÏó×ÜÊÇÊôÓÚij¸öÀà¡£Àà¾ßÓÐÄÚ²¿µÄÊôÐÔ£¨×´Ì¬£©ºÍÐÐΪ£¨²Ù×÷£©¡£
¶ÔÏóÊÇÀàµÄʵÀý£¬¾ßÓÐÇø±ðÓÚͬÀàÆäËû¶ÔÏóµÄÊôÐÔ¼¯ºÏ¡£
¶ÔÏóµÄÉùÃ÷´æ·ÅÓÚ¶ÑÕ»£¬¶ÔÏóµÄÒýÓôæ·ÅÓڶѡ£
¶þ¡¢ÀàµÄ·½·¨·ÖÀà
1¡¢ ÆÕͨ·½·¨
²»¼ÓÈκÎÐÞÊεķ½·¨ÎªÆÕͨ·½·¨¡£ÆÕͨ·½·¨±ØÐëµ÷ÓÃÀàµÄʵÀý½øÐзÃÎÊ¡£¼´±ØÐë
½¨ÀàµÄ¶ÔÏ󣬵÷Ó÷½Ê½Îª£º¶ÔÏó.·½·¨£¬ÉùÃ÷·½Ê½Îª£º
procedure[function] ·½·¨Ãû(²ÎÊý±í)[:·µ»ØÖµ];
2¡¢ ¹¹Ôì·½·¨
¹¹Ôì·½·¨ÓÃÓÚ´´½¨ÀàµÄʵÀý£¬µ÷Óú󷵻ØÀàµÄ¾ä±ú¡£¹¹Ôì·½·¨¿ÉÒÔÓжà¸ö°æ±¾¡£ÉùÃ÷·½Ê½ÊÇ£º
constructor ¹¹Ôì·½·¨Ãû(²ÎÊý±í);
3¡¢ Îö¹¹·½·¨
Îö¹¹·½·¨ÓÃÓÚÏú»ÙÀàµÄʵÀý£¬Ò»°ã²»½¨ÒéÖ±½Óµ÷ÓÃÎö¹¹·½·¨£¬¶ø²ÉÓõ÷ÓöÔÏó.FreeµÄ·½Ê½½øÐжÔÏóÊÍ·Å¡£ÉùÃ÷·½Ê½Îª£º
destructor Îö¹¹·½·¨Ãû(²ÎÊý±í);
4¡¢ Àà·½·¨
Àà·½·¨ÊôÓÚÒ»¸öÀ࣬ÔÚÔËÐÐʱ¼´´æÔÚÓÚÄÚ´æÖС£¿ÉʹÓÃÀà.·½·¨µÄ·½Ê½½øÐе÷Ó㬼´²»ÐèÒª´´½¨ÀàµÄʵÀý¡£ÉùÃ÷·½Ê½ÊÇÔÚÆÕͨ·½·¨Ç°¼Óclass£º
class procedure[function] ·½·¨Ãû(²ÎÊý±í)[:·µ»ØÖµ];
5¡¢ ÏûÏ¢´¦Àí·½·¨
ÏûÏ¢´¦Àí·½·¨ºÍÒ»¸öΨһµÄÏûÏ¢ID½øÐйØÁª£¬ÓÃÓÚÏìÓ¦¶¯Ì¬·ÖÅɵÄÏûÏ¢¡£ÉùÃ÷·½Ê½£º
procedure ·½·¨Ãû(ÏûÏ¢±äÔª);message ÏûÏ¢ID;
Èý¡¢¶à̬¡¢¼Ì³Ð¡¢ÖØÔØ
1¡¢ ¾²Ì¬·½·¨
¾²Ì¬·½·¨ÓɶÔÏóµÄÀà¾ö¶¨¡£ÊôÓÚ“ÔçÆÚÁª±à”£¬¼´ÔÚ±àÒë½×¶Î¾Í¾ö¶¨ÁË·½·¨µÄʵÏÖ°æ±¾¡£Ò»¸öÀàµÄʵÀý¿É´´½¨ÎªÆäËûÀàµÄʵÀý£¬µ«Êǵ÷Óõ½Í¬Ãû·½·¨Ê±£¬Ê¹Óõķ½·¨ÊÇÉùÃ÷¸ÃʵÀýµÄÀàµÄ¾²Ì¬·½·¨£¬ÉùÃ÷·½Ê½£º
procedure[function] ·½·¨Ãû(²ÎÊý±í)[:·µ»ØÖµ];
2¡¢ ÐéÄâ·½·¨
ÐéÄâ·½·¨¿ÉʵÏÖ“ºóÆÚÁª±à”£¬¼´ÔÚ³ÌÐòÔËÐÐʱ¿É¶¯Ì¬µ÷Óò»Í¬µÄ·½·¨°æ±¾£¬ÊµÏÖ¶à̬¡£ËùÓÐÀàµÄÐéÄâ·½·¨ÔÚÄÚ´æÖн¨Á¢ÁËÒ»ÕÅVMT£¨ÐéÄâ·½·¨±í£©£¬ÔÚµ÷ÓÃʱ¶¯Ì¬¶¨Î»·½·¨º¯ÊýµÄλÖᣱȶ¯Ì¬·½·¨¶àÕ¼ÓÃÄÚ´æ¿Õ¼ä£¬µ«ÊÇËٶȽϿ졣ÉùÃ÷·½Ê½£º
procedure[function] ·½·¨Ãû(²ÎÊý±í)[:·µ»ØÖµ];virtual;
3¡¢ ¶¯Ì¬·½·¨
ÐéÄâ·½·¨¿ÉʵÏÖ“ºóÆÚÁª±à”£¬¼´ÔÚ³ÌÐòÔËÐÐʱ¿É¶¯Ì¬µ÷Óò»Í¬µÄ·½·¨°æ±¾£¬ÊµÏÖ¶à̬¡£±¾ÀàµÄ¶¯Ì¬·½·¨ÔÚÄÚ´æÖн¨Á¢ÁËÒ»¸öDMT£¨¶¯Ì¬·½·¨±í£©£¬ÔÚµ÷ÓÃʱ¸ù¾Ý¶¯Ì¬·½·¨Î¨Ò»µÄ±àºÅ¶¨Î»·½·¨µØÖ·¡£±ÈÐéÄâ·½
Ïà¹ØÎĵµ£º
DELPHIÀà±ÏÒµÉè¼Æ
ÏÂÒ»Ò³£º×îÐÂDELPHI±ÏÒµÂÛÎÄ
ÈôÓкÏÊÊÄúµÄÉè¼Æ£¬Çë¸æËßÎÒÏêϸ˵Ã÷µÄÍøÖ·£¡Ð»Ð»ºÏ×÷£¡
±àºÅ ÌâÄ¿ ¿ª·¢¹¤¾ß ÄÚÈÝ ×ÊÁÏ·Ñ Ïêϸ˵Ã÷
001DPAC ÍøÂç½Ìѧ¹ÜÀíϵͳ DELPH I+ ACCESS delphiÔ´´úÂë+±ÏÒµÂÛÎÄ+¿ªÌⱨ¸æ+´ð±ç¸å £¤150 Ïêϸ˵Ã÷
002DPAC ½Ìѧ¼Æ»®¹ÜÀíϵͳ DELPH I+ ACCESS delphiÔ´´úÂë+±ÏÒµÂÛÎ ......
function ValidatePID(const APID: string): string;
{ÄÚ²¿º¯Êý,È¡Éí·ÝÖ¤ºÅУÑéλ,×îºóһλ,¶Ô18λÓÐЧ}
function GetVerifyBit(sIdentityNum: string): Char;
var
nNum: Integer;
begin
Result := #0;
nNum := StrToInt(sIdentityNum[1]) * 7 +
  ......
ÎÒÒ»¿ªÊ¼ÒÔΪ£¬½«±íµ¥ÉèÖÃΪÒþ²Ø£¬¿ÉÒÔÔÚ±íµ¥´´½¨Ê¼þÖм´FormCreate(Sender:TObject)È¥ÉèÖÃ
Òò´Ë£¬ ÎÒÔÚÕâ¸öprocedure TForm.FormCreate(Sender:TObject)ÖУ¬
ÏëÓÃÒ»ÏÂÁ½ÖÖ·½Ê½ÊµÏÖ
¼´£º
µ÷ÓÃ from.Hi ......
DelphiÕýÔò±í´ïʽѧϰ£¬²Î¿¼CSDNÍòÒ»ÀÏʦµÄBLOG¡¢CSDN¡¢ÍøÂç×ÊÁÏÒÔ¼°´øÔ´ÂëµÄTPerlRegEx£¬ÔÚ´Ë×¢Ã÷£¬ÒÔºó²»ÔÙ˵Ã÷£¬ÔÚЩ¸ÐлGoogleÀÏʦºÍ°Ù¶ÈÀÏʦ
°²×°£º
ÏÂÔصØÖ·£ºhttp://download.csdn.net/source/1668436
1¡¢°²×°.dpkÎļþ£¬ÔÚLibaryÖÐÌí¼ÓTPerlRegExµ¥Ôª´æ·Å·¾¶
2¡¢ÔËÐгÌÐòÇ°¸´ÖÆpcrelib.dllµ½C:\WINDOWSÏ ......