发信人: 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]
|
|