Quelltext verkürzen

[Mooshead]

Hallo ich hätte da mal eine kleine Frage:

wenn ich z.B. viele Labels habe und allen die selbe Beschriftung geben möchte. kann man das auch kürzer schreiben als so:

Delphi-Quellcode:

begin
   label1.caption:='abc';
   label2.caption:='abc';
   label3.caption:='abc';
                          //usw....
   labelx.caption:='abc';
end;

[mkinzler]

Schleife mit .FindComponent

[Cyberbob]

Delphi-Quellcode:

for i := 1 to x do
  TLabel(Findcomponent(format('Label%d', [i]))).Caption := 'abc';

Achte hierbei aber darauf, dass du die Labels entsprechend benennen musst.

[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

[mkinzler]

Oder du legst einmalig einen Array für die Referenzen an.

[Mooshead]

Okay vielen Dank an alle.
Mit dem FindComponent habt ihr mir weiter geholfen. Ich wusste nur einfach nicht nach was ich suchen sollte aber jetzt weiß ich es ja :cheers: :dance: