盒子论坛 v2.1

我在一个程序中
定义一个判断字符串能否转化为数字的函数
function TfrmAddGoods.isNumber(s: string): boolean;
var
   i:integer;
begin
   if length(s)=0 then
   begin
      result:=false;
      exit;
   end;
   i:=1;
   while i<=length(s) do
   begin
      if isNumeric(s[i])=false then
      begin
         result:=false;
         exit;
      end;
      i:=i+1;
   end;
   result:=true;
end;
编译出错:
Undeclared identifier: 'isNumeric'
Private symbol 'isNumber' declared but never used
在这个工程里,找不到'isNumeric'
isNumeric是不是DELPHI里面的函数来的??
----------------------------------------------
-

作者：

bios (阿贡)	★☆☆☆☆	-
	盒子中级会员

2004/2/12 21:48:49

1楼：

不是，是VB的说过多少遍了！
----------------------------------------------

作者：

restboy (枫☆白水煮大虾)	★☆☆☆☆	-
	盒子活跃会员

2004/2/12 22:32:10

2楼：

可以试试看try strtoint(str) except end;
或者val(str,i,k)
----------------------------------------------
夫君子之行,静以修身,俭以养德.非澹泊无以明志,
非宁静无以致远.夫学须静也,才须学也,非学无以广才,
非志无以成学,淫漫则不能励精,险躁则不能治性,年与时驰,
意与日去,遂成枯落,多不接世,悲守穷庐,将复何及!

作者：

moto (Moto)	★☆☆☆☆	-
	普通会员

2004/2/12 22:34:22

3楼：

bios高手,我是从一个DELPHI找到的喔,
加我QQ,我发给你看看,好吗?

我QQ:2511833
----------------------------------------------
-

作者：

lovedelphi1 (梦之铃)	★☆☆☆☆	-
	盒子活跃会员

2004/2/13 3:13:20

4楼：

//我这个够简单吧.

function TForm1.isNumber(s: String): Boolean;
begin
  Result := False;
  if (s >'0) and (s < '9999999999999999')then
    Result := True;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  if isNumber(edit1.text) then edit1.Text := 'OK';
end;
----------------------------------------------
-

信息

登陆以后才能回复