Beschränkter Bereich für Variable

[dataspider]

Hi,

aus meiner Sicht durch ein Property relisierbar.

Delphi-Quellcode:

  privat
    FVariable: Integer;
    procedure SetVariable(const Value: Integer);
    { Private-Deklarationen }
  public
    property Variable: Integer read FVariable write SetVariable;
    { Public-Deklarationen }
  end;
  ...

implementation

procedure TForm1.SetVariable(const Value: Integer);
begin
  if FVariable <> Value then
  begin
    if Value in [1..3] then
      FVariable := Value
    else
      if Value > 3 then
        FVariable := 3
      else
        FVariable := 1;
  end;
end;

Cu, Frank