Hallo ihr,
ich habe ein Problem mit Classname. Und zwar ist dieser Wert nicht zwingend richtig.
Ich habe einfach mal folgende Prozedur geschrieben:
Delphi-Quellcode:
procedure TZeile.PruefeZugriff(const AName: string);
begin
if FDummy then
raise EKeinZugriffDaDummy.CreateFmt('Kein Zugriff auf die Variable/Methode %s der Klasse %s, da es sich um ein Dummy handelt', [AName, Self.ClassName]);
end;
Jetzt ist das Problem, dass in "ClassName" nicht der richtige Wert steht:
Zitat:
---------------------------
Liberate
---------------------------
Kein Zugriff auf die Variable/Methode Buch der Klasse TBuchZeile, da es sich um ein Dummy handelt.
---------------------------
OK
---------------------------
Für sich gesehen kein Problem. Nur sobald man den Code durchsucht, wird man feststellen, dass es die Klasse TBuchZeile nie den obigen Fehler aufrufen wird.
Woran könnte das liegen? Könnte da an einer folgenden Definition liegen:
Delphi-Quellcode:
var
Zeile : TZeile;
begin
Zeile := TBuchZeile.Create;
...
end;
Wobei dann müsste der Aufruf selber schon Probleme bereiten
MfG
xZise