ʹÓÃ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ºÍWebServices¼¼Êõ¿ª·¢¶ÌÐÅÓ¦ÓóÌÐòµÄʵÀýÏêϸµÄ½éÉÜÁËÈçºÎÔÚDelphiÖпª·¢»ùÓÚWebServices¼¼Êõ
µÄÓ¦ÓóÌÐò¡£
¡¡¡¡¹Ø¼ü×Ö£ºDelphi£»WebService£»¶ÌÐÅÓ¦ÓóÌÐò¿ª·¢
¡¡¡¡Ò»ÌáÆð»ùÓÚWebServices¼¼ÊõµÄÓ¦ÓóÌÐò¿ª·¢£¬Ò»°ãÈËÊ×ÏÈÏëµ½µÄ¿ª·¢¹¤¾ßÊÇVS.net£¬Æäʵ×÷Ϊ¿ìËÙÓ¦ÓóÌÐò¿ª·¢¹¤¾ß
(RAD)µ ......
ÒýÓÃ×Ô£ºhttp://www.delphifans.com/infoview/Article_6445.html
Delphi ¹Ø¼ü×ÖÏê½â
absolute
//ËüʹµÃÄãÄܹ»´´½¨Ò»¸öбäÁ¿, ²¢ÇҸñäÁ¿µÄÆðʼµØÖ·ÓëÁíÒ»¸ö±äÁ¿Ïàͬ.
var
Str: string[32];
StrLen: Byte absolute Str;
//Õâ¸öÉùÃ÷Ö¸¶¨Á˱äÁ¿StrLenÆðʼµØÖ·ÓëStrÏàͬ.
//ÓÉÓÚ×Ö·û´®µÄµÚ0¸öλ ......
alter procedure qry_page
@sqlstr nvarchar(4000), --²éѯ×Ö·û´®
@page int, --µÚNÒ³
@pagesize int &n ......
TCollection ÊÇTCollectionItenm¶ÔÏóµÄÒ»¸öÈÝÆ÷¡£
Àà¹ØÏµTObject→TPersistent
¡¡¡¡Ã¿Ò»¸öTCollection¶¼ÓµÓÐÒ»×éTCollectionItem¶ÔÏó¡£
¡¡¡¡ÔÚÆäItemsÊôÐÔÊý×éÖУ¬TCcllection±£´æ¼¯ºÏÏîÄ¿µÄÒ»¸öϱꡣCount ÊôÐÔ°üº¬Á˼¯ºÏµÄÏîÄ¿ÊýÁ¿¡£Ê¹ÓÃAddºÍClear·½·¨¿ÉÒÔÏò¼¯ºÏÖмÓÈëÏîÄ¿ºÍ´Ó¼¯ºÏÖÐɾ³ýÏîÄ¿¡£
¡¡¡¡´ÓTCollect ......
Ò»¸öÓѺõÄÓû§½çÃæ,±ØÐë¾ßÓÐÏÂÀ²Ëµ¥£¬µ¯³ö²Ëµ¥£¬¹¤¾ßÌõºÍ¿ì½Ý¼ü¡£Í¬ÑùÒ»¸ö¹¦ÄÜ£¬³ÌÐòÔ±¿ÉÄÜÒªÌṩ¼¸ÖÖ²Ù×÷·½Ê½£¬ÈçÎı¾¿½±´£¬²Ëµ¥ÃüÁî&Copy,¿ì½Ý¼üCtrl+C,¹¤¾ßÌõÉϵĿ½±´°´Å¥£¬¶¼ÊdzÌÐòÔ±Ìṩ¸øÓû§µÄ²Ù×÷£¬¿ÉÒÔ´ó´ó·½±ãÁ˲»Í¬²ã´ÎµÄÓû§¡£µ«ÊÇ£¬¶àÔö¼ÓÒ»ÖÖ²Ù×÷·½Ê½£¬¾ÍÒâζ×ÅÔö¼ÓÏìӦʼþµÄ´úÂë£ ......