DELPHIÃæÏò¶ÔÏó²Î¿¼
¡¡¡¡DELPHIÃæÏò¶ÔÏó²Î¿¼
¡¡¡¡³ÂÆæ 2005-07-21
¡¡¡¡Ò»¡¢ÀàºÍ¶ÔÏó
¡¡¡¡ÀàÊǶÔÏóµÄÀàÐÍ£¬ÊÇ´´½¨¶ÔÏóµÄÄ£°å¡£Ò»¸öÀà¿ÉÒÔ´´½¨¶à¸ö¶ÔÏ󣬶øÒ»¸ö¶ÔÏó×ÜÊÇÊôÓÚ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£¨¶¯Ì¬·½·¨±í£©£¬ÔÚµ÷ÓÃʱ¸ù¾Ý¶¯Ì¬·½·¨Î¨Ò»µÄ±àºÅ¶¨Î»·½·¨µØÖ·¡£±ÈÐéÄâ·½·¨ÉÙÕ¼ÓÃÄÚ´æ£
Ïà¹ØÎĵµ£º
3.2 Óû§µÇ¼·½°¸
ÔÚ½øÈëÒ»¸öϵͳʱ£¬±ØÐëÏÈÔڵǼ´°ÌåÖÐÊäÈëÕýÈ·µÄÓû§ÃûºÍÃÜÂë²ÅÄܽøÈë¡£ÕâÑù¿ÉÒÔÈ·±£ÏµÍ³µÄ°²È«ÐԺͱ£ÃÜÐÔ£¬µÇ¼´°ÌåµÄÖÆ×÷°´ÕÕϵͳµÄ´óС¼°Óô¦£¬¿ÉÒÔ·ÖΪ²»Í¬µÄµÇ¼´°ÌåÑùʽ£¬ÔÚϵͳµÚÒ»´ÎµÇ¼ǰ£¬Ê×ÏÈÒª¶Ô²Ù×÷Ô±ÐÅÏ¢½øÐÐÏàÓ¦µÄÉèÖᣱ¾½Ú½«¶ÔµÇ¼´°Ìå¼°²Ù×÷Ô±¹ÜÀí´°ÌåµÄÖÆ×÷¹ý³Ì½øÐÐÏêϸµÄ˵Ã÷ ......
DelphiÖÐʵÏÖÎļþ¿½±´µÄÈýÖÖ·½·¨
1£®µ÷ÓÃAPIº¯Êý
procedure CopyFile(fromFileName,ToFileName:string);
var
f1,f2:file;
Begin
AssignFile(f1,fromFileName); file://Ö¸¶¨Ô´ÎļþÃû
AssignFile(f2,ToFileName); file://Ö¸¶¨Ä¿±êÎļþÃû
Reset(f1);
Try
Rewrite(f2);
Try
If Lzcopy(TfileRec(f1).handle,TfileRe ......
»ñÈ¡post£¬»òÕßget·µ»ØµÄcookie£¬³ýÁ˹ýÂË·µ»ØµÄ×Ö·û´®Ö®Í⣬×î¼òµ¥µÄ·½·¨ÊÇʹÓÃidhttpµÄCookieManagerÊôÐÔ
±ÈÈç»ñµÃIDhttp·µ»ØµÄÈ«²¿Cookie
if idhttp1.CookieManager.CookieCollection.Count > 0 then
for i := 0 to idhttp1.CookieManager.CookieCollection.Count - 1 do
temp := temp + idhttp1.Cooki ......
DelphiÖÐÓÐÒ»¸öÏß³ÌÀàTThreadÊÇÓÃÀ´ÊµÏÖ¶àÏ̱߳à³ÌµÄ£¬Õâ¸ö¾ø´ó¶àÊýDelphiÊé½å¶¼ÓÐ˵µ½£¬µ«»ù±¾É϶¼ÊǶÔTThreadÀàµÄ¼¸¸ö³ÉÔ±×÷Ò»¼òµ¥½éÉÜ£¬ÔÙ˵Ã÷Ò»ÏÂExecuteµÄʵÏÖºÍSynchronizeµÄÓ÷¨¾ÍÍêÁË¡£È»¶øÕâ²¢²»ÊǶàÏ̱߳à³ÌµÄÈ«²¿£¬ÎÒд´ËÎĵÄÄ¿µÄÔÚÓÚ¶Ô´Ë×÷Ò»¸ö²¹³ä¡£
Ï̱߳¾ÖÊÉÏÊǽø³ÌÖÐÒ»¶Î²¢·¢ÔËÐеĴú ......
·ÖÀà
ÔËËã·û
²Ù×÷
²Ù×÷Êý
½á¹ûÀàÐÍ
·¶Àý
ËãÊõÔËËã·û
+
¼Ó
ÕûÊý£¬ÊµÊý
ÕûÊý£¬ÊµÊý
X + Y
-
¼õ
ÕûÊý£¬ÊµÊý
ÕûÊý£¬ÊµÊý
Result - 1
*
³Ë
ÕûÊý£¬ÊµÊý
ÕûÊý£¬ÊµÊý
P * InterestRate
/
ʵÊý³ý
ÕûÊý£¬ÊµÊý
ʵÊý
X / 2
div
ÕûÊý³ý
ÕûÊý
ÕûÊý
Total div UnitSize
mod
È¡Ä£
ÕûÊý
ÕûÊý
Y mod 6
......