function IsNumber(s: string): Boolean; var i: Double; begin try i:= StrToFloat(s); Result:= True; except Result:= False; end; end;
function IsNumeric(AStr: string): Boolean; var iTemp: Integer; begin Result := False; Try iTemp := StrToInt(AStr); Result := True; Except Result := False; end; end;
不会吧这么相同,jan2002(阿吉) 交个朋友怎么样看你代码写的蛮规范
function IsNumber(s: string): Boolean; var i: Integer; a : Char ; begin Result := True ; for i:= 1 to length(s) do begin a := s[i]; if a not in['0'..'9'] then begin result := False ; Exit ; end ; end ; end;
function IsNumber(s: string): Boolean; var i: Integer; a : Char ; begin Result := True ; for i:= 1 to length(s) do begin a := s[i]; if not (a in['0'..'9']) then begin result := False ; Exit ; end ; end ; end;
var
i: Double;
begin
try
i:= StrToFloat(s);
Result:= True;
except
Result:= False;
end;
end;
var
iTemp: Integer;
begin
Result := False;
Try
iTemp := StrToInt(AStr);
Result := True;
Except
Result := False;
end;
end;
var
i: Integer;
a : Char ;
begin
Result := True ;
for i:= 1 to length(s) do
begin
a := s[i];
if a not in['0'..'9'] then
begin
result := False ;
Exit ;
end ;
end ;
end;
var
i: Integer;
a : Char ;
begin
Result := True ;
for i:= 1 to length(s) do
begin
a := s[i];
if not (a in['0'..'9']) then
begin
result := False ;
Exit ;
end ;
end ;
end;