Eine Schleife für die Labels mit Variablenzuordnung(Array)?

[Hallo_Thomas]

@Khabarakh

hab das probiertt, funkt nich

Delphi-Quellcode:

begin
  for i := 0 to Form1.Anzeige.Count - 1 do
  begin
    s := Form1.Anzeige.Items[i];
    case s[Length(s)] of
      '0'..'6':
        if StrToInt(s) < 40 then
          Inc(Counte[StrToInt(s[Length(s)])])
        else
          Counte[StrToInt(s[Length(s)])] := 0;
      '7'..'9':
        if StrToInt(s) < 30 then
          Inc(Counte[StrToInt(s[Length(s)])])
        else
          Counte[StrToInt(s[Length(s)])] := 0;
    end; 
  end;
  for i := 0 to 9 do
    (FindComponent('Label'+IntToStr(i+192)) as TLabel).Caption:=IntToStr(Counte[i]);
 end;

hab das probiert funkt nich

Delphi-Quellcode:

var index,ii,i:integer;
begin
for i := 0 to form1.Anzeige.Count - 1 do
  begin
    s := Form1.Anzeige.Items[i];
    Index := StrToInt(s[Length(s)]);
    for ii := 0 to 9 do
      if (Index = ii) and (Counte[Index] < 30 + Integer(Index <= 6) * 10) then
        Inc(Counte[Index])
      else
        Counte[Index] := 0;
        for x:= 0 to 9 do
    (   FindComponent('Label'+IntToStr(x+192)) as TLabel).Caption:=IntToStr(Counte[x]);
  end;
  end;

P.S. können wir uns auf diese Zeile einigen, denn hier muss der Fehler liegen

( FindComponent('Label'+IntToStr(x+192)) as TLabel).Caption:=IntToStr(Counte[x]);

P.S. hier hieß es nicht Counter weil ich hier den Counter schon als normale Variable vergeben habe