← →Dimka Maslov
(2002-04-04 10:06)
[3]
IMyInterface=interface
["{2D67E340-4705-11D6-A1F0-444553540000}"]
function Funct:integer;
end;
TMyClass=class(TInterfacedObject,IMyInterface)
function Funct:integer;
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
p: IMyInterface;
begin
TMyClass.Create.GetInterface(IMyInterface, p);
// Здесь ты вызываешь методы интерфейса
ShowMessageFmt("IMyInterface.Funct returned: %d", [p.Funct]);
// Free или _Release вызывать не надо, всё вызовется автоматически
end;
function TMyClass.Funct:integer;
begin
Result:=3;
end;
Interface и указатель Найти похожие ветки
← →