immer zahlen zwischen 1-5

[xZise]

Das Problem bei deiner Liste ist, dass es eine 0 gibt! Aber eben nur eine ...

Deshalb müsstest du extra für Index = 0 eine Abfrage machen... Ansonsten könntest du es mit Mod lösen:

Delphi-Quellcode:

function Translate(x : Integer) : Byte;
begin
  if x = 0 then
    Result := 0
  else
    Result := x mod 5;
end;