Self nicht definiert (Static Class Method)

[himitsu]

Ich wollte praktisch endlich mal die Excetions in meinen XML-Klassen aufräumen
und im Prinzip wird aus der übergebenen Klasse bzw. dem Objekt nur Klassennamen (.ClassName) ausgelesen.

Delphi-Quellcode:

Type EXMLException = Class(Exception)
    Constructor CreateEx(FunctionsClass: TClass; ...
    Constructor CreateEx(FunctionsObject: TObject; ...
  End;

Class Procedure TXMLFile.SetDefaultValueQuotation(Const Value: TWideString);
  Begin
    If (Value <> '"') and (Value <> '''') and (Value <> '') Then
      Raise EXMLException.CreateEx(Self, 'DefaultValueQuotation', @SInvalidValue);
    __DefaultValueQuotation := Value;
  End;

Ja OK, ich könnte natürlich direkt den Namen übergeben, aber dann müßt ich überall
Raise EXMLException.CreateEx(Self.ClassName, ... hinschreiben ... mir gefällt aber die kürzere Variante besser, wo dann nur innerhalb des Konstruktors dieses ausgelesen würde


[add]
@Bernhard Geyer:
neee, nicht bei der Definition, sondern bei den Parametern

Delphi-Quellcode:

Raise EXMLException.CreateEx(Self, ...
// wenn ich sozusagen das Self. weglasse, dann kame sowas raus
Raise EXMLException.CreateEx(, ...