Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö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_sql_Óαê·ÖÒ³_·ÖÒ³dbgrid²éѯ

alter procedure qry_page
  @sqlstr nvarchar(4000),     --²éѯ×Ö·û´®
  @page int,                  --µÚNÒ³
  @pagesize int         &n ......

Delphi ×Ö·û´®²Ù×÷

³£Íü¼Ç£¬ÔÚ´Ë×ö±Ê¼Ç¡£
Õ⼸¸öº¯Êý¶¼°üº¬ÔÚStrUtilsÖУ¬ËùÒÔÐèÒªuses StrUtils; 
¼ÙÉè×Ö·û´®ÊÇ Dstr := ’Delphi is the BEST’, ÄÇô 
LeftStr(Dstr, 5) := ’Delph’ 
MidStr(Dstr, 6, 7) := ’ ......

DELPHIµÄTstring³éÏóÀàÑо¿


TStringsÊÇÒ»¸ö³éÏóÀ࣬ÔÚʵ¼Ê¿ª·¢ÖУ¬ÊdzýÁË»ù±¾ÀàÐÍÍ⣬ӦÓõÃ×î¶àµÄ¡£
³£¹æµÄÓ÷¨´ó¼Ò¶¼ÖªµÀ£¬ÏÖÔÚÀ´ÌÖÂÛËüµÄһЩ¸ß¼¶µÄÓ÷¨¡£
ÏȰÑÒªÌÖÂ۵öÊôÐÔÁгöÀ´£º
1¡¢CommaText
2¡¢Delimiter & DelimitedText
3¡¢Names & Values & ValuefromIndex
ÏÈ¿´µÚÒ»¸ö£ºCommaText¡£ÔõôÓÃÄØ£¿ÓôúÂë˵»°£º
const ......

DELPHI ÈÃ×Ó´°ÌåÏÔʾÔÚÈÎÎñÀ¸ÉÏ

 ÖØÔØ CreateParams ·½·¨¼´¿É
ÉùÃ÷£º
procedure CreateParams(var Params: TCreateParams);override;
procedure TForm2.CreateParams(var Params: TCreateParams);
begin
inherited;
Params.WndParent := 0;
end; ......

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

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