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
......
VC++ ÖУ¬ &±äÁ¿Ãû¡£ ÊÇʲôÒâ˼¡£ DelphiÖÐ ºÍËûÒ»ÑùµÄ·ûºÅ ÊÇÄĸö¡¢£¿
´ó¼Ò¶¼ÈÏΪ£¬CÓïÑÔÖ®ËùÒÔÇ¿´ó£¬ÒÔ¼°Æä×ÔÓÉÐÔ£¬ºÜ´ó²¿·ÖÌåÏÖÔÚÆäÁé»îµÄÖ¸ÕëÔËÓÃÉÏ¡£Òò´Ë£¬ËµÖ¸ÕëÊÇCÓïÑÔµÄÁé»ê£¬Ò»µã¶¼²»Îª¹ý¡£Í¬Ê±£¬ ......
Ò»°ã¶¼ÊÇÔõô½Ó»îµÄ£¿
ÊÕÈëÔõôÑù
sohu£¿soho£¿
sohu ¿ÉÄÜÊÇsmall office house unit
С°ì¹«ÊÒ£¬°Ñ¼Ò±ä³Éµ¥Î»¡£
È¥Íþ¿ÍÍø°¡,ºÜ¶à¸öÄØ,»¹ÓÐÍâ°üµÄÍøÕ¾
ѧϰѧϰ¡£
ÏÖÔÚDelphi×ö¶«Î÷²»ÐÐÁË,´¦ÓÚÌÔÌ×´ ......