Label-Array: Verwaltung und Nutzung einzelner Labels?

[DGL-luke]

klar...

Delphi-Quellcode:

labels[0] := Label1;
labels[1] := Label2;

//oder intelligent, aber weniger performant
//labels müssen Label1, Label2, Label3 etc. heißen!

for i := 0 to high(labels) do
  labels[i] := FindComponent('Label'+inttostr(i+1)) as TLabel;

//oder noch intelligenter und auch ein bisschen performanter
//dabei werden die controls nur einmal komplett durchgesucht

for i := 0 to ControlCount-1 do
  if copy(Controls[i].Name,1,length('Label')) = 'Label' then
    labels[strtoint(copy(Controls[i].Name,length('Label')+1,5))] := Controls[i] as TLabel;

EDIT: eins hinzugefügt.