| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Ole объекты
Лана Розанова © (2002-12-19 11:38:00)В 5-й версии код
var
mcp:Variant;
...
if (VarIsEmpty(mcp)) then
mcp:=CreateOleObject("WinCC-Runtime-Project");
работает, а вто в 6-й версии нет...
if (VarIsEmpty(mcp)) then
mcp:=CreateOleObject("WinCC-Runtime-Project");
Вот это он не понимает.
Что делать СПАСИБО!!!
Digitman (2002-12-19 13:16:00) [1]>Лана Розанова © (19.12.02 13:01)
> У меня пока все нормально.
Рад за тебя)
> А как быть с этим?
> if (Not VarIsEmpty(mcp)) then
А точно так же !
if (TVarData(mcp).VType = varDispatch) then
Лана Розанова (2002-12-19 13:07:00) [2]Digitman
А как быть с этим?
if (Not VarIsEmpty(mcp)) then
begin
Value.Text:=mcp.GetValue(Name.Text);
end
Лана Розанова (2002-12-19 13:01:00) [3]Digitman ©
Привет, как дела. У меня пока все нормально.
Digitman (2002-12-19 11:55:00) [4]можно и вот так :
if (TVarData(mcp).VType <> varDispatch) then
mcp:=CreateOleObject("WinCC-Runtime-Project");
Skier (2002-12-19 11:47:00) [5]в d6 есть модуль Variants.pas
Его используешь ?
| |
