请问谁知道判断“字符串”是否数字的函数是那一个？记住,是“字符串”，而不是字符

Question

使用StrToInt 
同时抓异常.

Answer 1

try
  strtoint(youstring);
except
end;

Answer 2

没有这个功能的只能是偿试着转换一下格式。
用try如果没有触发异常的话就可以有的话就说明不是要不就自己写一个这样的函数吧。。写完了最好可以在这里发布一下。应该不难的。。

Answer 3

//类型转换；
try
  strtoint(string);
  isint:=true;   //isint是布尔型变量；
except
  isint=:false;
end;
//判断结果
if isint=true then 
  showmessage('字符串是数字')
else 
  showmessage('字符串不是数字');

Answer 4

用
procedure Val(S; var V; var Code: Integer)Converts a string to a numeric representation.uses Dialogs;
var   I, Code: Integer;
begin
  { Get text from TEdit control }
  Val(Edit1.Text, I, Code);
  { Error during conversion to integer? }
  if Code <> 0 then
    MessageDlg('Error at position: ' + IntToStr(Code), mtWarning, [mbOk], 0);
  else
    Canvas.TextOut(10, 10, 'Value = ' + IntToStr(I));end;

Answer 5

try
  strtoint(youstring);
except
end;
這個應該沒有問題;不過若是小數可就不行,我給你一個functionfunction CheckNumber(sTmp: string): boolean;
//  判斷字符串str1是否數字型字符串(包含小數點'.'),
//  返回邏輯結果True,False
var
  i, j : integer;
begin
  checknumber := True;
  J := 0;
  for i := 1 to length(sTmp) do
  begin
    case sTmp[i] of
      '0'..'9':;
      '.': inc(J);
      else checknumber := False;
    end;
  end;
  if J>1 then checknumber := False;
end;

Answer 6

判断是否仅含有0..9及只有一个小数点号看过一个IsNumber，不知是系统自带还是自定义的函数

Answer 7

if trim(astr)<>'-1' then
  if StrToIntDef(astr,-1) <> -1 then  是字符串
StrToIntDef 把字符串转换成整形，如果失败，返回第二个参数的值，在这里是-1

Answer 8

反正没有直接的函数，IsNumeric是VB中的判断字符串是否为数字的函数