Schleife für Label-Zuweisung

[DGL-luke]

Findcomponent würd ich da nicht hernehmen! ich würd die in einen array stecken:

Delphi-Quellcode:

var Labels: array[0..xxx] of TLabel;

procedure Labelset;
begin
  Labels[0] := LabelA;
  Labels[1] := LabelB;
  ...
  ...
end;

procedure Labelwrite;
var i: Integer;
begin
  for i := 0 to high(Labels) do
    Labels[i].Caption := cpations[i];
end;