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

Вниз

Ole объекты   Найти похожие ветки 

 
Лана Розанова ©   (2002-12-19 11:38) [0]

В 5-й версии код
var
mcp:Variant;
...
if (VarIsEmpty(mcp)) then
mcp:=CreateOleObject("WinCC-Runtime-Project");

работает, а вто в 6-й версии нет...

if ( VarIsEmpty(mcp)) then
mcp:=CreateOleObject("WinCC-Runtime-Project");

Вот это он не понимает.
Что делать СПАСИБО!!!


 
Skier ©   (2002-12-19 11:47) [1]

в d6 есть модуль Variants.pas
Его используешь ?


 
Digitman ©   (2002-12-19 11:55) [2]

можно и вот так :

if (TVarData(mcp).VType <> varDispatch) then
mcp:=CreateOleObject("WinCC-Runtime-Project");



 
Лана Розанова ©   (2002-12-19 13:01) [3]

Digitman ©
Привет, как дела. У меня пока все нормально.


 
Лана Розанова ©   (2002-12-19 13:07) [4]

Digitman
А как быть с этим?
if (Not VarIsEmpty(mcp)) then
begin
Value.Text:=mcp.GetValue(Name.Text);
end



 
Digitman ©   (2002-12-19 13:16) [5]

>Лана Розанова © (19.12.02 13:01)


> У меня пока все нормально.


Рад за тебя)


> А как быть с этим?
> if (Not VarIsEmpty(mcp)) then


А точно так же !

if (TVarData(mcp).VType = varDispatch) then



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

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

Наверх




Память: 0.47 MB
Время: 0.02 c
3-99025
Whippi
2002-12-09 15:01
2002.12.30
Как програмно создать алиас в BDE?


7-99364
Anar
2002-10-23 12:19
2002.12.30
Windows


4-99411
НаемНИК
2002-11-14 14:08
2002.12.30
Как перехватить удаление ФАЙЛА


1-99166
Kudatsky
2002-12-10 15:26
2002.12.30
Принудительное завершение Internet Explorer


3-99027
viper
2002-12-11 11:33
2002.12.30
Перенос слов!