📄 secondgunit.pas
字号:
(
(StrToFloat(Edit_W2111.Text)*StrToFloat(Edit_B2115.Text)+
StrToFloat(Edit_W2122.Text)*StrToFloat(Edit_B2125.Text)+
StrToFloat(Edit_W2133.Text)*StrToFloat(Edit_B2135.Text)+
StrToFloat(Edit_W2144.Text)*StrToFloat(Edit_B2145.Text)+
StrToFloat(Edit_W2155.Text)*StrToFloat(Edit_B2155.Text)
)*1000
)
)/1000
);
if ((strToFloat(Edit__B211.Text)+strToFloat(Edit__B212.Text)+strToFloat(Edit__B213.Text)+
strToFloat(Edit__B214.Text)+strToFloat(Edit__B215.Text))<>1)
then
ShowMessage('要求权重值相加之和等于1！');
end;
//--------------------------------------------------------------------
procedure TPartForm.Button8Click(Sender: TObject);
begin
//判断各隶属度的值与权值是否为空
if (Edit_W2211.Text='')or(Edit_B2211.Text='')or(Edit_B2212.Text='')or(Edit_B2213.Text='')or(Edit_B2214.Text='')or(Edit_B2215.Text='')
or(Edit_W2222.Text='')or(Edit_B2221.Text='')or(Edit_B2222.Text='')or(Edit_B2223.Text='')or(Edit_B2224.Text='')or(Edit_B2225.Text='')
or(Edit_W2233.Text='')or(Edit_B2231.Text='')or(Edit_B2232.Text='')or(Edit_B2233.Text='')or(Edit_B2234.Text='')or(Edit_B2235.Text='')
then
showmessage('对不起！请您填入完整的权重值或隶属度值！')
//若不为空，可以计算。
else
self.Edit__B221.Text:=FloatToStr(
(Round
(
(StrToFloat(Edit_W2211.Text)*StrToFloat(Edit_B2211.Text)+
StrToFloat(Edit_W2222.Text)*StrToFloat(Edit_B2221.Text)+
StrToFloat(Edit_W2233.Text)*StrToFloat(Edit_B2231.Text)
)*1000
)
)/1000
);
self.Edit__B222.Text:=FloatToStr(
(Round
(
(StrToFloat(Edit_W2211.Text)*StrToFloat(Edit_B2212.Text)+
StrToFloat(Edit_W2222.Text)*StrToFloat(Edit_B2222.Text)+
StrToFloat(Edit_W2233.Text)*StrToFloat(Edit_B2232.Text)
)*1000
)
)/1000
);
self.Edit__B223.Text:=FloatToStr(
(Round
(
(StrToFloat(Edit_W2211.Text)*StrToFloat(Edit_B2213.Text)+
StrToFloat(Edit_W2222.Text)*StrToFloat(Edit_B2223.Text)+
StrToFloat(Edit_W2233.Text)*StrToFloat(Edit_B2233.Text)
)*1000
)
)/1000
);
self.Edit__B224.Text:=FloatToStr(
(Round
(
(StrToFloat(Edit_W2211.Text)*StrToFloat(Edit_B2214.Text)+
StrToFloat(Edit_W2222.Text)*StrToFloat(Edit_B2224.Text)+
StrToFloat(Edit_W2233.Text)*StrToFloat(Edit_B2234.Text)
)*1000
)
)/1000
);
self.Edit__B225.Text:=FloatToStr(
(Round
(
(StrToFloat(Edit_W2211.Text)*StrToFloat(Edit_B2215.Text)+
StrToFloat(Edit_W2222.Text)*StrToFloat(Edit_B2225.Text)+
StrToFloat(Edit_W2233.Text)*StrToFloat(Edit_B2235.Text)
)*1000
)
)/1000
);
if ((strToFloat(Edit__B221.Text)+strToFloat(Edit__B222.Text)+strToFloat(Edit__B223.Text)+
strToFloat(Edit__B224.Text)+strToFloat(Edit__B225.Text))<>1)
then
ShowMessage('要求权重值相加之和等于1！');
end;
//--------------------------------------------------------------------
procedure TPartForm.Button9Click(Sender: TObject);
begin
//判断各隶属度的值与权值是否为空
if (Edit_W2311.Text='')or(Edit_B2311.Text='')or(Edit_B2312.Text='')or(Edit_B2313.Text='')or(Edit_B2314.Text='')or(Edit_B2315.Text='')
or(Edit_W2322.Text='')or(Edit_B2321.Text='')or(Edit_B2322.Text='')or(Edit_B2323.Text='')or(Edit_B2324.Text='')or(Edit_B2325.Text='')
or(Edit_W2333.Text='')or(Edit_B2331.Text='')or(Edit_B2332.Text='')or(Edit_B2333.Text='')or(Edit_B2334.Text='')or(Edit_B2335.Text='')
then
showmessage('对不起！请您填入完整的权重值或隶属度值！')
//若不为空，可以计算。
else
self.Edit__B231.Text:=FloatToStr(
(Round
(
(StrToFloat(Edit_W2311.Text)*StrToFloat(Edit_B2311.Text)+
StrToFloat(Edit_W2322.Text)*StrToFloat(Edit_B2321.Text)+
StrToFloat(Edit_W2333.Text)*StrToFloat(Edit_B2331.Text)
)*1000
)
)/1000
);
self.Edit__B232.Text:=FloatToStr(
(Round
(
(StrToFloat(Edit_W2311.Text)*StrToFloat(Edit_B2312.Text)+
StrToFloat(Edit_W2322.Text)*StrToFloat(Edit_B2322.Text)+
StrToFloat(Edit_W2333.Text)*StrToFloat(Edit_B2332.Text)
)*1000
)
)/1000
);
self.Edit__B233.Text:=FloatToStr(
(Round
(
(StrToFloat(Edit_W2311.Text)*StrToFloat(Edit_B2313.Text)+
StrToFloat(Edit_W2322.Text)*StrToFloat(Edit_B2323.Text)+
StrToFloat(Edit_W2333.Text)*StrToFloat(Edit_B2333.Text)
)*1000
)
)/1000
);
self.Edit__B234.Text:=FloatToStr(
(Round
(
(StrToFloat(Edit_W2311.Text)*StrToFloat(Edit_B2314.Text)+
StrToFloat(Edit_W2322.Text)*StrToFloat(Edit_B2324.Text)+
StrToFloat(Edit_W2333.Text)*StrToFloat(Edit_B2334.Text)
)*1000
)
)/1000
);
self.Edit__B235.Text:=FloatToStr(
(Round
(
(StrToFloat(Edit_W2311.Text)*StrToFloat(Edit_B2315.Text)+
StrToFloat(Edit_W2322.Text)*StrToFloat(Edit_B2325.Text)+
StrToFloat(Edit_W2333.Text)*StrToFloat(Edit_B2335.Text)
)*1000
)
)/1000
);
if ((strToFloat(Edit__B231.Text)+strToFloat(Edit__B232.Text)+strToFloat(Edit__B233.Text)+
strToFloat(Edit__B234.Text)+strToFloat(Edit__B235.Text))<>1)
then
ShowMessage('要求权重值相加之和等于1！');
end;
//--------------------------------------------------------------------
procedure TPartForm.Button10Click(Sender: TObject);
begin
//判断各隶属度的值与权值是否为空
if (Edit_W2411.Text='')or(Edit_B2411.Text='')or(Edit_B2412.Text='')or(Edit_B2413.Text='')or(Edit_B2414.Text='')or(Edit_B2415.Text='')
or(Edit_W2422.Text='')or(Edit_B2421.Text='')or(Edit_B2422.Text='')or(Edit_B2423.Text='')or(Edit_B2424.Text='')or(Edit_B2425.Text='')
then
showmessage('对不起！请您填入完整的权重值或隶属度值！')
//若不为空，可以计算。
else
self.Edit__B241.Text:=FloatToStr(
(Round
(
(StrToFloat(Edit_W2411.Text)*StrToFloat(Edit_B2411.Text)+
StrToFloat(Edit_W2422.Text)*StrToFloat(Edit_B2421.Text)
)*1000
)
)/1000
);
self.Edit__B242.Text:=FloatToStr(
(Round
(
(StrToFloat(Edit_W2411.Text)*StrToFloat(Edit_B2412.Text)+
StrToFloat(Edit_W2422.Text)*StrToFloat(Edit_B2422.Text)
)*1000
)
)/1000
);
self.Edit__B243.Text:=FloatToStr(
(Round
(
(StrToFloat(Edit_W2411.Text)*StrToFloat(Edit_B2413.Text)+
StrToFloat(Edit_W2422.Text)*StrToFloat(Edit_B2423.Text)
)*1000
)
)/1000
);
self.Edit__B244.Text:=FloatToStr(
(Round
(
(StrToFloat(Edit_W2411.Text)*StrToFloat(Edit_B2414.Text)+
StrToFloat(Edit_W2422.Text)*StrToFloat(Edit_B2424.Text)
)*1000
)
)/1000
);
self.Edit__B245.Text:=FloatToStr(
(Round
(
(StrToFloat(Edit_W2411.Text)*StrToFloat(Edit_B2415.Text)+
StrToFloat(Edit_W2422.Text)*StrToFloat(Edit_B2425.Text)
)*1000
)
)/1000
);
if ((strToFloat(Edit__B241.Text)+strToFloat(Edit__B242.Text)+strToFloat(Edit__B243.Text)+
strToFloat(Edit__B244.Text)+strToFloat(Edit__B245.Text))<>1)
then
ShowMessage('要求权重值相加之和等于1！');
end;
//--------------------------------------------------------------------
procedure TPartForm.Button11Click(Sender: TObject);
begin
//判断各隶属度的值与权值是否为空
if (Edit_W2511.Text='')or(Edit_B2511.Text='')or(Edit_B2512.Text='')or(Edit_B2513.Text='')or(Edit_B2514.Text='')or(Edit_B2515.Text='')
or(Edit_W2522.Text='')or(Edit_B2521.Text='')or(Edit_B2522.Text='')or(Edit_B2523.Text='')or(Edit_B2524.Text='')or(Edit_B2525.Text='')
or(Edit_W2533.Text='')or(Edit_B2531.Text='')or(Edit_B2532.Text='')or(Edit_B2533.Text='')or(Edit_B2534.Text='')or(Edit_B2535.Text='')
then
showmessage('对不起！请您填入完整的权重值或隶属度值！')
//若不为空，可以计算。
else
self.Edit__B251.Text:=FloatToStr(
(Round
(
(StrToFloat(Edit_W2511.Text)*StrToFloat(Edit_B2511.Text)+
StrToFloat(Edit_W2522.Text)*StrToFloat(Edit_B2521.Text)+
StrToFloat(Edit_W2533.Text)*StrToFloat(Edit_B2531.Text)
)*1000
)
)/1000
);
self.Edit__B252.Text:=FloatToStr(
(Round
(
(StrToFloat(Edit_W2511.Text)*StrToFloat(Edit_B2512.Text)+
StrToFloat(Edit_W2522.Text)*StrToFloat(Edit_B2522.Text)+
StrToFloat(Edit_W2533.Text)*StrToFloat(Edit_B2532.Text)
)*1000
)
)/1000
);
self.Edit__B253.Text:=FloatToStr(
(Round
(
(StrToFloat(Edit_W2511.Text)*StrToFloat(Edit_B2513.Text)+
StrToFloat(Edit_W2522.Text)*StrToFloat(Edit_B2523.Text)+
StrToFloat(Edit_W2533.Text)*StrToFloat(Edit_B2533.Text)
)*1000
)
)/1000
);
self.Edit__B254.Text:=FloatToStr(
(Round
(
(StrToFloat(Edit_W2511.Text)*StrToFloat(Edit_B2514.Text)+
StrToFloat(Edit_W2522.Text)*StrToFloat(Edit_B2524.Text)+
StrToFloat(Edit_W2533.Text)*StrToFloat(Edit_B2534.Text)
)*1000
)
)/1000
);
self.Edit__B255.Text:=FloatToStr(
(Round
(
(StrToFloat(Edit_W2511.Text)*StrToFloat(Edit_B2515.Text)+
StrToFloat(Edit_W2522.Text)*StrToFloat(Edit_B2525.Text)+
StrToFloat(Edit_W2533.Text)*StrToFloat(Edit_B2535.Text)
)*1000
)
)/1000
);
if ((strToFloat(Edit__B251.Text)+strToFloat(Edit__B252.Text)+strToFloat(Edit__B253.Text)+
strToFloat(Edit__B254.Text)+strToFloat(Edit__B255.Text))<>1)
then
ShowMessage('要求权重值相加之和等于1！');
end;
//--------------------------------------------------------------------
procedure TPartForm.Button12Click(Sender: TObject);
begin
//判断各隶属度的值与权值是否为空
if (Edit_W3111.Text='')or(Edit_B3111.Text='')or(Edit_B3112.Text='')or(Edit_B3113.Text='')or(Edit_B3114.Text='')or(Edit_B3115.Text='')
or(Edit_W3122.Text='')or(Edit_B3121.Text='')or(Edit_B3122.Text='')or(Edit_B3123.Text='')or(Edit_B3124.Text='')or(Edit_B3125.Text='')
or(Edit_W3133.Text='')or(Edit_B3131.Text='')or(Edit_B3132.Text='')or(Edit_B3133.Text='')or(Edit_B3134.Text='')or(Edit_B3135.Text='')
then
showmessage('对不起！请您填入完整的权重值或隶属度值！')
//若不为空，可以计算。
else
self.Edit__B311.Text:=FloatToStr(
(Round
(
(StrToFloat(Edit_W3111.Text)*StrToFloat(Edit_B3111.Text)+
StrToFloat(Edit_W3122.Text)*StrToFloat(Edit_B3121.Text)+
StrToFloat(Edit_W3133.Text)*StrToFloat(Edit_B3131.Text)
)*1000
)
)/1000
);
self.Edit__B312.Text:=FloatToStr(
(Round
(
(StrToFloat(Edit_W3111.Text)*StrToFloat(Edit_B3112.Text)+
StrToFloat(Edit_W3122.Text)*StrToFloat(Edit_B3122.Text)+
StrToFloat(Edit_W3133.Text)*StrToFloat(Edit_B3132.Text)
)*1000
)
)/1000
);
self.Edit__B313.Text:=FloatToStr(
(Round
(
(StrToFloat(Edit_W3111.Text)*StrToFloat(Edit_B3113.Text)+
StrToFloat(Edit_W3122.Text)*StrToFloat(Edit_B3123.Text)+
StrToFloat(Edit_W3133.Text)*StrToFloat(Edit_B3133.Text)
)*1000
)
)/1000
);
self.Edit__B314.Text:=FloatToStr(
(Round
(
(StrToFloat(Edit_W3111.Text)*StrToFloat(Edit_B3114.Text)+
StrToFloat(Edit_W3122.Text)*StrToFloat(Edit_B3124.Text)+
StrToFloat(Edit_W3133.Text)*StrToFloat(Edit_B3134.Text)
)*1000
)
)/1000
);
self.Edit__B315.Text:=FloatToStr(
(Round
(
(StrToFloat(Edit_W3111.Text)*StrToFloat(Edit_B3115.Text)+
StrToFloat(Edit_W3122.Text)*StrToFloat(Edit_B3125.Text)+
StrToFloat(Edit_W3133.Text)*StrToFloat(Edit_B3135.Text)
)*1000
)
)/1000
);
if ((strToFloat(Edit__B311.Text)+strToFloat(Edit__B312.Text)+strToFloat(Edit__B313.Text)+
strToFloat(Edit__B314.Text)+strToFloat(Edit__B315.Text))<>1)
then
ShowMessage('要求权重值相加之和等于1！');
end;
//--------------------------------------------------------------------
procedure TPartForm.Button13Click(Sender: TObject);
begin
//判断各隶属度的值与权值是否为空
if (Edit_W3211.Text='')or(Edit_B3211.Text='')or(Edit_B3212.Text='')or(Edit_B3213.Text='')or(Edit_B3214.Text='')or(Edit_B3215.Text='')
or(Edit_W3222.Text='')or(Edit_B3221.Text='')or(Edit_B3222.Text='')or(Edit_B3223.Text='')or(Edit_B3224.Text='')or(Edit_B3225.Text='')
or(Edit_W3233.Text='')or(Edit_B3231.Text='')or(Edit_B3232.Text='')or(Edit_B3233.Text='')or(Edit_B3234.Text='')or(Edit_B3235.Text='')
or(Edit_W3244.Text='')or(Edit_B3241.Text='')or(Edit_B3242.Text='')or(Edit_B3243.⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -