Delphi Counter Beginnt nicht wieder mit zählen

Thema durchsuchen

Ansicht

Themen-Optionen

Counter Beginnt nicht wieder mit zählen

Ein Thema von Hallo_Thomas · begonnen am 19. Apr 2005 · letzter Beitrag vom 20. Apr 2005

Vorheriger Beitrag

Nächster Beitrag

freak4fun

Registriert seit: 22. Sep 2004
Ort: Hannover
1.807 Beiträge

Delphi 10.2 Tokyo Starter

Re: Counter Beginnt nicht wieder mit zählen

19. Apr 2005, 23:19

Zitat von Hallo_Thomas:

markieren

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.