DelphiÖÐÀàÐÍÈçºÎת»»£¿
x := integer(Edit1.Text);
y := integer(Edit2.Text);
z:= x+y;
Label3.Caption := inttostr(z);
µ±x=1 £¬ y=1 ʱ zµÄÊä³öΪ27955424
µ½µ×ÊÇΪʲô£¿ ÔõÑùÊä³öʱÕýÈ·µÄ£¿
x:=strtoint(Edit1.Text);
y:=strtoint(Edit2.Text);
z:=x+y;
Label3.Caption := inttostr(z);
лл£¡£¡
ÄÇΪʲôÕâÑùдÊÇÕýÈ·µÄ£¿
strtoint°Ñ×Ö·û´®×ª»»ÎªÕûÐÍ£¬²ÅÄÜÏà¼Ó
ÄÇÎÒÓÃinteger ǿתΪʲô¾Í²»¿ÉÒÔÁËÄØ£¿
delphiÊÇÇ¿ÀàÐÍÓïÑÔ£¬²»¿ÉÒÔ¾ÍÊDz»¿ÉÒÔ
integer ,ÄãÓÃËü°Ñ×Ö·û´®ÀàÐÍÇ¿ÖÆ×ª»»ÎªÕûÐΣ¬Ã»Ìý˵¹ýÕâÑùÇ¿ÖÆ×ªµÄ
È˼ÒdelphiÒѾ¸øÄãÏàÓ¦µÄº¯ÊýÁËstrtoint£¬Äã¾ÍÓÃÈ˼ҵÄßÂ
ÒòΪTextÀàÐÍΪÀïÃæ´æ·ÅµÄÊÇÖ¸Õë°¡
integer(Edit1.text)µÄµ½µØÊÇÖ¸ÕëÖµ
Õý½â£¬²»Òª°ÑJAVA¡¢C++µÈµÄÀàÐÍת»»´ø½øÀ´
ÈçÉÏ
Delphi(Pascal) code:
[Quote=ÒýÓà 1 Â¥ de410 µÄ»Ø¸´:]
x:=strtoint(Edit1.Text);
y:=strtoint(Edit2.Text);
z:=x+y;
Label3.Caption := inttostr(z);
[/Quote]
ÉÔ΢¸Ä½øÏ£¬·ñÔòÒªÓõ½try
x:=strtointdef(Edit1.Text,0);
y:=strtointdef(Edit2.Text,0);
z:=x+y;
Label3.Caption :=
Ïà¹ØÎÊ´ð£º
½ÓÊÕµ½µÄÎı¾ÄÚÈÝÊÇucs2±àÂë¸ñʽ£¬ÇëÎÊÔõÑùת»»³ÉÖÐÎÄ
°´ÎÒµÄÀí½â£¬UCS-2ÊÇ×Ö·û¼¯£¬¾ßÌåµÄ±àÂëÓÐUTF-8£¬UTF-16 (LE/BE)µÈ¡£
Èç¹ûÄãÓÃDelphi 2009¼°ÒÔÉϰ汾£¬¿ÉÒÔ¿´¿´TEncodingÀà¡£
btw. Äã˵µÄת»»³ÉÖÐÎÄÊÇɶÒâË ......
procedure RunFunction;
type
TFunc = function(A: Integer): Integer;stdcall;¡¡//ÕâÀï¸ù¾ÝDLLÀïÃæº¯ÊýµÄÉùÃ÷ÐÞ¸Ä
var
......
¸÷λ¸ßÊָϿì°ï°ïæ¡£
ÏÖÔÚÓÐÒ»¸ödelphiдµÄdll£¬º¯ÊýÖÐÓÐPIntegerµÄ·µ»Ø²ÎÊý£¬ÔÚdelphiÖпÉÒÔÕý³£µ÷Ó㬵«ÊÇÎÒÔÚvbÀïдµÄʱºò¾Í²»ÖªµÀ¸ÃÔõôÀ´µ÷ÓÃÁË¡£
Çë¿´´úÂë
ÒÔÏÂÊÇdelphiÖеĺ¯Êý¶¨ÒåºÍµ÷ÓôúÂ룬ÄÜÕý³£ÔËÐ ......
ÎÒ±¾À´ÔÚѧУÊÇŪµÄJ2EE
×òÌìÈ¥Á˳¤É³Ò»¼Ò¹«Ë¾Ó¦Æ¸ ˵ÊÇÓÐÒ»¸öÏîÄ¿ delphiµÄ
ʵϰÆÚÒ»¸öÔ ËÄÌì°ëµÄdelphiÅàѵ ºóÃæ25Ìì¸øÄãÒ»¸öÉè¼ÆÎĵµ×Ô¼º×öÒ»¸öÏîÄ¿
×ߺ󲻾ôòµç»°¹ýÀ´½ÐÎÒÐÇÆÚһȥ±¨µ½
¿´µ½delphiµ ......