Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö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;




Ïà¹ØÎÊ´ð£º

2009ѧϰdelphiµÄǰ¾°

ÎÒ±¾À´ÔÚѧУÊÇŪµÄJ2EE
×òÌìÈ¥Á˳¤É³Ò»¼Ò¹«Ë¾Ó¦Æ¸ ˵ÊÇÓÐÒ»¸öÏîÄ¿ delphiµÄ
ʵϰÆÚÒ»¸öÔ ËÄÌì°ëµÄdelphiÅàѵ ºóÃæ25Ìì¸øÄãÒ»¸öÉè¼ÆÎĵµ×Ô¼º×öÒ»¸öÏîÄ¿
×ߺ󲻾ôòµç»°¹ýÀ´½ÐÎÒÐÇÆÚһȥ±¨µ½ 
¿´µ½delphiµ ......

delphiÈçºÎ±¸·ÝorcalÊý¾Ý¿â£¿ - Delphi / Êý¾Ý¿âÏà¹Ø

³ÌÐòʹÓõÄÊÇOrcalÊý¾Ý¿â£¬Ï붨ÆÚ£¨Ã¿¼¾¶È£©¶ÔÊý¾Ý¿â½øÐб¸·Ý£¬Ã»É¶Í·Ð÷£¬ÇëÎÊÓ¦¸ÃÔõôŪ£¿
ÓÐÊ²Ã´ÌØÊâÒªÇóÂ𣬱ÈÈçҪǰ¶Ë½çÃæ£¿
Ò»°ãÓÃÊý¾Ý¿â×Ô´øµÄ¡°¼Æ»®ÈÎÎñ¡±ÅäÖÃһϾ͹»ÁË

ûÓÐÊ²Ã´ÌØÊâÒªÇó¡£ÀýÈ磬ֻҪµ ......

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

¸÷λºÃ£¡£¡
¼ÙÉèÎÒÓÐÁ½¸ötextÎļþ
Ò»¸öÃû½Ð 1.text
ÄÚÈÝ£º
I like PC.... 
ÁíÍâÒ»ÊÇ2.text
ÄÚÈÝ:
function yk as string
endfunction
globals
endglobals
***********************·Ö½çÏß********** ......

Delphi Thread

Ö÷´°Ìå:
Delphi(Pascal) code:

procedure TfrmMain.btnResumeClick(Sender: TObject);
begin
myThread := TClientThread.Create(LeftPart(cbbServer.Text, ':'), StrToInt(RightPart(cbbServer.Text, ':')) ......

DelphiµÄÓï·¨ÎÊÌâ - Delphi / ÓïÑÔ»ù´¡/Ëã·¨/ϵͳÉè¼Æ

Àý×Ó³ÌÐò¼û¸½¼þ£¬ÓÃDelphi 7½øÐбàÒë
ÎÊÌâ´úÂëΪ 
Delphi(Pascal) code:
if Node.ChildNodes <> nil then
begin
for i := 0 to Node.ChildNodes.Count - 1 do
begin
cNode := N ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ