Topic: Максимальное значение (Max) K2_1,K2_2,K2_3,K2_4,K2_5
Добрый день, подскажите пожалуйста как получить максимальное значение из полученных данных, а именно сделал процедуру, все протестировал по отдельности, работает, теперь нужно чтобы К2 был равен максимальному значению из K2_1,K2_2,K2_3,K2_4,K2_5, в интернете поискал но там в основном выборка из массива, а мне нужно не из массива, по видимому нужно задать минимальное и максимальное значение и соответствующее сравнение, подскажите как реализовать ?
Заранее благодарю
procedure Insurance_Button3_OnClick (Sender: TObject; var Cancel: boolean);
var
K1,K2,K2_1,K2_2,K2_3,K2_4,K2_5,K3,K4,K5,K6: Double;
begin
If Insurance.ComboBox12.Text = ' ' then
K3:= 1
else
K3:= 1.6;
begin
K1:= sqlexecute('select TypeVehicleRatio from TypeVehicle where TypeAuto = "'+Insurance.ComboBox2.Text+'"');
K4:= sqlexecute('select LocationRatio from RegistrationAuto where LocationAuto = "'+Insurance.ComboBox1.Text+'"');
K5:= sqlexecute('select DiagnCardRatio from DiagnosticCard where DiagnCardYesNo = "'+Insurance.ComboBox9.Text+'"');
K6:= sqlexecute('select InsPeriodRatio from InsurancePeriod where InsPeriod = "'+Insurance.ComboBox10.Text+'"');
//K2:= Max(K2_1,K2_2,K2_3,K2_4,K2_5);
K2_1:= sqlexecute('select AgeExpDrRatio from AgeExpDriver where AgeExpDriving = "'+Insurance.ComboBox4.Text+'"');
K2_2:= sqlexecute('select AgeExpDrRatio from AgeExpDriver where AgeExpDriving = "'+Insurance.ComboBox5.Text+'"');
K2_3:= sqlexecute('select AgeExpDrRatio from AgeExpDriver where AgeExpDriving = "'+Insurance.ComboBox6.Text+'"');
K2_4:= sqlexecute('select AgeExpDrRatio from AgeExpDriver where AgeExpDriving = "'+Insurance.ComboBox7.Text+'"');
K2_5:= sqlexecute('select AgeExpDrRatio from AgeExpDriver where AgeExpDriving = "'+Insurance.ComboBox8.Text+'"');
Insurance.edit1.value:= 1680*K1*K2(?)*K3*K4*K5*K6;
end;
end;