Variants and Objects

← →
Juice © (2005-08-23 12:09) [0]

Обязательно ли нужно создать пользовательский вариантный тип, чтобы сохранить обьект (как ссылку) в вариантной переменной ?
var
v : Variant;
o : TObject;
p : pointer;
begin
v := o; //error
v:= p; //error

← →
Fay © (2005-08-23 12:16) [1]

2 Juice © (23.08.05 12:09)
v := Cardinal(p);

← →
Juice © (2005-08-23 12:22) [2]

А обратно ?
TObject(Pointer(v)) не катит

← →
Juice © (2005-08-23 12:23) [3]

TObject(Pointer(Integer(x))) зато так прокатило

← →
Fay © (2005-08-23 12:25) [4]

2 Juice © (23.08.05 12:23) [3]
TObject(Cardinal(x))

Ну если о приведении зашла речь, то еще такой вопрос. Как привести Open Array к аналогичному Dynamic Array?
procedure Test(OpenParams : array of Variant); var DynParams : array of Variant; begin DynParams := OpenParams; //error end;
Причем в заголовке функции хочу использовать именно OpenArray, чтобы я мог вызывать ее как Test([1,2,3]);
Есть ли такое приведение типов или нужно в цикле копировать ?

> uice © (23.08.05 13:08) [5]
> Ну если о приведении зашла речь, то еще такой вопрос. Как
> привести Open Array к аналогичному Dynamic Array?
..
> Есть ли такое приведение типов или нужно в цикле копировать

В цикле, конечно. RTFM: TVarRec type.

И зачем такие конструкции, как array of Variant,
когда есть VarArrayCreate, VarArrayOf.

--
Regards, LVT.

Variants and Objects Найти похожие ветки