ʹÓÃDelphi±àдÆåÅÆÀàÓÎÏ· »ù´¡Æª(1)
Ŀǰ¿ª·¢ÆåÅÆÀàÓÎÏ·µÄ¹«Ë¾ºÍ¸öÈ˺ܶࡣµ«ÊǶÔÓںܶ࿪·¢ÕßÀ´Ëµ£¬¿ª·¢Ò»¿î¾ßÓпÉÀ©Õ¹¡¢Îȶ¨µÄÆåÅÆÀàÓÎÏ·»¹ÊǾßÓÐÒ»¶¨µÄÄѶȡ£Õâ´ÎÎÒ¾ÍÒÔÎÒ¿ª·¢ÆåÅÆÀàÓÎϷΪÀý£¬½²ÊöÈçºÎʹÓÃDELPHIÀ´¿ª·¢ÆåÅÆÀàÓÎÏ·¡£Ï£ÍûÎҵľÑé¿ÉÒÔ¶ÔÓÎÏ·¿ª·¢°®ºÃÕ߯ðµ½Å×שÒýÓñµÄ×÷Óá£Èç¹ûÄú¶ÔÎÒ»ù´¡ÆªÖÐÉæ¼°µ½µÄÄÚÈݷdz£ÊìϤ£¬¿ÉÒÔÖ±½ÓÌø¹ý½øÈëÉè¼ÆÆª¡£ÒòΪÎÒµÄÄÜÁ¦ÓÐÏÞ£¬ËùÒÔÎÄÖÐÄÑÃâÓв»×ãÖ®´¦£¬»¶Ó´ó¼ÒÖ¸Õý¡£
Ê×ÏÈÀ´ËµËµ¹ØÓÚÓÎÏ·¿ª·¢ÖÐÐèÒªµÄһЩ»ù´¡ÖªÊ¶¡£
µÚÒ»¸ö»ù´¡ÖªÊ¶¾ÍÊÇ£ºÁ´±íµÄʹÓá£
¶ÔÓÚÁ´±íµÄʹÓã¬Ê×ÏÈÉæ¼°µ½µÄ¾ÍÊǽṹµÄ¶¨Òå¡£ÒÔÏÂÊÇÎÒ¶¨ÒåµÄÒ»¸ö½á¹¹£º
//Óû§ÐÅÏ¢½á¹¹
RuserInfo= record
UserID:String[20];
Sex:Boolean;
Face:Byte;
Score:Integer;
End;
PuserInfo = ^ RuserInfo;
ÔÚÕâ¸ö½á¹¹Öдó¼ÒÐèҪעÒâUserID:String[20];µÄ¶¨Òå·½·¨¡£ÎÒ¼û¹ýÓÐÈËÊÇÕâÑù¶¨ÒåµÄ£ºUserID£ºString; ÎÒ¾õµÃÕâÑù¶¨ÒåÊDz»ÕýÈ·µÄ¡£¶ÔÓÚString[20]À´Ëµ£¬ÕâÑù¶¨Òå˵Ã÷ÁËËüÊÇÒ»¸öshort StringÀàÐÍ£¬¶øÕâÖÖÀàÐ͵ij¤¶ÈÊÇ255¡£¿ÉÊǶ¨Òå³ÉstringµÄ»°ËüµÄ³¤¶ÈÓ¦¸ÃÊÇ2G¡£Ò»¸ö½á¹¹²»ÄÜÕ¼ÓÃÕâô´óµÄ¿Õ¼ä¡£ËùÒÔÎÒ½¨Òé´ó¼ÒÔÚ¶¨Òå½á¹¹¶ÔÏóµÄʱºòstringÀàÐ;¡Á¿¶¨Òå³Éstring[]·½Ê½¡£
¶ÔÓÚÁ´±íµÄʱºòÆä´Î¾ÍÊÇÏòÁ´±íÖмÓÈëÖ¸ÕëºÍ´ÓÁ´±íÖÐɾ³ýÖ¸Õë¡£
¼ÓÈëÖ¸ÕëʹÓÃAdd£¬É¾³ýÖ¸ÕëʹÓÃDelete ÀýÈ磺
//Ìí¼ÓÁ´±í
New(p_User);
p_User.UserID:= UserID;
p_User.Sex:= Sex;
p_User.Face:= Face;
p_User.Score:= Score;
UserList.Add(p_User);
//ɾ³ýÁ´±í
IF p_User.UserID = UserID then
Begin
UserList.Delete(I);
Dispose(p_User);
End;
ÔÚÌí¼ÓºÍɾ³ýÁ´±íµÄʹÓÃÖÐÒ»¶¨Òª×¢Ò⣬ÔÚ¼ÓÈë֮ǰʹÓÃNEWº¯ÊýÔÚɾ³ýÒÔºóÒ»¶¨ÒªÊ¹ÓÃdisposeº¯Êý¡£ÎÒ¼ûµÄ×î¶àµÄ´íÎó¾ÍÊÇÔÚÌí¼ÓǰʹÓÃÁËNewµ«ÊÇÔÚɾ³ýÒÔºóûÓÐʹÓÃDisposeÀ´ÊÍ·Å×Ô¼ºÉêÇëµÄ¿Õ¼ä¡£ÕâÑù»áÔì³ÉÄÚ´æÐ¹Â¶¡£
2£ºÁ´±íµÄǶÌס£
ÔÚÎÒºóÃæ¹ØÓÚ¿ª·¢ÓÎÏ·µÄÀý×ÓÖлὲµ½ÔÚ¶¨ÒåÁ´±íµÄʱºòʹÓÃǶÌ׵ķ½Ê½¡£
ÀýÈ磺¶ÔÓÚÒ»¸öÓÎÏ·À´Ëµ£¬ÎÒÃÇ¿ÉÒÔ¸øËü¶¨ÒåÒ»¸öGAMEIDÀ´×÷ΪÕâ¸öÓÎÏ·µÄ±àºÅ¡£¶øÒ»¸öÓÎÏ·¿ÉÒԷֳɺü¸¸ö·¿¼ä£¨ÎÒÃÇʹÓ÷¿¼ä±àºÅRoomIDÀ´±ê¼Ç£©¡£¶ÔÓÚ·¿¼äÀ´Ëµ£¬ÀïÃæ»á°üº¬ºÜ¶àµÄÓû§¡£ÄÇÈçºÎʹÓÃÒ»¸öÁ´±íÀ´±£´æÕâ¸öÐÅÏ¢£¬²¢ÇÒÈÃÎÒÃÇÒÔºó²éÕÒÆðÀ´·Ç³£·½±ãÄØ£¿
Ïà¹ØÎĵµ£º
×÷Õß: yangyxd ×ªÔØÇë×¢Ã÷³ö´¦ http://hi.baidu.com/yangyxd 2009-3-12
ÂÛ̳ÀïÓйØÓÚHOOK APIµÄÌù×Ó£¬ µ«ÆäʵÏÖÔÚ·½Ê½ÏÔʾµÃÂé·³£¬ ÆäʵÏÖÔÚÀ¹½ØAPIÒ»°ã²»ÓÃÄÇÖÖ·½Ê½£¬ ´ó¶¼²ÉÓÃinline Hook API·½Ê½¡£ÆäʵҲ¾ÍÊÇÖ±½ÓÐÞ¸ÄÁËÒªÀ¹½ØµÄAPIÔ´ÂëµÄÍ·²¿£¬ÈÃËüÎÞÌõ¼þÌø×ªµ½ÎÒÃÇ× ......
1£®ÒýÑÔ
ÔÚÀûÓÃdelphi¿ª·¢Ó¦ÓóÌÐòµÄʱºò£¬Í¨³£ÎÒÃÇÒªÉè¼Æ³öºÜ¶à¸÷ÖÖ¸ñʽµÄÎĵµ¡¢±¨±í£¬¾³£Òª½øÐÐÎļþµÄ´´½¨¡¢±à¼¼°Ð޸ģ¬ËäÈ»delphi±¾ÉíÌṩÁ˺ܶàÉè¼Æ±¨±íµÄ¿Ø¼þ»ò·½·¨£¬µ«ÊÇ´æÔÚÃ÷ÏԵIJ»×㣬±ÈÈçÖÐÎÄÊäÈ룬Êý¾Ý¸ñʽµÄ¿ØÖƵȲÙ×÷ÆðÀ´±È½ÏÂé·³¡£ÀûÓôó¼Ò¶¼ºÜÊìϤµÄoffice¹¤¾ß½áºÏ¿ª·¢£¬Äܹ»ºÜºÃµÄ½â¾öÕâ·½ÃæµÄÎÊÌâ¡£ÒÔÏ ......
DirectoryExists('C:\WINDOWS'):Boolean;¼ì²âÎļþ¼ÐÊÇ·ñ´æÔÚ£¡
FileExists('c:\Dir.txt'):Boolean;¼ì²âÎļþÊÇ·ñ´æÔÚ£¡
EDIT×é¼þ
OnChange µ±±à¼¿òÖеÄÄÚÈÝ·¢Éú±ä»¯Ê±´¥·¢¸Ãʼþ
OnKeyPress µ±°´ÏÂÒ»¸ö°´¼üʱ£¬´¥·¢¸Ãʼþ
OnEnter ±à¼¿ò»ñµÃÊäÈë½¹µãʱ£¬´¥·¢¸Ãʼþ
MEMO×éºÏ
WordWrap ÓÃÓÚÉ趨Momo×é¼þÊÇ·ñ¾ßÓÐ×Ô¶ ......
ÖØÔØ CreateParams ·½·¨¼´¿É
ÉùÃ÷£º
procedure CreateParams(var Params: TCreateParams);override;
procedure TForm2.CreateParams(var Params: TCreateParams);
begin
inherited;
Params.WndParent := 0;
end; ......