Вечер, пятница, голова не варит. Извините, если что элементарное спрашиваю.
Честно искал в форуме, но не нашел.
Не могу понять, че я не так делаю.
Подозреваю, что неправильно понял концепцию интерфейсов.
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
IMyInterface = interface
[{...}]
procedure proc1;
end;
IMyInterfaceEx = interface(IMyInterface)
[{...}]
procedure procex;
end;
class = class(TInterfacedObject, IMyInterfaceEx)
public
proc1;
procex;
end;
ClassFactory = class
class function createMy: IMyInterfaceEx;
end;
...
ClassFactory.createMy: IMyInterfaceEx
begin
Result := class.Create;
end;
...
var a: IMyInterface;
begin
a := ClassFactory.createMy; --Exception :((((
В чем проблема?
