testreint.out

来自「格式化源码的最新板」· OUT 代码 · 共 36 行

unit testreint;

interface

type
  tfoo = class(TObject)
  public
    procedure foo; virtual;
  end;

  tbar = class(TFoo)
  public
    procedure foo; reintroduce;
  end;

  tlinebreak = class(TFoo)
  public
    procedure foo; reintroduce;
  end;

implementation

procedure tfoo.foo;
begin
end;

procedure tbar.foo;
begin
end;

procedure tlinebreak.foo;
begin
end;

end.