А можно ли сократить данный код?

Question

Другие языки программирования и технологии

А можно ли сократить данный код?

procedure TForm2.RadioGroup7Click(Sender: TObject); begin if (RadioGroup1.ItemIndex=0) and (RadioGroup2.ItemIndex=5) and (RadioGroup4.ItemIndex=0) and (RadioGroup5.ItemIndex=0) and (RadioGroup6.ItemIndex=4) and (RadioGroup7.ItemIndex=3) then a:=2.8; if (RadioGroup1.ItemIndex=0) and (RadioGroup2.ItemIndex=5) and (RadioGroup4.ItemIndex=0) and (RadioGroup5.ItemIndex=0) and (RadioGroup6.ItemIndex=7) and (RadioGroup7.ItemIndex=3) then a:=3.7; if (RadioGroup1.ItemIndex=0) and (RadioGroup2.ItemIndex=5) and (RadioGroup4.ItemIndex=0) and (RadioGroup5.ItemIndex=2) and (RadioGroup6.ItemIndex=4) and (RadioGroup7.ItemIndex=3) then a:=3.3; if (RadioGroup1.ItemIndex=0) and (RadioGroup2.ItemIndex=5) and (RadioGroup4.ItemIndex=0) and (RadioGroup5.ItemIndex=2) and (RadioGroup6.ItemIndex=7) and (RadioGroup7.ItemIndex=3) then a:=4.3; if (RadioGroup1.ItemIndex=0) and (RadioGroup2.ItemIndex=5) and (RadioGroup4.ItemIndex=1) and (RadioGroup5.ItemIndex=0) and (RadioGroup6.ItemIndex=5) and (RadioGroup7.ItemIndex=0) then a:=20.7; if (RadioGroup1.ItemIndex=0) and (RadioGroup2.ItemIndex=0) and (RadioGroup4.ItemIndex=0) and (RadioGroup5.ItemIndex=1) and (RadioGroup6.ItemIndex=4) and (RadioGroup7.ItemIndex=3) then a:=1; if (RadioGroup1.ItemIndex=0) and (RadioGroup2.ItemIndex=0) and (RadioGroup4.ItemIndex=0) and (RadioGroup5.ItemIndex=2) and (RadioGroup6.ItemIndex=4) and (RadioGroup7.ItemIndex=3) then a:=0.7; if (RadioGroup1.ItemIndex=0) and (RadioGroup2.ItemIndex=6) and (RadioGroup4.ItemIndex=0) and (RadioGroup5.ItemIndex=1) and (RadioGroup6.ItemIndex=7) and (RadioGroup7.ItemIndex=3) then a:=5.4; if (RadioGroup1.ItemIndex=0) and (RadioGroup2.ItemIndex=6) and (RadioGroup4.ItemIndex=0) and (RadioGroup5.ItemIndex=2) and (RadioGroup6.ItemIndex=7) and (RadioGroup7.ItemIndex=3) then a:=3.8; end;

HT

Homayoon Totakhil

654

09.07.2011

Похожие вопросы

Answer 1 · 2011-04-28 17:57:55

например, так
if (RadioGroup1.ItemIndex=0) then
if (RadioGroup4.ItemIndex=1) and (RadioGroup7.ItemIndex=0) then begin
if (RadioGroup2.ItemIndex=5) and (RadioGroup5.ItemIndex=0) and (RadioGroup6.ItemIndex=5) then a:=20.7 end
else
if (RadioGroup4.ItemIndex=0) and (RadioGroup7.ItemIndex=3) then
if (RadioGroup2.ItemIndex=0) and (RadioGroup6.ItemIndex=4) then begin
if (RadioGroup5.ItemIndex=1) then a:=1 else if (RadioGroup5.ItemIndex=2) then a:=0.7 end
else
if (RadioGroup2.ItemIndex=6) and (RadioGroup6.ItemIndex=7) then begin
if (RadioGroup5.ItemIndex=1) then a:=5.4else if (RadioGroup5.ItemIndex=2) then a:=3.8 end
else
if (RadioGroup2.ItemIndex=5) and (RadioGroup5.ItemIndex=2) then begin
if (RadioGroup6.ItemIndex=4) then a:=3.3 else if (RadioGroup6.ItemIndex=7) then a:=4.3 end
else
if (RadioGroup2.ItemIndex=5) and (RadioGroup5.ItemIndex=0) then begin
if (RadioGroup6.ItemIndex=4) then a:=2.8 else if (RadioGroup6.ItemIndex=7) then a:=3.7 end;
если еще исключить проверки, которые не могут выполняться в принципе, то можно еще немало сократить

ДК

Данияр Каисыков

19 025

Лучший ответ

28.04.2011

Answer 2 · 2011-04-28 18:07:00

Можно попробовать так
procedure TForm2.RadioGroup7Click(Sender: TObject);
begin
if (RadioGroup1.ItemIndex=0) and (RadioGroup2.ItemIndex=5) and (RadioGroup4.ItemIndex=0) then
begin
if (RadioGroup5.ItemIndex=0) and (RadioGroup6.ItemIndex=4) and (RadioGroup7.ItemIndex=3) then a:=2.8;
if (RadioGroup5.ItemIndex=0) and (RadioGroup6.ItemIndex=7) and (RadioGroup7.ItemIndex=3) then a:=3.7;
if (RadioGroup5.ItemIndex=2) and (RadioGroup6.ItemIndex=4) and (RadioGroup7.ItemIndex=3) then a:=3.3;
if (RadioGroup5.ItemIndex=2) and (RadioGroup6.ItemIndex=7) and (RadioGroup7.ItemIndex=3) then a:=4.3;
end;

if (RadioGroup1.ItemIndex=0) and (RadioGroup2.ItemIndex=5) and (RadioGroup4.ItemIndex=1) then
if (RadioGroup5.ItemIndex=0) and (RadioGroup6.ItemIndex=5) and (RadioGroup7.ItemIndex=0) then a:=20.7;

if (RadioGroup1.ItemIndex=0) and (RadioGroup2.ItemIndex=0) and (RadioGroup4.ItemIndex=0) then
begin
if (RadioGroup5.ItemIndex=1) and (RadioGroup6.ItemIndex=4) and (RadioGroup7.ItemIndex=3) then a:=1;
if (RadioGroup5.ItemIndex=2) and (RadioGroup6.ItemIndex=4) and (RadioGroup7.ItemIndex=3) then a:=0.7;
end;
if (RadioGroup1.ItemIndex=0) and (RadioGroup2.ItemIndex=6) and (RadioGroup4.ItemIndex=0) then
begin
if (RadioGroup5.ItemIndex=1) and (RadioGroup6.ItemIndex=7) and (RadioGroup7.ItemIndex=3) then a:=5.4;
if (RadioGroup5.ItemIndex=2) and (RadioGroup6.ItemIndex=7) and (RadioGroup7.ItemIndex=3) then a:=3.8;
end;
end.

Дмитрий Родевич

59 640

28.04.2011

Answer 3 · 2011-04-28 17:42:40

обратите внимание: ответ исправлен. порядок составления x изменен на обратный

x := RadioGroup1.ItemIndex;
x := 10*x+RadioGroup2.ItemIndex;
x := 10*x+RadioGroup4.ItemIndex;
x := 10*x+RadioGroup5.ItemIndex
x := 10*x+RadioGroup6.ItemIndex;
x := 10*x+RadioGroup7.ItemIndex;

case (x) of
050043: a:=2.8;
050073: a:=3.7;
...
end

Николай Ващенко

17 923

28.04.2011