ʹÓÃ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À´±ê¼Ç£©¡£¶ÔÓÚ·¿¼äÀ´Ëµ£¬ÀïÃæ»á°üº¬ºÜ¶àµÄÓû§¡£ÄÇÈçºÎʹÓÃÒ»¸öÁ´±íÀ´±£´æÕâ¸öÐÅÏ¢£¬²¢ÇÒÈÃÎÒÃÇÒÔºó²éÕÒÆðÀ´·Ç³£·½±ãÄØ£¿
Ïà¹ØÎĵµ£º
ÓÐÒ»¶Îʱ¼äûÕý¾µÄÓÃdelphiÁË£¬Ç°Á½ÌìÏÂÔØÁËDelphi2010£¬ÓÃËüÀ´ÕÒÕÒDelphiµÄ¸Ð¾õ£¬°ÑдµÄһЩ¶«Î÷¹²Ïí³öÀ´£¬´ó¼Ò¹²Í¬Ñ§Ï°Ò»Ï£¬ºÇºÇ¡£
ÎÒÏë×öÒ»¸öË«É«ÇòµÄ·ÖÎöÈí¼þ£¬ÒÔÏÂÊÇÆäÖÐʵÏֵIJ¿·ÖÀàµÄµ¥ÔªÎļþ£¬ÆäËûÎļþºóÐøÒ»µãÒ»µãµÄ²¹Æ룬Óв»Í׵ĵط½£¬Ï£Íû´ó¼ÒÖ¸Õý£¬Ð»Ð»À²£¡
ÔÚʹÓÃDelphi2010ÊÇ£¬·¢ÏÖ¸öÎÊÌ⣬ÔÚÓÃshowº¯Êý ......
TCollection ÊÇTCollectionItenm¶ÔÏóµÄÒ»¸öÈÝÆ÷¡£
Àà¹ØϵTObject→TPersistent
¡¡¡¡Ã¿Ò»¸öTCollection¶¼ÓµÓÐÒ»×éTCollectionItem¶ÔÏó¡£
¡¡¡¡ÔÚÆäItemsÊôÐÔÊý×éÖУ¬TCcllection±£´æ¼¯ºÏÏîÄ¿µÄÒ»¸öϱꡣCount ÊôÐÔ°üº¬Á˼¯ºÏµÄÏîÄ¿ÊýÁ¿¡£Ê¹ÓÃAddºÍClear·½·¨¿ÉÒÔÏò¼¯ºÏÖмÓÈëÏîÄ¿ºÍ´Ó¼¯ºÏÖÐɾ³ýÏîÄ¿¡£
¡¡¡¡´ÓTCollect ......
Õâ¸ö±¾À´ÎÒÎÒÔÚDELPHIºÐ×Ó¿´µ½µÄ£¬ºóÀ´ÎÒ¶ÔÆä×÷ÁËÒ»µãÐ޸ģ¬ÕâÀïÉÏÈ«²¿´úÂ룬¿ÉÒÔÖ±½ÓÓÃ
Ê×ÏÈÓÐÁ½¸ö×Ô¶¨µÄת»»º¯Êý£º
function myStrToHex(s:string):string; //×Ö´®×ª16½øÖÆ
var
TmpStr:string;
i:integer;
begin
TmpStr:='';
for i:=1 to Length(s)do
TmpStr:=TmpStr+IntToHex(ord(s[i]),2);
Res ......
1.SHIFT+Êó±ê×ó¼ü ÏÈÑ¡ÖÐÈÎÒ»¿Ø¼þ,°´¼üºó¿ÉÑ¡Öд°Ìå(Ñ¡Öпؼþºó°´EscЧ¹ûÒ»Ñù)
2.Shift+F8 µ÷ÊÔʱµ¯³öCPU´°¿Ú¡£
3.Shift+F10 µÈÓÚÊó±êÓÒ¼ü£¨Windows¿ì½Ý¼ ......
Wma ¸ñʽ¸èÇúÐÅÏ¢Îļþ½á¹¹£¬¸½¶ÁдÀࣨDelphi£©
linle @ 2006-05-01 13:10
ÒÔÇ°µÄÒ»µãÑо¿£¬¹«¿ªºÃÁË£¬ÓÐʲôÒÉÎÊ¿ÉÒÔºÍÎÒÌÖÂÛ
Èý¸ö¶àÔÂÇ°µÄ´úÂ룬£¬±È½ÏÓ×ÖÉ£¬´ó¼Ò½«¾ÍһϰÉ
Îļþ½á¹¹Ê¾Òâͼ
¸ñʽµÄ¼òµ¥ËµÃ÷£º
Èçͼ1£¬Ã¿Ò»¸öWMAÎļþ£¬ËüµÄÍ·16¸ö×Ö½ÚÊǹ̶¨µÄ£¬ÎªÊ®Áù½øÖ ......