Beschränkter Bereich für Variable

[marabu]

Herzlich Willkommen in der Delphi-PRAXiS.

Kommst du damit zurecht?

Delphi-Quellcode:

function Successor(const n, min, max: Integer): Integer;
begin
  if Succ(n) > max
    then Result := min
    else Result := Succ(n);
end;

function Predecessor(const n, min, max: Integer): Integer;
begin
  if Pred(n) < min
    then Result := max
    else Result := Pred(n);
end;

Grüße vom marabu