java - 德尔福: Constructing Abstract Class like Java

Question

只是好奇，我可以像 Java 风格一样在 Delphi 中构造一个抽象类吗？

Java声明:

public abstract class Foo {
  public abstract void test();
}

使用方法:

public void testCsontruct() {
  Foo clsfoo = new Foo(){
    public void test(){
      //....do something here

    }
  };
}

德尔福声明:

Tfoo = class
public
  procedure test; virtual; abstract;
end;

使用方法:

procedure testUse;
var
  foo:Tfoo;
begin
  foo:=Tfoo.Create; //can we implement the test method here ? how?
end;

Answer 1

该 Java 功能是匿名类。它们在许多场景中都很有用。与您所说明的一样，它们通常用于捕获封闭范围内的变量。

Delphi 中没有类似的语法。匿名方法很接近，但是没有语法允许您用匿名方法替换实例化对象的虚拟方法。

您需要子类化以提供虚拟方法的具体实现。您可以在编译时以通常的方式进行子类化，或者在运行时使用虚拟方法拦截器或一些类似的 VMT 技巧进行子类化。