想的真周到，ABFramework，低代码开发，二次开发效率真高，Delphi朋友的福音啊

 //布尔型
  if (AnsiCompareText(tempParamName,trim('CheckClientDog'))=0) or
     (AnsiCompareText(tempParamName,trim('CheckServerDog'))=0) or
     (AnsiCompareText(tempParamName,trim('CheckClientLicense'))=0) or
     (AnsiCompareText(tempParamName,trim('CheckServerLicense'))=0) or
     (AnsiCompareText(tempParamName,trim('UseCustomObjectRight'))=0)  then
  begin
    AProperties:=EditRepositoryCheckBoxItem1.Properties;
  end
  //Guid默认类型
  else if (AnsiCompareText(tempParamName,trim('GuidDefaultType'))=0) then
  begin
    AProperties:=EditRepositoryComboBoxItem_GuidType.Properties;
  end
  //下拉枚举型
  else if (AnsiCompareText(tempParamName,trim('VersionNo'))=0) then
  begin
    AProperties:=EditRepositoryComboBoxItem_VersionNo.Properties;
  end
  //下拉数字列表型
  else if (AnsiCompareText(tempParamName,trim(''))=0)   then
  begin
    AProperties:=EditRepositoryComboBoxItem_NumberListMond.Properties;
  end
  //整型数字型
  else if  (AnsiCompareText(tempParamName,trim('Leftspacing'))=0) or
           (AnsiCompareText(tempParamName,trim('Topspacing'))=0) or
           (AnsiCompareText(tempParamName,trim('Righttspacing'))=0) or
           (AnsiCompareText(tempParamName,trim('Bottomspacing'))=0) or
           (AnsiCompareText(tempParamName,trim('Xspacing'))=0) or
           (AnsiCompareText(tempParamName,trim('Yspacing'))=0) or
           (AnsiCompareText(tempParamName,trim('FuncUpdateCount'))=0)   then
  begin
    AProperties:=EditRepositoryCalcItem_Int.Properties;
  end
  //Color型
  else if (AnsiCompareText(tempParamName,trim('NotNullFontColor'))=0) or
          (AnsiCompareText(tempParamName,trim('ReadOnlyFontColor'))=0)  then
  begin
    AProperties:=EditRepositoryColorComboBox1.Properties;
  end
  //日期型
  //开始使用日期
  else if (AnsiCompareText(tempParamName,trim('BegUseDate'))=0) then
  begin
    AProperties:=EditRepositoryDateItem1.Properties;
  end
  else if (AnsiCompareText(tempParamName,trim('ClientType'))=0) then
  begin
    AProperties:=EditRepositoryCheckComboBox_ClientType.Properties;
  end
  else if (AnsiCompareText(tempParamName,trim('CustomCustName'))=0) then
  begin
    AProperties:=EditRepositoryCheckComboBox_CustomCustName.Properties;
  end
  else if (AnsiCompareText(tempParamName,trim(''))=0) then
  begin
    AProperties:=EditRepositoryMemoItem1.Properties;
  end
  //其它无需处理的类型
  else
  begin

  end;