Как программно узнать не является ли слово в строке числом?

[SkAndrew]

Добрый вечер!
Как программно узнать не является ли слово в строке числом?
Функцию типа Boolean.
Буду очень благодарен за небольшой пример.
Спасибо.

[evg_m]

function (s: string): boolean;
begin
try
strtoint(s);
result:=true;
except
result:=false;
end;
end;

[SkAndrew]

это единственный вариант или есть еще возможности проверить слово в строке? Спасибо!

[SkAndrew]

Проверил - функция не работает, компилятор выдает ошибку!

function IsNumber(ws : WideString): Boolean;
begin
try
StrToInt(ws);
Result := True;
except
Result := False;
end;
end;

Есть еще варианты.
Спасибо.

[evg_m]

в исходном варианте тип параметра string а не widestring
для widestring попробуй другие функции перевода
вместо strtoint

[SkAndrew]

Спасибо, а какие функции перевода?

[Stilet]

TryStrToXXX - см. в хелпах.

[Airou]

Видел способ, где строчка перебиралась и проверялся каждый символ соответствует ли он <0> <1> <2> <3> <4> <5> <6> <7> <8> <9> <,> ну и соответственно условия что запятая одна.

[GAGARIN-NEW]

в общем способ по извращенски но можно ...
в браузере писал ))) по извращенчески всётаки но вроде должно работать)))
ЗЫ без strtoint

function ggg(text:string):boolean;
var
zap,i:integer;
begin
zap:=0;
result:=true;
for i:=0 to length(text)-1 do
case text[i] of
'1': if zap > 1 then result := false;
'2': if zap > 1 then result := false;
'3': if zap > 1 then result := false;
'4': if zap > 1 then result := false;
'5': if zap > 1 then result := false;
'6': if zap > 1 then result := false;
'7': if zap > 1 then result := false;
'8': if zap > 1 then result := false;
'9': if zap > 1 then result := false;
'0': if zap > 1 then result := false;
',':  if zap < 2 then zap:= zap+1 else result := false;
else
begin
result:= false;
exit;
end;
end;
end;

а лучше так

function ggg(text:string):boolean;
var
zap,i:integer;
begin
zap:=0;
result:=true;
for i:=0 to length(text)-1 do
case text[i] of
'1','2','3','4','5','6','7','8','9','0': if zap > 1 then result := false;
',': if zap <= 1 then zap:= zap+1 else result := false;
else
begin
result:= false;
exit;
end;
end;
end;

А может и ошибаюсь

[Stilet]

Мда... не нужно велосипед изобретать. Val еще не отменили.