Тема: Работа с inherited
Показать сообщение отдельно
  #3  
Старый 11.01.2009, 22:16
san-46 san-46 вне форума
Активный
  
Регистрация: 25.04.2008
Сообщения: 383
Репутация: 33
По умолчанию
Код:
procedure TMyType3.C;
begin
  TMyType(Self).Name := 'abcde';
  A; // message "abcde"
end;
__________________
Не забывайте делать резервные копии
Ответить с цитированием