ȤζÌ⣺¿¼¿¼ÄãµÄDelphi»ù´¡
»îÔ¾Ò»ÏÂD°æµÄÆø·Õ£¬³ö¸öȤζֻÊÇÌâ¡£ ÏÂÃæµÄ´úÂëÖУ¬¶¨ÒåÁËÒ»¸ö¼Ç¼ÀàÐÍ£¬¶¨ÒåÁË2¸öͬÃûµÄ·½·¨£¨Í¬²»Í¬ÃûÎÞËùν£©£¬v1ºÍv2µÄx×ֶζ¼³õʼ»¯Îª10£¬·Ö±ðµ÷ÓÃ2¸ö·½·¨ºó¡£ÌáÎÊ£º 1¡¢v1.xÓëv2.xµÄÖµ·Ö±ðΪ¶àÉÙ£¿£¨ÒªÇó²»ÒªÔÚ»úÉϲâÊÔ£© 2¡¢¼ÓÈë´Ó¼Ç¼¶¨ÒåÖÐÈ¥µôy×ֶΣ¬v1.xÓëv2.xµÄÖµÓÖ·Ö±ðΪ¶àÉÙ£¿£¨ÒªÇó²»ÒªÔÚ»úÉϲâÊÔ£© 3¡¢ÎªÊ²Ã´»áÊÇÕâÑùµÄ½á¹û£¿Ï£Íû´ó¼ÒÌÖÂÛ¡£ Delphi(Pascal) code: type TTest = record x: Integer; y: Integer; end; procedure IncX(var v: TTest); overload; begin Inc(v.x); end; function IncX: TTest; overload; begin Inc(Result.x); end; var v1, v2: TTest; begin v1.x := 10; v2.x := 10; v1 := IncX; IncX(v2); end;
´í±ð×ÖÌ«¶à£ºÖ»ÊÇÌâ--¡µÖªÊ¶Ì⣻2¡¢¼ÓÈë--¡µ2¡¢¼ÙÈç ·¢ÏÖ×Ô¼ºµÄ»ù´¡²»ÊÇÒ»°ãµØ²î:) ¿ÚËãµÄÒ»¸ö¶¼²»¶Ô:(ÒýÓà ·¢ÏÖ×Ô¼ºµÄ»ù´¡²»ÊÇÒ»°ãµØ²î:) ¿ÚËãµÄÒ»¸ö¶¼²»¶Ô:( ÓеãȤ°É£¬ºÇºÇ v1.x 1 v2.x 11 ²»ÖªµÀ¶Ô²»¶Ô 1¡¢ÖµÏàͬ£» 2¡¢Öµ²»Í¬£» 3¡¢ÎªÊ²Ã´ÄØ£¿ÆÚ´ý¸ßÈ˻شð... sdfdsfsdgdfgfdgfdgfdgfd ghhjklklj;lkj jjjjjj ¿ÚËã:ֵû±ä°É. ³ÁĬÖÐ... ½²µÄ²»´í·Ç³£ÓмÛÖµ£¡ ÔÀ´ÕæµÄºÜ²î.. ÔÀ´Õæ²»ÐÐ ÈÆÔÎÁË 1.¶¼ÊÇ11? 2.²»±ä£¿ 3.ÄѵÀûÓвÎÓë¼ÆËãµ
Ïà¹ØÎÊ´ð£º
ÎÒдÁ˸öС³ÌÐò£¬ÉÏÃæÌí¼ÓÁËÒ»¸öshockwaveflash¿Ø¼þ£¬È»ºóÔÚmovieÀïдÈëswfÎļþµÄ·¾¶£¬È»ºóÖ´ÐÐûÓÐÎÊÌâ¡£ µ±ÎÒ°ÑÕâ¸ö³ÌÐò×ªÒÆµ½Áíһ̨µçÄÔÖ´ÐÐʱ£¬ shockwaveflash ¿Ø¼þÏÔʾ¿Õ°×¡£Ò²¾ÍÊÇûÓмÓÔØÄǸöswfÎļþ¡£ ......
ºÙºÙ£¬ÓÖÀ´Âé·³¸÷λ´óÅ£ÁË£¡ÎÒÏëÁ˽âÎÒÔÚ´úÂëµÄʼþÊôÐÔÀïÃæ¿´²»µ½ÓÐʲôʼþ£¬»¹ÓÐÔÚʱ¼ä¿Ø¼þÀïÃæµÄEnabledµÄÊôÐÔÊÇFalse£¬ÕâÏÂÃÉÁË£¬²»ÖªµÀ³ÌÐòÔËÐÐÖ®ºóÖ´ÐеÄÊÇÄÇÌõÃüÁϣÍû¸÷λ´óÅ£´Í½ÌÀ²£¡ лл£¡ ÎÒÕâÏ ......
Delphi ÔõÑù»ñÈ¡ÍøÒ³²¿·ÖÄÚÈÝ£¨´úÂ룩£¬²¢ÇÒÏÔʾ³öÀ´£¡ £¨Ö»ÊÇÍøÒ³ÀïÃæµÄÒ»²¿·ÖÄÚÈݲ¢²»ÊÇÈ«²¿£© ûŪ¶®£¡ ÀàËÆwebseverµÄ¹¦ÄÜ£¿ ¹À¼ÆÊÇÀûÓÃieµÄ½Ó¿Ú¡£¡£¡£¡£¡£¡£¡£¡£ ÊÇÀàËÆwebseverµÄ¹¦ÄÜ ......
½ÓÊÕµ½µÄÎı¾ÄÚÈÝÊÇucs2±àÂë¸ñʽ£¬ÇëÎÊÔõÑùת»»³ÉÖÐÎÄ °´ÎÒµÄÀí½â£¬UCS-2ÊÇ×Ö·û¼¯£¬¾ßÌåµÄ±àÂëÓÐUTF-8£¬UTF-16 (LE/BE)µÈ¡£ Èç¹ûÄãÓÃDelphi 2009¼°ÒÔÉϰ汾£¬¿ÉÒÔ¿´¿´TEncodingÀà¡£ btw. Äã˵µÄת»»³ÉÖÐÎÄÊÇɶÒâË ......
procedure DynArrayDelete(var A;elSize:Longint;index,Count:Integer); var len,MaxDelete:Integer; P:PLongint; //4 ¸ö×ֽڵij¤ÕûÐÎÖ¸Õë begin P:=PLongint(A);// È¡µÄ A µÄ ......