E1508. Лечиться ли Delphi 7?

← →
oxffff © (2007-02-02 16:44) [0]

type
TSlyObject=class(TObject,Iunknown)
protected
lUnknown:IUnknown;
property Unknown:IUnknown read lUnknown implements Iunknown;
public
end;

procedure TForm1.Button1Click(Sender: TObject);
var a:TSlyObject;
b:Iunknown;
begin
a:=TSlyObject2.Create;
b:=a; //Internal error here E1508.
end;

Delphi 2006 Sp2 не страдает этим.

Если bug fix для delphi 7

← →
oxffff © (2007-02-02 16:45) [1]

TSlyObject2=TSlyObject

← →
clickmaker © (2007-02-02 16:58) [2]

> oxffff © (02.02.07 16:44)

а почему не TInterfacedObject?

← →
oxffff © (2007-02-02 17:08) [3]

> а почему не TInterfacedObject?

Хочется в зависимости от необходимость инстанцировать объекты, которые либо ref, либо NoRef counting. + динамически менять поведение Iunknown.

Я уже давно сталкнулся с этими проблемами.

Но тогда решал их так.
b:=a as Iunknown вместо b:=a; //Internal error here E1508.

Что делать если компилятор не совершенен.

Но здесь этот финт не проходит.

← →
clickmaker © (2007-02-02 17:18) [4]

> [3] oxffff © (02.02.07 17:08)

у меня этот код работает
D7 Build 8.1 (Update Pack 1)

← →
oxffff © (2007-02-02 17:31) [5]

> clickmaker © (02.02.07 17:18) [4]
>
> > [3] oxffff © (02.02.07 17:08)
>
> у меня этот код работает
> D7 Build 8.1 (Update Pack 1)

У меня D7 4.453

Не могли ли вы предоставить link на update 1
на free :)

← →
clickmaker © (2007-02-02 17:34) [6]

ftp://ftpd.borland.com/devsupport/delphi/d7/update1r2/Delphi_71_Ent_Update_Inline/d7_ent_upd1_1.exe

← →
oxffff © (2007-02-02 17:34) [7]

> Не могли ли вы предоставить link на update 1

Ой я что-то обленился. Не утруждайтесь. Саму надо бы поискать.
Да 3 недели дома и воспаление легких дают знать. :)

← →
oxffff © (2007-02-02 17:35) [8]

> ftp://ftpd.borland.com/devsupport/delphi/d7/update1r2/Delphi_71_Ent_Update_Inline/d7_ent_upd1_1.
> exe

Ого. Огромнейшее спасибо.

> clickmaker © (02.02.07 17:34) [6]
> ftp://ftpd.borland.com/devsupport/delphi/d7/update1r2/Delphi_71_Ent_Update_Inline/d7_ent_upd1_1.
> exe

Поставил update.
Уже internal error E1513.

Первый раз компилируешь при
b:=a; internal error E1513.

Меняешь на b:=a as iunknown; Работает.

НО!!!

internal error E1513. Вылетаешь и при b:=a as iunknown.
меняешь на b:=a; Работает.
Чудеса.!!!

Делай билд, а не компиле или компилируй из командной строки, убивая dcu-шки, и будет работать всегда :)

> ЮЮ © (03.02.07 10:58) [10]

> Делай билд, а не компиле или компилируй из командной строки,
> убивая dcu-шки, и будет работать всегда :)

Да полный Rebuild помогает. Благодарю вас.

E1508. Лечиться ли Delphi 7? Найти похожие ветки