Komponenten dynamisch aufrufen

[Funky-Sepp]

Ich hab das ja auch anders gemeint.

Ich hab z. B. 10 Editfelder:
Edit1
Edit2
Edit3
...
Edit10

dann eine SpinEdit
und einen Button:

Delphi-Quellcode:

procedure TForm1.ButtonClick( Sender : TObject );
begin
  ShowMessage( ( FindComponent( 'Edit' + IntToStr( SpinEdit.Value ) ) as TEdit ).Text );
end;

So jetzt gebe ich im Edit3.Text = 'Hallo' ein
und in der SpinEdit.Value = 3
drücke auf den Button
und er gibt mir den Text der in Edit3 hinterlegt ist als message aus.