Zitat von
Hallo_Thomas:
Delphi-Quellcode:
begin
Counter := 0;
for g := 0 to Anzeige.Count-1 do
begin
if StrToInt(Anzeige.Items[g]) in [1,3,7] then
Inc(Counter)
else if StrToInt(Anzeige.Items[g]) in [6] then
Counter := 0 ;
Label6.Caption:= IntToStr(Counter) ;
Der Counter wird bei 1, 3 und 7 um eins erhöht. Bei 6 wird er auf Null gesetzt. Was soll er mehr machen?
Du hast das alles in einer Schleife. Wenn die letzte Zahl eine 6 ist ist Counter auch 0.
Vielleicht nochmal durchdenken.
MfG
freak