Bestimmte Zahlenfolge aus Listbox im Label per count zeigen

[Hallo_Thomas]

Da ich aktuelle Items in meiner Listbox oben angebe, gebe ich folgenden Befehl ein:


Anzeige.Items.Insert(0, a);

Meine Countdarstellung erfolgt im Moment so:


Label1.Caption:=IntToStr(Listbox1.Items.Count);


Problem:
Ich hätte gern einen Count der bei den Zahlen 1,3,7 mitzählt,
sollte eine 6 kommen sollte wieder auf NULL springen.

Dankeschön

[alcaeus]

Lauf mit einer Schleife durch die Listbox, und inkrementiere einen Counter bei bestimmten Zahlen, oder resette ihn bei anderen.

Greetz
alcaeus

[Hallo_Thomas]

Ich bin da noch blutiger anfäner, wie soll das gehen?

[alcaeus]

Delphi-Quellcode:

var
  i, Counter: Integer;
begin
  Counter := 0;
  for i := 0 to ListBox1.Count-1 do
  begin
    if StrToInt(ListBox1.Items[i]) in [1,3,7] then
      Inc(Counter)
    else if StrToInt(ListBox1.Items[i] = 6 then
      Counter := 0;
  end;
end;

Ueber den Einbau und die Erweiterung lass ich dich nachdenken....

Greetz
alcaeus

[Hallo_Thomas]

sieht erstmal gut aus, werds heut abend gleich mal probieren,

Dankeschön