Beschränkter Bereich für Variable

[Hobby-Programmierer]

Zitat von nupset:

Warum einfach, wenns auch kompliziert geht..?

Delphi-Quellcode:

test:=test+1;
if test=4 then test:=1;
if test=0 then test:=0;

Ich dachte Deine Variable sollte nur Werte innerhalb 1..3 annehmen?

Mein Vorschlag aus dem Kopf und ungetestet:

Delphi-Quellcode:

var i: Cardinal;
begin
  if i in [1..3] then
    // Dein Code wenn i < 4
   else
    i:= Low(i); // oder i:= 1
end;

sonst:

Delphi-Quellcode:

var i: Cardinal
begin
  if i > 3 then
    i:= 0;
end;

Musst Dich nur entscheiden welche untere Grenze gilt und die Beispiele entsprechend anpassen!!
Gruss Mario