Dynamischer Verweis auf Komponente

[Uwe Raabe]

Vielleicht suchst du ja die Methode FindComponent?

Delphi-Quellcode:

procedure TForm325.Button1Click(Sender: TObject);
var
  btn: TButton;
  edtE: TEdit;
  edtP: TEdit;
  idx: Integer;
begin
  btn := Sender as TButton;
  idx := ExtractButtonNumber(btn.Name);
  edtE := FindComponent(Format('Tool%dE', [idx])) as TEdit;
  edtP := FindComponent(Format('Tool%dP', [idx])) as TEdit;
  ShellExecute(Handle, 'open', PChar(edtE.text), PChar(edtP.Text), nil, SW_SHOW);
end;