发信人: 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.
fccw@sohu.com
人生如戏，请多保重！
--
※ 修改:．fccw 于 Nov 7 11:27:51 修改本文．[FROM: 202.98.99.158]
※ 来源:．月光软件站 http://www.moon-soft.com．[FROM: 202.98.99.158]
|
|