Sorry, is schon spät und das Filmchen nebenbei hat sein übriges getan.
Also noch mal kurz zurück mein hauptproblem liegt wohl eindeutig in dieser Zeile würde ich sagen
Delphi-Quellcode:
else if StrToInt(Anzeige.Items[g]) in [6] then
Counter := 0 ;
Ich möchte einfach, dass wenn die 6 erscheint der Counter auf null schaltet und wenn nun wieder eine 1,3, oder 7 erscheint er wieder diese befehlszeile ausführt:
Delphi-Quellcode:
if StrToInt(Anzeige.Items[g]) in [1,3,7] then
Inc(Counter)
Irgendwie führt diese Befehlszeile dann aus, selbst wenn ich die drücke.
Delphi-Quellcode:
else if StrToInt(Anzeige.Items[g]) in [6] then
Counter := 0 ;
Dankeschön und gute Nacht!