精华区 [关闭][返回]

当前位置:网易精华区>>讨论区精华>>编程开发>>● Delphi>>Object Pascal语言>>数据的判断

主题:数据的判断
发信人: fccw()
整理人: delphifan(2000-12-05 19:30:35), 站内信件
【 在 shppck (jack) 的大作中提到: 】
: 请问:
: 当Edit控件中输入字符时,如何判断所输入的字符为数字(如整数或实数)?
: 而不是其他字符?

function isnumval(strval:string):boolean;
var
i,decc:integer;
inc:boolean;
begin
inc:=false;
decc:=0;
for i:=1 to length(strval) do begin
   if (strval[i]<'0') or (strval[i]>'9') then
       decc:=decc+1
   else begin
        if i=1 then begin
           if strval[i]<>'-' then
              inc:=true;
              end
           else
              inc:=false;
           end;  
end;//endfor
if (inc) or (decc>1) then
   isnumval:=false
else
   isnumval:=true;
end;
你用上面的函数试一试。如搞定请给我来个email.
[email protected]


人生如戏,请多保重!

--
※ 修改:.fccw 于 Nov  7 11:27:51 修改本文.[FROM: 202.98.99.158]
※ 来源:.月光软件站 http://www.moon-soft.com.[FROM: 202.98.99.158]

[关闭][返回]