Home » Tipps & Tricks » Komponenten » Allgemein » Zugriff auf Komponenten über ihre Namen

Zugriff auf Komponenten über ihre Namen

Manchmal ist es nötig von, sagen wir mal 20 Komponenten eine ganz bestimmte Eigenschaft zu ändern. Normalerweise müsste man dies schreiben:

Label1.Caption:='Hallo';
Label2.Caption:='Hallo';
Label3.Caption:='Hallo';
Label4.Caption:='Hallo';
usw.
...

Dies kann man aber auch anders lösen.Nutze dazu die Funktion FindComponent:

procedure TForm1.Button1Click(Sender: TObject);
var
  I: Integer;
begin
  For i:=1 to 20 do
    (FindComponent('Label'+IntToStr(i)) as TLabel).caption:= 
      'Hallo';
end;