ClassName ist falsch

[xZise]

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