delphi´æ·Åµ½Ò»¸öÊý×éÀï
¶¨Ò壺 type pm= packed record { IO¼Ç¼ } Name:string[16]; { IOÃû³Æ } CHn:Byte; {ÊäÈëͨµÀºÅ } Pvh:Double; { Á¿³ÌÉÏÏÞ } Pvl:Double; { Á¿³ÌÏÂÏÞ } DW:string[8]; { Á¿³Ìµ¥Î» } Bjh:Double; { ±¨¾¯ÉÏÏÞ } Bjl:DOuble; { ±¨¾¯ÏÂÏÞ } BjCHn:Byte; { ±¨¾¯Êä³öͨµÀ } Pv:Double; { ²âÁ¿Öµ } Code:Word; { ²âÁ¿Öµ´úÂë } BZ1:Byte; BZ2:Byte; BZ3:Byte; end; IOtalab:array[0..3]of pm; Sbuf : Array[0..8191] of Byte; ÈçºÎ½«IOtalab±í ´æ·Åµ½SbufÀïÃæ£¿¡¢¡¢¡¢¡¢¡¢¡¢¡¢¡¢¡¢¡¢ Çë½Ì¡£¡£¡£¡£¡£¡£¡£¡£¡£¡£¡£
ÓÃStreamд CopyMemoryÒýÓà CopyMemory ÓÃÁËcopymemory µ«²»ÐÐ °ÑIOtalabдÈëµ½streamÖУ¬È»ºóÔÙ°ÑstreamдÈëµ½Sbuf ÖÐ Á½ÖÖ·½·¨£º 1. ʹÓÃmoveÖ®ÀàµÄ¸´Öƺ¯Êý£» 2. ʹÓñäÌå¼Ç¼£¬ÐèÒªÉÔ΢¸Ä±äÒ»ÏÂÀàÐͶ¨Ò壺 TSbuf = packed record case integer of 0: (IOtalab: array[0..3] of pm); 1: (sbuf: Array[0..8191] of byte); end; var IOtalab: array[0..3]of pm; Sbuf: TSbuf; ʹÓ㺠sbuf.iotalab[1].name := 'hello'; sbuf.sbuf[8000] := 123;
Ïà¹ØÎÊ´ð£º
³ÌÐòʹÓõÄÊÇOrcalÊý¾Ý¿â£¬Ï붨ÆÚ£¨Ã¿¼¾¶È£©¶ÔÊý¾Ý¿â½øÐб¸·Ý£¬Ã»É¶Í·Ð÷£¬ÇëÎÊÓ¦¸ÃÔõôŪ£¿ ÓÐÊ²Ã´ÌØÊâÒªÇóÂ𣬱ÈÈçҪǰ¶Ë½çÃæ£¿ Ò»°ãÓÃÊý¾Ý¿â×Ô´øµÄ¡°¼Æ»®ÈÎÎñ¡±ÅäÖÃһϾ͹»ÁË Ã»ÓÐÊ²Ã´ÌØÊâÒªÇó¡£ÀýÈ磬ֻҪµ ......
¾ßÌåÒªÇóÓ뱨³êQQ729851670 771234717 ¡°Æ´Òô±à³Ì¡±ÊÇʲôÒâ˼ ÒýÓà ¡°Æ´Òô±à³Ì¡±ÊÇʲôÒâ˼ 1.¸øÒ»¸ö×Ö¿ÉÒÔÏÔʾƴÒô£¬¶àÒô×ֵϰÄÜÏÔʾ¶ÔÓ¦µÄ¶à¸öÆ´Òô 2.¶Ô°üº¬¶àÒô×ֵĴÊÓïÖÇÄÜʶ±ð¸ø³öÆ´Òô¡£ 3.¶ÔÒ»¶Î ......
²»ºÃÒâ˼£¬You are fooled£¡ ¹þ¹þ£¬ÓÞÈ˽ڿìÀÖ£¡ÎÒÒªÄÜÈ«¸ãµ½£¬ÎÒ¾ÍÈ¥¹ú¼Ò°²È«¾ÖÁË£¡ ºÇ£¬Äã»¹ÕæÏñ°²È«¾ÖµÄ b4 ¹þ¹þ£¡ ÕæºÃ b4 ÎÒµ¹ ¹þ¹þ£¡ ½ñÌìÒ»¶¨ÒªÇõ¹Ò»個»ðÐǵġ£ ÕâÀïÓÐºÜ ......
°ÑÕâ¶Î´úÂë·ÒëΪc#ÊÇʲôÑùµÄÂé·³°ï°ïæ Delphi(Pascal) code: unit SMSHTTP; interface uses InvokeRegistry, SOAPHTTPClient, Types, XSBuiltIns; type GetInMessa ......
Àý×Ó³ÌÐò¼û¸½¼þ£¬ÓÃDelphi 7½øÐбàÒë ÎÊÌâ´úÂëΪ Delphi(Pascal) code: if Node.ChildNodes <> nil then begin for i := 0 to Node.ChildNodes.Count - 1 do begin cNode := N ......