Добрый день! Вопрос по ООП. Допустим у меня есть класс C1, который имеет два метода M1 и M2:

code:

C1 = class
  function M1: string;
  function M2: string;
end;

в реализации M1 вызывает M2:

code:

function C1.M1(): string;
  begin
    Resul := Self.M2();
  end;

function C1.M2(): string;
  begin
    Resul := 'C1 class';
  end;

Далее я создаю класс C2 - наследника от C1: [Code] C2 = class( C1 ) function M1: string; function M2: string; end ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=82502