Tach,
tut mir leid, aber ich glaube mein "Problem" ist nicht so richtig klar geworden. Und zwar wird
PruefeZugriff('Buch') nie in TBuchZeile oder TZeile sondern nur in TExemplarZeile aufgerufen. Die beiden Klassen TBuchZeile und TExemplarZeile sind beide von TZeile abgeleitet also sozusagen Geschwister.
Um also obiges Beispiel fortzusetzen:
Delphi-Quellcode:
var
Zeile : TZeile;
begin
Zeile := TBuchZeile.Create;
Zeile.IstDummy := true;
TExemplarZeile(Zeile).Buch := nil; // Hier würde der Fehler erzeugt
...
end;
Und nun müsste doch schon alleine der Zugriff auf Buch, welche ja nicht in TBuchZeile existiert einen Fehler produzieren?
Naja ich hänge mal die
Unit an.
MfG
xZise