Конвертация Variant в IntegerDelphi , Синтаксис , ПреобразованияКонвертация Variant в Integer
Автор: Григорий Ситнин { **** UBPFD *********** by delphibase.endimus.com **** >> Конвертация Variant -> Integer Конвертирует, если это возможно Variant в число. Если конвертация неудается, то возвращается значение по умолчанию. Зависимости: Variants, SysUtils Автор: Григорий Ситнин, gregor@gregor.ru, Москва Copyright: Григорий Ситнин, 2003 Дата: 8 июля 2003 г. ***************************************************** } function VarToInt(var AVariant: variant; DefaultValue: integer = 0): integer; begin //*** Если NULL или не числовое, то вернем значение по умолчанию Result := DefaultValue; if VarIsNull(AVariant) then Result := 0 else {//*** Если числовое, то вернем значение} if VarIsOrdinal(AVariant) then Result := StrToInt(VarToStr(AVariant)); end; Статья Конвертация Variant в Integer раздела Синтаксис Преобразования может быть полезна для разработчиков на Delphi и FreePascal. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта. :: Главная :: Преобразования ::
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |