ȤζÌ⣺¿¼¿¼ÄãµÄ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.ÄѵÀûÓвÎÓë¼ÆËãµ
Ïà¹ØÎÊ´ð£º
¾ÍÊÇÒ»¸ö·þÎñ¶ËºÍÒ»¸ö¿Í»§¶Ë£¬Àï±ßÓÐһЩ¹²Óõ¥Ôª £¬ÎÒÔÚ ¹¤³ÌµÄSEARCH PATHÀïÉèÖõÄ·¾¶£¬
Àï±ßÓиö½á¹¹Ì壬ÎÒÔÚ·þÎñ¶Ë´ò¿ª£¬¼ÓÁ˳ÉÔ±£¬µ«ÊÇÎÒÔÚ¿Í»§¶ËÆäËûµ¥Ôª·ÃÎʲ»µ½ÎÒмӵģ¬ÎÒÔÚ¿Í»§¶Ë´ò¿ªÄǸöµ¥Ôª£¬È·Êµ¼ÓÁ ......
procedure RunFunction;
type
TFunc = function(A: Integer): Integer;stdcall;¡¡//ÕâÀï¸ù¾ÝDLLÀïÃæº¯ÊýµÄÉùÃ÷ÐÞ¸Ä
var
......
×òÍíÔÚDelphiÊý¾Ý¿â²éѯÖÐÓöµ½ÁËÒ»¸öÒɻ󡣴úÂëÈçÏ£º
procedure TFormSearchAchievement.ComboBoxXYChange(Sender: TObject);
var
XY : string;
begin
XY := comboboxxy.Items[comboboxx ......
·µ»ØµÄÄÚÈÝÊÇÈçÏ´úÂë,ÔõôÄÜÇþµÀ2b?
<p class="text1">1a </p>
<p class="text1">2b </p>
<p class="text1">3c </p>
<p cl ......