Quelltext verkürzen

[marabu]

Hallo,

abgesehen von der Identifizierung der Labels über ihren Komponentennamen gibt es noch andere Möglichkeiten. Du kannst die Labels an ihrem Tag-Value erkennen und über ihren Owner besuchen - oder vielleicht haben alle relevanten Labels einen gemeinsamen Parent:

Delphi-Quellcode:

procedure SetCaptionOfLabels(aParent: TWinControl; aCaption: string);
var
  i: Integer;
begin
  for i := 0 to Pred(aParent.ControlCount) do
    if aParent.Controls[i] is TLabel then
      with aParent.Controls[i] as TLabel do
        Caption := aCaption;
end;

procedure TDemoForm.ButtonClick(Sender: TObject);
begin
  SetCaptionOfLabels(Panel, 'abc');
end;

Grüße vom marabu