Zitat von
xX0815Xx:
So meinte ich das ja (das untere)
Da ist es aber doch einfacher und wartbarer, die Überprüfung gleich im Setter vorzunehmen.
Delphi-Quellcode:
TBlubb = class
...
private
FWert: TWert;
function GetWert: TWert;
procedure SetWert(value: TWert);
...
public
property Wert: TWert read GetWert write SetWert;
...
end;
...
function TBlubb.GetWert: TWert;
begin
Result := FWert;
end;
procedure TBlubb.SetWert(value: TWert);
begin
if value <> Quatsch then
FWert := value;
end;
So ist gewährleistet, dass Du immer plausible Werte verwendest.