@developer_w0rld 僕のブログですね。final 指令は継承先で override できないようにするための指令です。
-----
TFoo = class
procedure Bar; virtual;
end;
TBaz = class(TFoo)
procedure Bar; override; final;
end;
TQuux = class(TBaz)
procedure Bar; override; // ここで E2352 エラー
end;
-----
posted at 00:38:02