Einzelnen Beitrag anzeigen

hoika

Registriert seit: 5. Jul 2006
Ort: Magdeburg
8.275 Beiträge
 
Delphi 10.4 Sydney
 
#11

Re: Inkonsequente Vererbung oder Missverständnis

  Alt 3. Jul 2008, 12:11
Hallo Phoenix,

das trifft aber nur auf Funktionen/Prozeduren zu,
bei Klassen kommt es darauf an.

Delphi-Quellcode:
in MySecretUnit.dcu
  TMySecretClass = class
    protected
      procedure Test1;
    public
      procedure Test2;
  end;

in MyUnit.dcu
  TMyUnitClass = class(TMySecretClass)
  end;

in MyUnit2.pas
  TMyUnitClass2 = class(TMyUnitClass)
jetzt klappt natürlich folgendes
Delphi-Quellcode:
var
  MyClass: TMyUnitClass2;
begin
  MyClass:= TMyUnitClass2.Create;
  MyClass.Test1;
  MyClass.Test2;

Wichtig ist natürlich, dass die Methode public oder protected ist.


Heiko
Heiko
  Mit Zitat antworten Zitat