DruckenMister WongFacebook

Zugriff auf Komponenten über ihre Namen
System Win9x, WinNT, Win2000, WinXP, Vista, Win7
Ab Delphi-Version Delphi 1
Letzte Änderung 28.09.2010

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;
 
Ähnliche Seiten: