VCLクラスでのインターフェイスの使用方法 - パート2

Question

VCLでのインターフェイスの使用に関する以前の調査を続けます。

How to implement identical methods with 2 and more Classes?

How to use Interface with VCL Classes?

私がどこでどのように二つが一緒に仕事を証明するためのコード例を持っていると思います。 または何2の古典的な利益/使い方です：

ISomething = interface 
['{EFE0308B-A85D-4DF3-889C-40FBC8FE84D0}'] 
... 
end; 

TSomeThing = class(TSomeVCLObject, ISomething) 
... 
end; 

Answer 1

あなたはTSomeThingとTSomeThingElseクラスを持っているが、彼らは共通の祖先クラスを持っていない想像してみてください。つまり、それらを同じ関数に渡すことや、共通のメソッドを呼び出すことはできません。両方のクラスに共有インターフェイスを追加することで、両方を行うことができます。例：

type 
    ISomething = interface 
    ['{EFE0308B-A85D-4DF3-889C-40FBC8FE84D0}'] 
    public 
    procedure DoSomething; 
    end; 

    TSomeThing = class(TSomeVCLObject, ISomething) 
    ... 
    procedure DoSomething; 
    end; 

    TSomeThingElse = class(TSomeOtherVCLObject, ISomething) 
    ... 
    procedure DoSomething; 
    end; 

procedure TSomeThing.DoSomething; 
begin 
    ... 
end; 

procedure TSomeThingElse.DoSomething; 
begin 
    ... 
end; 

procedure DoSomething(Intf: ISomething); 
begin 
    Intf.DoSomething; 
end; 

procedure Test; 
var 
    O1: TSomeThing; 
    O2: TSomeThingElse; 
    Intf: ISomething; 
begin 
    O1 := TSomeThing.Create(nil); 
    O2 := TSomeThingElse.Create(nil); 
    ... 
    if Supports(O1, ISomething, Intf) then 
    begin 
    Intf.DoSomething; 
    DoSomething(Intf); 
    end; 
    if Supports(O2, ISomething, Intf) then 
    begin 
    Intf.DoSomething; 
    DoSomething(Intf); 
    end; 
    ... 
    O1.Free; 
    O2.Free; 
end;