C cwmdelpher Unregistered / Unconfirmed GUEST, unregistred user! 2003-04-28 #3 begin if not(key in['0'..'9']) then begin result := False ; end; end
W ww20000309 Unregistered / Unconfirmed GUEST, unregistred user! 2003-04-28 #6 IsNumeric只能判断一个字符。如果你想用它可以: for i:=0 to length(str) do if not IsNumeric(str) then showmessge("no data")
IsNumeric只能判断一个字符。如果你想用它可以: for i:=0 to length(str) do if not IsNumeric(str) then showmessge("no data")
独 独帅 Unregistered / Unconfirmed GUEST, unregistred user! 2003-04-28 #7 function IsNumber(const s: String): Boolean; var E: Integer; N: Int64; begin Val(s, N, E); Result := (E = 0); end;
function IsNumber(const s: String): Boolean; var E: Integer; N: Int64; begin Val(s, N, E); Result := (E = 0); end;
J jameschin Unregistered / Unconfirmed GUEST, unregistred user! 2003-04-29 #8 我通常这样写 Function IsNumber(const s:string):Boolean; begin try strToFloat(s); result := true; except result := false; end; 把这个字符串强行转为浮点数,如果是就返回真,如果发生错误,就返假 end;
我通常这样写 Function IsNumber(const s:string):Boolean; begin try strToFloat(s); result := true; except result := false; end; 把这个字符串强行转为浮点数,如果是就返回真,如果发生错误,就返假 end;