Является ли строка числом

← →
SZap (2003-03-26 12:57) [0]

Как можно проверить, является ли строка числом?

← →
MBo © (2003-03-26 13:04) [1]

Val или в try-блокеStrtoInt, или StrtoIntDef

← →
Skyle © (2003-03-26 14:08) [2]

function IsNumber(S : String):Boolean;
var I : Integer;
begin
Result := true;
for I := 1 to Length(S) do
Result := Result AND (((S[I]>="0") AND (S[I] <="9")) OR (S[I] = DecimalSeparator));
end;
При желании сюда можно включить проверку на наличие ЕДИНСТВЕННОГО DecimalSeparator"а, а также на представление чисел в виде "12 556.46". Если не хочется маяться реализацией, то предыдущий ответ.

> Skyle © (26.03.03 14:08)

велосипед изобретаем?

function IsNumber(S:String):Boolean; var Value,Code:integer; begin val(S,Value,Code); result:=Code=0; end; function IsNumber(S:String):Boolean; begin try StrToInt(S); result:=true; except result:=false; end; end;

Является ли строка числом Найти похожие ветки