Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö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ÕâÖÖÇé¿öÔõô°ì£¿ - Delphi / Windows SDK/API

¾ÍÊÇÒ»¸ö·þÎñ¶ËºÍÒ»¸ö¿Í»§¶Ë£¬Àï±ßÓÐһЩ¹²Óõ¥Ôª £¬ÎÒÔÚ ¹¤³ÌµÄSEARCH PATHÀïÉèÖõÄ·¾¶£¬
Àï±ßÓиö½á¹¹Ì壬ÎÒÔÚ·þÎñ¶Ë´ò¿ª£¬¼ÓÁ˳ÉÔ±£¬µ«ÊÇÎÒÔÚ¿Í»§¶ËÆäËûµ¥Ôª·ÃÎʲ»µ½ÎÒмӵģ¬ÎÒÔÚ¿Í»§¶Ë´ò¿ªÄǸöµ¥Ôª£¬È·Êµ¼ÓÁ ......

delphi動態調ÓÃdllµÄÀ§»ó

procedure RunFunction;  
  type  
  TFunc = function(A: Integer): Integer;stdcall;¡¡//ÕâÀï¸ù¾ÝDLLÀïÃæº¯ÊýµÄÉùÃ÷ÐÞ¸Ä  
  var  
  ......

DelphiÖÐÊý¾Ý¿â²éѯµÄÒÉ»ó

×òÍíÔÚDelphiÊý¾Ý¿â²éѯÖÐÓöµ½ÁËÒ»¸öÒɻ󡣴úÂëÈçÏ£º
procedure TFormSearchAchievement.ComboBoxXYChange(Sender: TObject);
var
  XY : string;
begin
  XY := comboboxxy.Items[comboboxx ......

DelphiÔõôȡ·µ»ØÄÚÈÝÖеÄÖ¸¶¨²¿·Ö.

·µ»ØµÄÄÚÈÝÊÇÈçÏ´úÂë,ÔõôÄÜÇþµÀ2b?
<p class="text1">1a </p>
<p class="text1">2b </p>
<p class="text1">3c </p>
<p cl ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ