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(, ...