Ò׽ؽØͼÈí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

ʹÓÃ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 Ë«É«Çò·ÖÎöÈí¼þ(1)

ÓÐÒ»¶Îʱ¼äûÕý¾­µÄÓÃdelphiÁË£¬Ç°Á½ÌìÏÂÔØÁËDelphi2010£¬ÓÃËüÀ´ÕÒÕÒDelphiµÄ¸Ð¾õ£¬°ÑдµÄһЩ¶«Î÷¹²Ïí³öÀ´£¬´ó¼Ò¹²Í¬Ñ§Ï°Ò»Ï£¬ºÇºÇ¡£
ÎÒÏë×öÒ»¸öË«É«ÇòµÄ·ÖÎöÈí¼þ£¬ÒÔÏÂÊÇÆäÖÐʵÏֵIJ¿·ÖÀàµÄµ¥ÔªÎļþ£¬ÆäËûÎļþºóÐøÒ»µãÒ»µãµÄ²¹Æ룬Óв»Í׵ĵط½£¬Ï£Íû´ó¼ÒÖ¸Õý£¬Ð»Ð»À²£¡
ÔÚʹÓÃDelphi2010ÊÇ£¬·¢ÏÖ¸öÎÊÌ⣬ÔÚÓÃshowº¯Êý ......

delphiÖеÄTCollection

TCollection ÊÇTCollectionItenm¶ÔÏóµÄÒ»¸öÈÝÆ÷¡£
Àà¹ØϵTObject→TPersistent
¡¡¡¡Ã¿Ò»¸öTCollection¶¼ÓµÓÐÒ»×éTCollectionItem¶ÔÏó¡£
¡¡¡¡ÔÚÆäItemsÊôÐÔÊý×éÖУ¬TCcllection±£´æ¼¯ºÏÏîÄ¿µÄÒ»¸öϱꡣCount ÊôÐÔ°üº¬Á˼¯ºÏµÄÏîÄ¿ÊýÁ¿¡£Ê¹ÓÃAddºÍClear·½·¨¿ÉÒÔÏò¼¯ºÏÖмÓÈëÏîÄ¿ºÍ´Ó¼¯ºÏÖÐɾ³ýÏîÄ¿¡£
¡¡¡¡´ÓTCollect ......

DELPHI¼ÓÃÜ×Ö´®£¨Òì»òÔËËã¼ÓÃÜ£©

Õâ¸ö±¾À´ÎÒÎÒÔÚ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 ......

DELPHIÖеĿì½Ý·½Ê½Ò»ÀÀ(ÍêÈ«Õýʽ°æ)


 1.SHIFT+Êó±ê×ó¼ü    ÏÈÑ¡ÖÐÈÎÒ»¿Ø¼þ,°´¼üºó¿ÉÑ¡Öд°Ìå(Ñ¡Öпؼþºó°´EscЧ¹ûÒ»Ñù)
 2.Shift+F8          µ÷ÊÔʱµ¯³öCPU´°¿Ú¡£
 3.Shift+F10         µÈÓÚÊó±êÓÒ¼ü£¨Windows¿ì½Ý¼ ......

Wma ¸ñʽ¸èÇúÐÅÏ¢Îļþ½á¹¹£¬¸½¶ÁдÀࣨDelphi£©

Wma ¸ñʽ¸èÇúÐÅÏ¢Îļþ½á¹¹£¬¸½¶ÁдÀࣨDelphi£©
linle @ 2006-05-01 13:10
ÒÔÇ°µÄÒ»µãÑо¿£¬¹«¿ªºÃÁË£¬ÓÐʲôÒÉÎÊ¿ÉÒÔºÍÎÒÌÖÂÛ
Èý¸ö¶àÔÂÇ°µÄ´úÂ룬£¬±È½ÏÓ×ÖÉ£¬´ó¼Ò½«¾ÍһϰÉ
Îļþ½á¹¹Ê¾Òâͼ
¸ñʽµÄ¼òµ¥ËµÃ÷£º
        Èçͼ1£¬Ã¿Ò»¸öWMAÎļþ£¬ËüµÄÍ·16¸ö×Ö½ÚÊǹ̶¨µÄ£¬ÎªÊ®Áù½øÖ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØͼ | ¸ÓICP±¸09004571ºÅ