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

ȤζÌ⣺¿¼¿¼ÄãµÄ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.ÄѵÀûÓвÎÓë¼ÆËãµ


Ïà¹ØÎÊ´ð£º

Delphi ʹÓÃshockwaveflash¿Ø¼þµÄÎÊÌâ

ÎÒдÁ˸öС³ÌÐò£¬ÉÏÃæÌí¼ÓÁËÒ»¸öshockwaveflash¿Ø¼þ£¬È»ºóÔÚmovieÀïдÈëswfÎļþµÄ·¾¶£¬È»ºóÖ´ÐÐûÓÐÎÊÌâ¡£
µ±ÎÒ°ÑÕâ¸ö³ÌÐò×ªÒÆµ½Áíһ̨µçÄÔÖ´ÐÐʱ£¬ shockwaveflash ¿Ø¼þÏÔʾ¿Õ°×¡£Ò²¾ÍÊÇûÓмÓÔØÄǸöswfÎļþ¡£ ......

DELPHIÖ´ÐгÌÐòÔËÐÐÄÇÌõ´úÂë°¡£¿

ºÙºÙ£¬ÓÖÀ´Âé·³¸÷λ´óÅ£ÁË£¡ÎÒÏëÁ˽âÎÒÔÚ´úÂëµÄʼþÊôÐÔÀïÃæ¿´²»µ½ÓÐʲôʼþ£¬»¹ÓÐÔÚʱ¼ä¿Ø¼þÀïÃæµÄEnabledµÄÊôÐÔÊÇFalse£¬ÕâÏÂÃÉÁË£¬²»ÖªµÀ³ÌÐòÔËÐÐÖ®ºóÖ´ÐеÄÊÇÄÇÌõÃüÁϣÍû¸÷λ´óÅ£´Í½ÌÀ²£¡
лл£¡
ÎÒÕâÏ ......

DelphiÔõÑùÏÔÊ¾ÍøÒ³µÄÒ»²¿·Ö

Delphi
  ÔõÑù»ñÈ¡ÍøÒ³²¿·ÖÄÚÈÝ£¨´úÂ룩£¬²¢ÇÒÏÔʾ³öÀ´£¡
£¨Ö»ÊÇÍøÒ³ÀïÃæµÄÒ»²¿·ÖÄÚÈݲ¢²»ÊÇÈ«²¿£©
ûŪ¶®£¡

ÀàËÆwebseverµÄ¹¦ÄÜ£¿
¹À¼ÆÊÇÀûÓÃieµÄ½Ó¿Ú¡£¡£¡£¡£¡£¡£¡£¡£

ÊÇÀàËÆwebseverµÄ¹¦ÄÜ ......

delphi ÔõÑù½«ucs2±àÂëת»»³ÉÖÐÎÄ

½ÓÊÕµ½µÄÎı¾ÄÚÈÝÊÇucs2±àÂë¸ñʽ£¬ÇëÎÊÔõÑùת»»³ÉÖÐÎÄ
°´ÎÒµÄÀí½â£¬UCS-2ÊÇ×Ö·û¼¯£¬¾ßÌåµÄ±àÂëÓÐUTF-8£¬UTF-16 (LE/BE)µÈ¡£
Èç¹ûÄãÓÃDelphi 2009¼°ÒÔÉϰ汾£¬¿ÉÒÔ¿´¿´TEncodingÀà¡£
btw. Äã˵µÄת»»³ÉÖÐÎÄÊÇɶÒâË ......

delphi¶¯Ì¬Êý×éÈçºÎÈ¥µôÒ»¸öÔªËØ

procedure DynArrayDelete(var A;elSize:Longint;index,Count:Integer);
var
len,MaxDelete:Integer;
P:PLongint; //4 ¸ö×ֽڵij¤ÕûÐÎÖ¸Õë
begin
P:=PLongint(A);// È¡µÄ A µÄ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ