Функция TextToFloat(
Buffer: PChar; var Value;
ValueType: TFloatValue ): Boolean;
Модуль: SysUtils
typeTFloatValue = (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;