label´s zählen

[sniper_w]

Ich glaube, das ist schneller...

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  i, lCount: Integer;
  cLabel: TLabel;
begin
  lCount := 0;
  for i:=0 to ComponentCount-1 do
  begin
    if Components[i] is TLabel then
    begin
      cLabel := TLabel(Components[i]);
      // jetzt gewünschte abfrage machen
      if cLabel.Caption = 'x' then
      begin
        // hier zusammen zählen
        Inc(lCount);
      end;
    end;
  end;
end;