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

Вниз

Unassigned   Найти похожие ветки 

 
helpmepls   (2008-03-28 00:08) [0]

Я использую функцию поиска Excel. Она возвращает Variant.

qq:=Unassigned;
qq:=App.Cells.Find...

а вот дальше, если результата поиска нет, она возвращает адрес на $000000.

как написать верное условие на проверку полученного результата?
Что то вроде IsAssigned или что? Помогите пожалуйста..


 
Сергей М. ©   (2008-03-28 00:37) [1]


> возвращает адрес на $000000


Это как ?

Уж больно оно смахивает на "носит шляпу на панаму")


 
helpmepls   (2008-03-28 01:08) [2]


> Это как ?


Ну ладно... я не прально выразился.

Вопрос: как узнать что поиск не пустой?
мне приходится использовать щас try except с if VarToStr(qq)="" это непомерно тупо.. как правильно?


 
Германн ©   (2008-03-28 01:33) [3]

if qq = nil или if qq = Null не катит?


 
helpmepls   (2008-03-28 01:42) [4]


> Германн ©   (28.03.08 01:33) [3]


нет..

"Invalid variant operation"


 
Loginov Dmitry ©   (2008-03-28 07:41) [5]

VarIsEmpty() ?


 
Ega23 ©   (2008-03-28 08:15) [6]

if VarIsNull(v)


 
helpmepls   (2008-03-28 09:22) [7]


> Loginov Dmitry ©   (28.03.08 07:41) [5]


> Ega23 ©   (28.03.08 08:15) [6]


Да вот тоже нет. Возвращается в Variant вот что:

qq: $00000000


 
helpmepls   (2008-03-28 09:23) [8]

raised exception class EAccessViolation with message "Access violation at address 004751AB in


 
han_malign ©   (2008-03-28 12:15) [9]


> qq:=App.Cells.Find...

- попробуй пошагово
try
  cells = App.Cells;
except
end;
if( VarType(cells) = varDispatch ) then
  qq = cells.Find...

очень аккуратно с вложенными интерфейсами надо, обломать в любой точке может.

З.Ы. Кто бы знал, как заколебал - этот гребанный safecall...


 
palva ©   (2008-03-28 12:56) [10]

Вне зависимости от того какой подтип можно проверить с явным приведением к любому подтипу:
if TVarData(v).VInteger = 0 then ...
или даже так:
if TVarData(v).VDispatch = Nil then ...


 
helpmepls   (2008-03-28 13:06) [11]

Всем спасибо.
Использовал TVarData(v).VDispatch



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

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

Наверх




Память: 0.49 MB
Время: 0.015 c
9-1169026485
basf
2007-01-17 12:34
2008.04.20
вектора нормалей


15-1204576135
Kolan
2008-03-03 23:28
2008.04.20
Думаю поставить терминал оплаты, поделитесь опытом.


2-1206100800
Oleg_teacher
2008-03-21 15:00
2008.04.20
RxRichedit+PopuMenu


2-1206437419
Armond
2008-03-25 12:30
2008.04.20
MS SQL


15-1204390811
Ник
2008-03-01 20:00
2008.04.20
Потерял "горячие" клавиши :(