procedure TForm1.Button1Click(Sender: TObject); begin SetEdit('Edit1'); end; procedure TForm1.SetEdit(EditName: String); begin EditName.Text:='JJJJJ';//當然不行 end; 請問有誰知道,我是否可將EditName這個字串,直接指向Edit1 這個物件(不是用Create的方式,Edit1是已經存在的物件),然後如上自由使用

procedure TForm1.SetEdit(EditName: String);
var edt: TEdit;
begin
  edt := FindComponent(EditName) as TEdit;
  if edt <> nil then
    EditName.Text := 'JJJJJ';
end;

或者直接這樣:

procedure TForm1.Button1Click(Sender: TObject);
begin
  SetEdit(Edit1);
end;    procedure TForm1.SetEdit(edt: TEdit;);
begin
  edt.Text := 'JJJJJ';
end;

--- Everything I say is a lie.