Delphi. Функция TextToFloat( Buffer: PChar; var Value; ValueType: TFloatValue ): Boolean;

Функция TextToFloat( Buffer: PChar; var Value; ValueType: TFloatValue ): Boolean;

Модуль: SysUtils

type TFloatValue = (fvExtended, fvCurrency);

Описание
Функция преобразовывает длинную строку (с завершающим нулем), взятую из буфера Buffer, в значение с плавающей запятой, и записывает его в переменную Value. Параметр Value - переменная типа Extended или Currency. Тип переменной определяется параметром ValueType. Функция возвращает True, если преобразование прошло успешно и False, если исходная строка имеет не допустимый вид. Информацию о символах допустимых в исходной строке см. в описании функции StrToCurr.

Пример
var
   X: Extended;
begin
  try
     X:= StrToFloat( Edit1.text);
  except
     MessageDlg( 'Значение указано не верно!', mtInformation, [mbOk], 0);
  end;
end;