Delphi VCL类接口应用教程，第二部分讲解有哪些？

本文共计757个文字，预计阅读时间需要4分钟。

关于使用VCL（Visual Component Library）接口调用不同类的相同方法，以下是一个简化的开头内容：

---

在VCL中，实现不同类间相同方法的一种方式是通过接口。接口允许您定义一组方法，这些方法可以在多个类中被实现，从而实现代码复用和功能的一致性。以下是实现这一目标的基本步骤和示例。

1. 定义接口：首先，您需要定义一个接口，该接口包含您希望在多个类中实现的方法。

2. 实现接口：接着，创建多个类，这些类将实现您定义的接口。

3. 使用接口：最后，通过接口调用方法，而不是直接调用特定类的实例方法。

以下是一个简单的示例代码，演示如何使用接口在VCL类中实现相同的方法。

pascalinterface

type // 定义一个接口 IMyInterface=interface ['{D2D4C0D7-0A8A-4B2E-8F7F-2E8F0C3F0A1A}'] procedure MyMethod; end;

type // 第一个类实现接口 TClassOne=class(TInterfacedObject, IMyInterface) public procedure MyMethod; override; end;

// 第二个类也实现接口 TClassTwo=class(TInterfacedObject, IMyInterface) public procedure MyMethod; override; end;

implementation

procedure TClassOne.MyMethod;begin // 实现第一个类的MyMethod Writeln('ClassOne - MyMethod executed');end;

procedure TClassTwo.MyMethod;begin // 实现第二个类的MyMethod Writeln('ClassTwo - MyMethod executed');end;

end.

在这个示例中，`IMyInterface` 接口定义了一个 `MyMethod` 方法。`TClassOne` 和 `TClassTwo` 都实现了这个接口。这样，您可以通过接口调用 `MyMethod`，而不需要关心具体是哪个类实现了该方法。

---

这个示例展示了如何在VCL中使用接口来实现不同类之间的相同方法。通过这种方式，您可以确保多个类之间的一致性，并且可以在任何地方通过接口类型来调用这些方法。

继续我之前关于使用VCL接口的调查.

How to implement identical methods with 2 and more Classes?

How to use Interface with VCL Classes?

我想有一个代码示例来演示两者在哪里以及如何协同工作.
或者两者的经典利益/用法是什么：

ISomething = interface ['{EFE0308B-A85D-4DF3-889C-40FBC8FE84D0}'] ... end; TSomeThing = class(TSomeVCLObject, ISomething) ... end; 想象一下,您有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;