想的真周到，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;