immer zahlen zwischen 1-5

[Hawkeye219]

Hallo Michael,

mit dem Operator "mod" bist du auf dem richtigen Weg:

Delphi-Quellcode:

function Translate (aValue: Integer): Integer;
begin
  Result := Succ(Pred(aValue) mod 5);
end;

Gruß Hawkeye