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

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;




Ïà¹ØÎÊ´ð£º

PythonÖеÄUnicodeÔÚDelphiÈçºÎ»¹Ô­³ÉGb2312£¿

ÒÑÖªPython ÖУº
s = unicode("²âÊÔ", "gb2312")
s = u'\u6d4b\u8bd5'
print s
²âÊÔ

ÔÚDelphiÀïÃæÈçºÎ½«\u6d4b\u8bd5ÕâÑùµÄ»¹Ô­³ÉGb2312µÄºº×ÖÄØ£¿
ÕÒµ½¸ö·½·¨
......

Delphi°æÀúÈΰæÖ÷ÕÕÆ¬£¨¾øÃÜ£¬ÉêÇë¼Ó¾«£¡£©

²»ºÃÒâ˼£¬You are fooled£¡
¹þ¹þ£¬ÓÞÈ˽ڿìÀÖ£¡ÎÒÒªÄÜÈ«¸ãµ½£¬ÎÒ¾ÍÈ¥¹ú¼Ò°²È«¾ÖÁË£¡
ºÇ£¬Äã»¹ÕæÏñ°²È«¾ÖµÄ

b4

¹þ¹þ£¡

ÕæºÃ

b4

ÎÒµ¹

¹þ¹þ£¡


½ñÌìÒ»¶¨ÒªÇõ¹Ò»個»ðÐǵġ£

ÕâÀïÓÐºÜ ......

delphi¾ÍÊDZ»ÄÇЩÕý°æ´úÀíÉ̸ãÀõÄ

¾­³£´òµç»°µ½¹«Ë¾,˵ÓõÁ°ædelphi,ÒªÆðËß¹«Ë¾
ËùÒÔÏÖÔÚ¹«Ë¾ ¶¼²»¸Ò·¢²¼ÕÐÆ¸delphi³ÌÐòÔ±....
ÄDz»ÊÇÎÊÌâ¡£
ÎÊÌâÔÚÓÚÔõô´¦ÀíËûÃǵĵ绰¡£
ÎҵĽ¨ÒéÊÇ£¬Èç¹ûÅöµ½ÕâÖֵ绰£¬Äã¾Í˵¡±µÈÏ£¬´¦ÀíÕâ¼þÊÂÇéµÄÈ˲»ÊÇÎÒ£ ......

VB/delphi ÐÞ¸ÄtextÎļþ - VB / »ù´¡Àà

¸÷λºÃ£¡£¡
¼ÙÉèÎÒÓÐÁ½¸ötextÎļþ
Ò»¸öÃû½Ð 1.text
ÄÚÈÝ£º
I like PC.... 
ÁíÍâÒ»ÊÇ2.text
ÄÚÈÝ:
function yk as string
endfunction
globals
endglobals
***********************·Ö½çÏß********** ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ