Определить строку на численность.

[Небесный]

Задача такова, есть некая вводимая строка и нужно проверить является строка числом или нет. Причем число может быть каким угодно, вещественным, отрицательным и т.д.
По-началу задача казалась очень проста, но оказывается не так то все и просто.
Прошу совета, как можно данное реализовать.

[mihali4]

Ну прям ужас, как непросто
А на что StrToFloat function ? Или TryStrToFloat function ?

[Небесный]

Сообщение от mihali4

Ну прям ужас, как непросто
А на что StrToFloat function ? Или TryStrToFloat function ?

Ну, есть разные уровни знаний.
Если можно приведите пример пожалуйста.

[mihali4]

Если можно приведите пример пожалуйста

Пожалуйста. Запускаем Дельфи, жмем F1, набираем хотя бы первые буковки нужной функции и... вот она, родимая, и все про нее подробно рассказано.

[VVM]

И да простит меня mihali4 =)

var
  Str: string;
try
  StrToFloat(Str);
except
  ShowMessage('Не число!');
  exit;
end;
  ShowMessage('Число!');

[mihali4]

И да простит меня mihali4

Тогда где же пример с TryStrToFloat ?

[VVM]

Тогда где же пример с TryStrToFloat ?

Вот:

var
  Str: string;
if TryStrToFloat(Str) then
  ShowMessage('Число!')
else
  ShowMessage('Не число!');

[mihali4]

Тогда где же пример с TryStrToFloat ?
Вот:

var
Str: string;
if StrToFloat(Str) then
ShowMessage('Число!')
else
ShowMessage('Не число!');

Вы не поняли... Есть функция StrToFloat, и есть функция TryStrToFloat.
У вас в обоих случаях StrToFloat... Опечатка?

[VVM]

Да, опечатка, сорри. Поправил.

[SERG1980]

можно через ф-ию VAL

var
  numberString : string;
  float        : Extended;
  errorPos     : Integer;
begin
  // Установка строки правильным с вещественным числом
  numberString := '12345.678';

  // Его преобразование в значение
  Val(numberString, float, errorPos);

  // Показ строки и преобразованного значения
  if errorPos = 0
  then ShowMessageFmt('Val(%s) = %12.3f',[numberString,float]);

  // Val игнорирует Десятичный Разделитель, а конвертеры SysUtils - нет
  DecimalSeparator := '_';
  numberString := '12345_678';
  Val(numberString, float, errorPos);
  if errorPos = 0
  then ShowMessageFmt('Val(%s) = %12.3f',[numberString,float])
  else ShowMessageFmt('Val(%s) потерпело неудачу в позиции %d',
                      [numberString, errorPos]);
end;
Val(12345.678) = 12345.678
Val(12345_678) потерпело неудачу в позиции 6