Текущий архив: 2005.09.11;
Скачать: CL | DM;
Вниз
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))
← →
Juice © (2005-08-23 13:08) [5]Ну если о приведении зашла речь, то еще такой вопрос. Как привести 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]);
Есть ли такое приведение типов или нужно в цикле копировать ?
← →
Leonid Troyanovsky © (2005-08-23 14:36) [6]
> uice © (23.08.05 13:08) [5]
> Ну если о приведении зашла речь, то еще такой вопрос. Как
> привести Open Array к аналогичному Dynamic Array?
..
> Есть ли такое приведение типов или нужно в цикле копировать
В цикле, конечно. RTFM: TVarRec type.
И зачем такие конструкции, как array of Variant,
когда есть VarArrayCreate, VarArrayOf.
--
Regards, LVT.
Страницы: 1 вся ветка
Текущий архив: 2005.09.11;
Скачать: CL | DM;
Память: 0.48 MB
Время: 0.048 c
