Переменная в процедуре .. живучая

← →
Германн © (2008-01-19 02:33) [40]

> rts111 © (19.01.08 02:06) [38]
>
>

> ts111 © (19.01.08 02:09) [39]
>
>

Завтра(сегодня) проверю, если понадобится. Сейчас - занят. Нет времени.

← →
jack128 © (2008-01-19 03:47) [41]

> то, далее в модуле будет уже $J-

нуно примерно так:

{$IFOPT J+}
{$DEFINE J_Defined}
{$ENDIF}

{$J+}
const
uiop: Integer = 10;

{$IFNDEF J_Defined}
{$J-}
{$ENDIF}
{$UNDEF J_Defined}

← →
rts111 © (2008-01-19 12:31) [42]

> Заодно ещё один вопрос.
> Как проверить создан ли объект?

Вот так еще надежнее будет, скажем чем просто проверка на nil, но тоже не 100%
if TObject(MyObject) is TMyClass then ...

← →
TUser © (2008-01-19 15:03) [43]

У функций таким свойством обладает переменная result.

Переменная в процедуре .. живучая Найти похожие ветки