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
