procedure TForm1.Button1Click(Sender: TObject);
var test:string;
begin
test:='edit1';
tedit(test).text:='1';
end;end.
想要的结果为:名为edit1的edit组件赋值"1",请问怎样写才好.
var test:string;
begin
test:='edit1';
tedit(test).text:='1';
end;end.
想要的结果为:名为edit1的edit组件赋值"1",请问怎样写才好.
begin
test:='edit1';
( FindComponent(test) as Tedit).Text:='1';