delphi中实现用字符串表示并操作控件的方法。

来源：互联网发布：百度搜索源码编辑：程序博客网时间：2024/04/26 09:21

下面代码用字符串实现了对控件的操作，其中所有控件都在panel1内，

StrEdtProNum代表Tedit控件EdtProNum，其它同。

procedure TPM_FrmCFProPlan_Mon.CbUseMatUnit_1Change(Sender: TObject);
var
StrEdtProNum:String;
StrEdtClassNum:String;
StrEdtMatNum:String;
StrCbUseMat:String;
begin
try

     StrEdtProNum:='';
     StrEdtClassNum:='';
     StrEdtMatNum:='';
     StrCbUseMat:='';
     i:=1;
     for i:=1 to 15 do
     begin
          StrCbUseMat:='CbUseMatUnit_'+InttoStr(i)+'';
          StrEdtProNum:='EdtProNum_'+InttoStr(i)+'';
          StrEdtClassNum:='EdtClassNum_'+InttoStr(i)+'';
          StrEdtMatNum:='EdtMatNum_'+InttoStr(i)+'';
     //Compute Values of ProNum1 ClassNum1 and MatNum1
      if TComboBox(Panel1.FindChildControl(StrCbUseMat)).Text='公司' then
       begin
         EdtProNum1.Text:=InttoStr(Round(Strtofloat(TEdit(Panel1.FindChildControl(StrEdtProNum)).Text)+Strtofloat(EdtProNum1.Text)));
         EdtClassNum1.Text:=InttoStr(Round(Strtofloat(TEdit(Panel1.FindChildControl(StrEdtClassNum)).Text)+Strtofloat(EdtClassNum1.Text)));
         EdtMatNum1.Text:=InttoStr(Round(Strtofloat(TEdit(Panel1.FindChildControl(StrEdtMatNum)).Text)+Strtofloat(EdtMatNum1.Text)));
       end;
       //Compute Values of ProNum2 ClassNum2 and MatNum2
       if TComboBox(Panel1.FindChildControl(StrCbUseMat)).Text='住金公司' then
       begin
         EdtProNum2.Text:=InttoStr(Round(Strtofloat(TEdit(Panel1.FindChildControl(StrEdtProNum)).Text)+Strtofloat(EdtProNum2.Text)));
         EdtClassNum2.Text:=InttoStr(Round(Strtofloat(TEdit(Panel1.FindChildControl(StrEdtClassNum)).Text)+Strtofloat(EdtClassNum2.Text)));
         EdtMatNum2.Text:=InttoStr(Round(Strtofloat(TEdit(Panel1.FindChildControl(StrEdtMatNum)).Text)+Strtofloat(EdtMatNum2.Text)));
       end;
     end;
except
     ShowMessage('输入数据格式不正确，请重新输入！')
end;
end;