Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.03.12;
Скачать: CL | DM;

Вниз

Что внутри Variant?   Найти похожие ветки 

 
kreyl   (2006-02-25 21:06) [0]

Есть класс, использующий для хранения параметра тип Variant (поскольку там может быть и integer, и string, и double).
И вот встал вопрос проверки введенного пользователем. То есть нужно узнать, можно ли этот variant счесть строкой, или целым, или дробным.
Стандартные функции типа VarIsType(...) не срабатывают, поскольку с их точки зрения тип варианта - неизменно varOleStr.
Не очень хочется превращать вариант в строку и разбираться, допустимые ли там символы... Есть ли еще :) варианты?
Заранее спасибо :-)


 
unknown ©   (2006-02-25 21:32) [1]

Variant - хитрая штука :-)
Используй свой "VarIsType", например :

 function vIsType(v:Variant;vType:word):Boolean;
 begin
   case  vType of
     varDouble:
       Result:=VarType(v) in [varDouble,varCurrency];
     varInteger:
       Result:=VarType(v) in [varSmallint, varInteger, varSingle,
         varShortInt,varByte,varWord,varLongWord,varInt64];
   end;
 end;



Страницы: 1 вся ветка

Текущий архив: 2006.03.12;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.052 c
2-1140975612
Volkodav
2006-02-26 20:40
2006.03.12
Полоса перемотки для MediaPlayer1


2-1140962453
Jet
2006-02-26 17:00
2006.03.12
Определение пути до папки через OpenDialog


2-1140783482
Дубинка
2006-02-24 15:18
2006.03.12
TimerProc дважды


2-1140342145
keyser
2006-02-19 12:42
2006.03.12
Сервисы в windows 98 и Me


2-1140889474
Vitalik__
2006-02-25 20:44
2006.03.12
Неподскажите как сделать паузу 1 сек в программе?