挣你20分不容易啊。procedure TForm1.Button3Click(Sender: TObject); var inputs,outs:string; p,i:integer; cname,cprop:string; c:TComponent; begin inputs:=edit2.Text; outs:=''; p:=Pos('.',inputs); if p<1 then exit; cname:=Copy(inputs,1,p-1); cprop:=Copy(inputs,p+1,Length(inputs)); for i:= 0 to self.Componentcount -1 do if self.Components[i].Name = cname then begin c:=Components[i]; outs:=GetPropValue(c,cprop); break; end; if outs<>'' then Edit2.text := outs; end;
edit1.text = edit2.text;
我只在edit2中把它写进去(比如Edit1.left) 他结果就可以显示出来
这句话是什么意思??
也就是说在edit2中输入字符串edit1.text(或者edit1.left或者其他)
然后就让它显示edit1.text(或者edit1.left或者其他)的值
var
inputs,outs:string;
p,i:integer;
cname,cprop:string;
c:TComponent;
begin
inputs:=edit2.Text;
outs:='';
p:=Pos('.',inputs);
if p<1 then exit;
cname:=Copy(inputs,1,p-1);
cprop:=Copy(inputs,p+1,Length(inputs));
for i:= 0 to self.Componentcount -1 do
if self.Components[i].Name = cname then
begin
c:=Components[i];
outs:=GetPropValue(c,cprop);
break;
end;
if outs<>'' then Edit2.text := outs;
end;