Delphi Counter Beginnt nicht wieder mit zählen - Seite 2

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

Hallo_Thomas

Registriert seit: 18. Apr 2005
Ort: Dresden
405 Beiträge

Delphi 2005 Professional

Counter Beginnt nicht wieder mit zählen

19. Apr 2005, 23:13

Ich habe folgendes Problem mit dem Quellcode; der Counter zählt zwar bei 1,3,7
aber er springt nicht auf null zurück bei 6 und beginnt auch nicht wieder von vorn zu zählen bei 1,3,7, wo liegt der Fehler?

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) ;