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: