В Variant добавить Class

[lexaltd]

Можно ли в тип данных Variant, добавить свой класс?

Чтоб было типа:

procedure TForm1.BitBtn2Click(Sender: TObject);
var
 MC : TMyClass;
 V:Variant;
begin
 V := TMyClass.Create;
 //или
 V := MC;
end;

[eval]

у компилятора спроситть гораздо быстрее чем на форуме

[Аватар]

Так, в порядке извращения

procedure TForm1.Button2Click(Sender: TObject);
var xLabel: TLabel;
    xVariant: Variant;
begin
  xLabel:=TLabel.Create(Self);
  xLabel.Parent:=Self;
  xLabel.Caption:='Мой лэйбл';
  xLabel.Top:=40;
  xLabel.Left:=140;
  xVariant:=Integer(xLabel);
  TLabel(Integer(xVariant)).Caption:='через вариант';
end;

[lexaltd]

Сообщение от Аватар

Так, в порядке извращения

procedure TForm1.Button2Click(Sender: TObject);
var xLabel: TLabel;
    xVariant: Variant;
begin
  xLabel:=TLabel.Create(Self);
  xLabel.Parent:=Self;
  xLabel.Caption:='Мой лэйбл';
  xLabel.Top:=40;
  xLabel.Left:=140;
  xVariant:=Integer(xLabel);
  TLabel(Integer(xVariant)).Caption:='через вариант';
end;

А нельзя ли как то сделать чтоб обращаться к переменой xVariant: Variant;

xVariant.Caption:='через вариант';

[Аватар]

Смотрите #2

[lexaltd]

Сообщение от Аватар

Смотрите #2

То есть нет?

Может можно каким нибуть извращением добиться?

[Аватар]

Сообщение от lexaltd

Может можно каким нибуть извращением добиться?

А я чем добился? Все равно класс исходного объекта должен фигурировать, иначе компилятор не поймет. Или на уровне адресов методов объекта, но для этого очень хорошо нужно знать устройство объекта на низком уровне. Оно надо?

[Аватар]

А зачем именно в Variant? Наверняка другое решение есть

[Человек_Борща]

Может можно каким нибуть извращением добиться?

Пишите свой OLE-сервер с блэкджеком и шляпами, регистрируете в системе. Используете где угодно, как угодно.

[Stilet]

Можно ли в тип данных Variant, добавить свой класс?

Он для этого не предназначен. Да и OleVariant для Дельфийских классов тоже не айс.