Delphi's static method override

StaticOverride.pas

program StaticOverride;

type
   TFoo = class
   public
     class procedure Bar; virtual;
   end;

   TBar = class(TFoo)
   public
     class procedure Bar; override;
   end;

class procedure TFoo.Bar;
begin
  Writeln(Self.ClassName);
end;

class procedure TBar.Bar;
begin
  Writeln(Self.ClassName);
end;

begin
  TFoo.Bar;
  TBar.Bar;

  Readln;
end.

出力結果:
TFoo
TBar