globale Variablen?

[DeddyH]

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.