Bestimmte Zahlenfolge aus Listbox im Label per count zeigen

[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