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Öг£³£ÒªÓõ½ADOQUERYÖеÄSQLÓï¾äÔö¼ÓÐÅÏ¢ºóÖ´ÐУ¬µ±ÒªÇóÔö¼ÓÌõ¼þ£¨Èç²ÎÊýʱ£©ÖмäµÄ¼ä¸ôºÜÖØÒª£¬¸ã²»ºÃ¾ÍÒª³ö´í£ºÏ¾ÙÀý˵Ã÷ÎÒÒª±í´ïµÄÒâ˼£º
È磺һ¸ö±í:student ÓÐ ksh,xm,xb,lqzy,lqcc¼¸¸ö×ֶΣ¬¶¼Îª×Ö·ûÐÍ¡£ÏÖÒªÇó°´xb·Ö×éͳ¼ÆÈËÊý£¬Í¬Ê±lqccÒªÇóÏÞ¶¨Ìõ¼þ¡£
Ò»°ãÇé¿öϵÄSQLÓï¾äÓ¦¸ÃΪ£º select xb,count(*) ......
×î½üÔÚʹÓÃDelphi¿ª·¢Ò»ÖÖÓ¦ÓÃϵͳµÄ¼¯³É¿ª·¢»·¾³¡£ÆäÖÐÐèҪʵÏÖÒ»¸ö×Ö·û´®²ð·Ö¹¦ÄÜ£¬·½·¨»ù±¾ÔÐÍÓ¦¸ÃÊÇ£º
procedure
SplitString(src: string
; ch: Char; var
stringList: TStringList);
Ä¿µÄÊÇʹÓÃ×Ö·ûch²ð·Ösrc×Ö·û´®£¬°Ñ²ð·ÖµÄ½á¹û·ÅÈëstringListÖС£ÀýÈ磺src:='abc|def|ghi'; ch='|'µÄʱºò£¬·µ»ØµÄstringLis ......
DELPHIÀà±ÏÒµÉè¼Æ
ÏÂÒ»Ò³£º×îÐÂDELPHI±ÏÒµÂÛÎÄ
ÈôÓкÏÊÊÄúµÄÉè¼Æ£¬Çë¸æËßÎÒÏêϸ˵Ã÷µÄÍøÖ·£¡Ð»Ð»ºÏ×÷£¡
±àºÅ ÌâÄ¿ ¿ª·¢¹¤¾ß ÄÚÈÝ ×ÊÁÏ·Ñ Ïêϸ˵Ã÷
001DPAC ÍøÂç½Ìѧ¹ÜÀíϵͳ DELPH I+ ACCESS delphiÔ´´úÂë+±ÏÒµÂÛÎÄ+¿ªÌⱨ¸æ+´ð±ç¸å £¤150 Ïêϸ˵Ã÷
002DPAC ½Ìѧ¼Æ»®¹ÜÀíϵͳ DELPH I+ ACCESS delphiÔ´´úÂë+±ÏÒµÂÛÎ ......
¡¡¡¡DELPHIÃæÏò¶ÔÏó²Î¿¼
¡¡¡¡³ÂÆæ 2005-07-21
¡¡¡¡Ò»¡¢ÀàºÍ¶ÔÏó
¡¡¡¡ÀàÊǶÔÏóµÄÀàÐÍ£¬ÊÇ´´½¨¶ÔÏóµÄÄ£°å¡£Ò»¸öÀà¿ÉÒÔ´´½¨¶à¸ö¶ÔÏ󣬶øÒ»¸ö¶ÔÏó×ÜÊÇÊôÓÚij¸öÀà¡£Àà¾ßÓÐÄÚ²¿µÄÊôÐÔ£¨×´Ì¬£©ºÍÐÐΪ£¨²Ù×÷£©¡£
¡¡¡¡¶ÔÏóÊÇÀàµÄʵÀý£¬¾ßÓÐÇø±ðÓÚͬÀàÆäËû¶ÔÏóµÄÊôÐÔ¼¯ºÏ¡£
¡¡¡¡¶ÔÏóµÄÉùÃ÷´æ·ÅÓÚ¶ÑÕ»£¬¶ÔÏóµÄÒýÓôæ·ÅÓÚ¶Ñ¡£
¡¡¡ ......
function ValidatePID(const APID: string): string;
{ÄÚ²¿º¯Êý,È¡Éí·ÝÖ¤ºÅУÑéλ,×îºóһλ,¶Ô18λÓÐЧ}
function GetVerifyBit(sIdentityNum: string): Char;
var
nNum: Integer;
begin
Result := #0;
nNum := StrToInt(sIdentityNum[1]) * 7 +
  ......