PostHeaderIconDelphi. Функция 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;

 
Copyright © 2007-2010 IsIProg.ru. All Rights Reserved.