DelphiÔõÑùÅжϳýÊýΪ0
Õâ¸öÎÊÌâÎʵÄ, ÈøøÂ¥Ï»شð...
²»Ì«Ã÷°× £¿ÊÇÖ±½ÓÅÐ¶Ï if ³ýÊý=0 then Âð
¶÷~£¡ÒòΪÎÒÊÇѧJAVAµÄ£¬DelphiºÍJAVA²»Ò»Ñù~£¡
num1:=strtofloat(Edit1.Text);
num2:=strtofloat(Edit2.Text);
if num2==0 then
begin
Label4.Caption:='³ýÊý²»ÄÜΪ0';
end
else
begin
num3:=num1/num2;
Label4.Caption:=floattostr(num3);
end;
ºìÉ«µÄµØ·½ÔõôÅжϣ¿
if num2 = 0 then
delphi Óà = ±íʾ ÏàµÈ
:= ÓÃÓÚ¸³Öµ
½â¾öÁË~£¡
ллÁË
delphiÅжÏÏàµÈʱÓà = ¸³ÖµÊÇÓà :=
java == =
Ïà¹ØÎÊ´ð£º
½ÓÊÕµ½µÄÎı¾ÄÚÈÝÊÇucs2±àÂë¸ñʽ£¬ÇëÎÊÔõÑùת»»³ÉÖÐÎÄ
°´ÎÒµÄÀí½â£¬UCS-2ÊÇ×Ö·û¼¯£¬¾ßÌåµÄ±àÂëÓÐUTF-8£¬UTF-16 (LE/BE)µÈ¡£
Èç¹ûÄãÓÃDelphi 2009¼°ÒÔÉϰ汾£¬¿ÉÒÔ¿´¿´TEncodingÀà¡£
btw. Äã˵µÄת»»³ÉÖÐÎÄÊÇɶÒâË ......
procedure RunFunction;
type
TFunc = function(A: Integer): Integer;stdcall;¡¡//ÕâÀï¸ù¾ÝDLLÀïÃæº¯ÊýµÄÉùÃ÷ÐÞ¸Ä
var
......
Ò»°ã¶¼ÊÇÔõô½Ó»îµÄ£¿
ÊÕÈëÔõôÑù
sohu£¿soho£¿
sohu ¿ÉÄÜÊÇsmall office house unit
С°ì¹«ÊÒ£¬°Ñ¼Ò±ä³Éµ¥Î»¡£
È¥Íþ¿ÍÍø°¡,ºÜ¶à¸öÄØ,»¹ÓÐÍâ°üµÄÍøÕ¾
ѧϰѧϰ¡£
ÏÖÔÚDelphi×ö¶«Î÷²»ÐÐÁË,´¦ÓÚÌÔÌ×´ ......
Çë½ÌÒ»¸öÎÊÌ⣬ÏÖÔÚÓÐÒ»ÏîÄ¿ÐèÒª»æÖÆÇúÏßͼ£¬
ÒªÇ󣺣¨¿ÉÒÔÈÎÒâÑ¡Ôñºá×ø±ê£¨Ê±¼ä£©·¶Î§»³ö¶ÔÓ¦µÄÊý¾ÝÇúÏߣ¬×Ý×ø±ê×Ô¶¯ÓÅ»¯ÉèÖÃ(Ò²¿ÉÊÖ¹¤Ñ¡Ôñ)£¬¿ÉÒÔÔÚÈÎÒâʱ¼ä¶ÎÄÚ·Å´ó¡¢ËõСͼÐΣ¬Ä³¾ßÌåÊý¾ÝµãµÄ¶¨Î»¼°´ËÊý¾ÝµãµÄ ......