Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.628 Beiträge
Delphi 12 Athens
|
AW: Eigenschaften in Zusammenhang mit Methoden mit Rückgabewert
15. Nov 2010, 11:20
Nochmal: der Setter ist immer eine Prozedur. Du könntest aber verschiedene Exception-Klassen definieren und diese dann entsprechend auslösen. Im aufrufenden Programm brauchst Du dann einen try-except-Block. Ungetestet:
Delphi-Quellcode:
type
EValueTooSmall = class( Exception);
EValueTooLarge = class( Exception);
procedure TDeineKlasse.SetTestProp( const value: integer);
begin
if value < 10 then
raise EValueTooSmall.Create(' Der Wert muss mindestens 10 betragen.')
else if value > 100 then
raise EValueTooLarge.Create(' Der Wert darf maximal 100 betragen.')
else
FTestProp := value;
end;
Detlef "Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
|