Wie kann ich Komponenten zur Laufzeit über ihren Namen ansprechen?


Wie kann ich Edit1 bis Edit27 einen bestimmten Text zuweisen ohne

  Edit1.text:='bla';
  Edit2.text:='bla';
  ...

schreiben zu müssen?

Antwort: Über die Funktion "FindComponent":

  For i:=1 to 27 do
    (FindComponent('Edit'+IntToStr(i)) as TEdit).text := 'bla';
Delphi 1 Delphi 2 Delphi 3 Delphi 4
nicht getestet Version nicht betroffen getestet

siehe auch:


Delphi FAQ