unit u1;
interface
type
c1 = class end;
procedure pr1;
implementation
uses u2;
procedure pr1;
begin
var v1:= new c1;
// в подсказке по точке не отображается pr2
v1.pr2;
end;
end.
unit u2;
uses u1;
procedure pr2(self: c1); extensionmethod;
begin end;
end.
bug.zip