Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

DelphiÔõÑùÅжϳýÊýΪ0

DelphiÔõÑùÅжϳýÊýΪ0
Õâ¸öÎÊÌâÎʵÄ, ÈøøÂ¥Ï»شð...

ÒýÓÃ
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              ==          =

ÒýÓÃ
¶÷~£¡ÒòΪÎÒÊÇѧJAVAµÄ£¬DelphiºÍJAVA²»Ò»Ñù~£¡

num1:=strtofloat(Edit1.Text);
    num2:=strtofloat(Edit2.Text);
    ifnum2==0 then
        begin
            Label4.Caption:='³ýÊý²»ÄÜΪ0';


Ïà¹ØÎÊ´ð£º

delphi ÔõÑù½«ucs2±àÂëת»»³ÉÖÐÎÄ

½ÓÊÕµ½µÄÎı¾ÄÚÈÝÊÇucs2±àÂë¸ñʽ£¬ÇëÎÊÔõÑùת»»³ÉÖÐÎÄ
°´ÎÒµÄÀí½â£¬UCS-2ÊÇ×Ö·û¼¯£¬¾ßÌåµÄ±àÂëÓÐUTF-8£¬UTF-16 (LE/BE)µÈ¡£
Èç¹ûÄãÓÃDelphi 2009¼°ÒÔÉϰ汾£¬¿ÉÒÔ¿´¿´TEncodingÀà¡£
btw. Äã˵µÄת»»³ÉÖÐÎÄÊÇɶÒâË ......

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

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

Çë½ÌÏ£¬ÓÃDELPHI×öSOHUµÄ - Delphi / ·Ç¼¼ÊõÇø

Ò»°ã¶¼ÊÇÔõô½Ó»îµÄ£¿
ÊÕÈëÔõôÑù
sohu£¿soho£¿

sohu ¿ÉÄÜÊÇsmall office house unit
С°ì¹«ÊÒ£¬°Ñ¼Ò±ä³Éµ¥Î»¡£

È¥Íþ¿ÍÍø°¡,ºÜ¶à¸öÄØ,»¹ÓÐÍâ°üµÄÍøÕ¾

ѧϰѧϰ¡£

ÏÖÔÚDelphi×ö¶«Î÷²»ÐÐÁË,´¦ÓÚÌÔÌ­×´ ......

delphi»æÍ¼

Çë½ÌÒ»¸öÎÊÌ⣬ÏÖÔÚÓÐÒ»ÏîÄ¿ÐèÒª»æÖÆÇúÏßͼ£¬
ÒªÇ󣺣¨¿ÉÒÔÈÎÒâÑ¡Ôñºá×ø±ê£¨Ê±¼ä£©·¶Î§»­³ö¶ÔÓ¦µÄÊý¾ÝÇúÏߣ¬×Ý×ø±ê×Ô¶¯ÓÅ»¯ÉèÖÃ(Ò²¿ÉÊÖ¹¤Ñ¡Ôñ)£¬¿ÉÒÔÔÚÈÎÒâʱ¼ä¶ÎÄÚ·Å´ó¡¢ËõСͼÐΣ¬Ä³¾ßÌåÊý¾ÝµãµÄ¶¨Î»¼°´ËÊý¾ÝµãµÄ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ