有无一个判断一个字符串是否都为数字的函数

Question

如果整个字符串都是由数字构成，则返回true，否则返回false
有没有这个函数

Answer 1

自已定个不就行了，
boolean IsShuZi(str:string);
var 
  i:integer;
begin
  result:=true;
  for i:=1 to length(str) do 
  begin 
     if  not (str[i] in [0..9]) then
     begin 
       result:=false;
       break;
     end;
  end;
end;好象是这样，你自已再调调，最近在写VC，也不知关键字写对了没有。

Answer 2

uses Dialogs;
var   I, Code: Integer;
begin
  { Get text from TEdit control }
  Val(Edit1.Text, I, Code);
  { edit1.text不是数字 code不为0}
  if Code <> 0 then
    MessageDlg('Error at position: ' + IntToStr(Code), mtWarning, [mbOk], 0, mbOk);
  else
    Canvas.TextOut(10, 10, 'Value = ' + IntToStr(I));end;

Answer 3

function IsShuZi(str:string): boolean;
var 
  i:integer;
begin
  result:=true;
  for i:=1 to length(str) do 
  begin 
     if not (str[i] in ['0'..'9']) then
     begin 
       result:=false;
       break;
     end;
  end;
end;拜托了，给点分

Answer 4

上面的不对
  我的str='0009999000' 怎么办

Answer 5

用不着那么复杂，这段代码看着改吧
try
a:=strtoint(edit1.Text);
except
on EConvertError do
showmessage('err');

Answer 6

还是 vavyboyleon(一天到晚加班的驴) 的好。