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 ©
Привет, как дела. У меня пока все нормально.

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

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

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

Рад за тебя)

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

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

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

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