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