Performante Lösung gesucht (Labels füllen)!

[Sunlight7]

Wenn ich Dich richtig verstanden habe, ginge es so.
Dazu mußt Du jedem Label den Tag als ID setzen.
Label1.Tag=1
...
Label51.Tag=51

Oder die Funktion umschreiben und die Zahl des Labelnamens als ID verwenden.

Delphi-Quellcode:

...
   var i:Integer;
       lbl:TLabel;
begin
   For i:=0 to ComponentCount-1 do
      if Components[i] is TLabel then
         if TLabel(Components[i]).Tag<=25 then begin
            lbl:=FindLabelPerTag(TLabel(Components[i]).Tag+50);
            If lbl<>nil then
               TLabel(Components[i]).Caption:=IntToStr(lbl.Tag)+'...';
         end;
...

function TForm1.FindLabelPerTag(const Tag:Integer):TLabel;
   var i:Integer;
begin
   Result:=nil;

   For i:=0 to ComponentCount-1 do
      if Components[i] is TLabel then
         if TLabel(Components[i]).Tag=Tag then begin
            Result:=TLabel(Components[i]);
            Exit;
         end;
end;