Как правильно заменить данную часть кода?

[Vova777]

Как можно более грамотно записать данный код?

begin
  ...
  if ... then ...;
  if ... then ...;
  if ... then ...;
  if ... then ...;
  if ... then ...;
  if ... then ...;
  if ... then ...;
  if ... then ...;
  if ... then ...;
  if ... then ...;
  if ... then ...;
  if ... then ...;
  if ... then ...;
  ...
end;

[Человек_Борща]

сase of //

[eoln]

ИМХО, в данном примере никак.
Всё зависит от ситуации... возможно, получится в цикл завернуть, если условия более-менее однородные, а может и не получится; может case подойдёт, а может не подойдёт и т.д. и т.п.

[Vova777]

Сообщение от Человек_Борща

сase of //

т.е. если мне надо так:

  if ColSel2 = $000010 then Label1.Caption:= 'объект 10';
  if ColSel2 = $000000 then Label1.Caption:= 'объект 00';
  if ColSel2 = $000001 then Label1.Caption:= 'объект 01';
  if ColSel2 = $000002 then Label1.Caption:= 'объект 02';
  if ColSel2 = $000003 then Label1.Caption:= 'объект 03';
  if ColSel2 = $000004 then Label1.Caption:= 'объект 04';
  if ColSel2 = $000005 then Label1.Caption:= 'объект 05';
  if ColSel2 = $000006 then Label1.Caption:= 'объект 06';
  if ColSel2 = $000007 then Label1.Caption:= 'объект 07';
  if ColSel2 = $000008 then Label1.Caption:= 'объект 08';
  if ColSel2 = $000009 then Label1.Caption:= 'объект 09';

мне теперь так записать:

case ColSel2 of
  $000010: Label1.Caption:= 'объект 10';
  $000000: Label1.Caption:= 'объект 00';
  $000001: Label1.Caption:= 'объект 01';
  $000002: Label1.Caption:= 'объект 02';
  $000003: Label1.Caption:= 'объект 03;
  $000004: Label1.Caption:= 'объект 04';
...
end;

правильно?

[Vova777]

А если мне вот это надо аккуратно оформить, тогда как?

         if s2[Sinc] = '*' then
         begin
           Image1.Canvas.Draw(Xspt, Yspt, a[10]);
           ColSel:= $000010;
         end;
         if s2[Sinc] = '0' then
         begin
           Image1.Canvas.Draw(Xspt, Yspt, a[0]);
           ColSel:= $000000;
         end;
         if s2[Sinc] = '1' then
         begin
           Image1.Canvas.Draw(Xspt, Yspt, a[1]);
           ColSel:= $000001;
         end;
         if s2[Sinc] = '2' then
         begin
           Image1.Canvas.Draw(Xspt, Yspt, a[2]);
           ColSel:= $000002;
         end;
         if s2[Sinc] = '3' then
         begin
           Image1.Canvas.Draw(Xspt, Yspt, a[3]);
           ColSel:= $000003;
         end;
         if s2[Sinc] = '4' then
         begin
           Image1.Canvas.Draw(Xspt, Yspt, a[4]);
           ColSel:= $000004;
         end;
         if s2[Sinc] = '5' then
         begin
           Image1.Canvas.Draw(Xspt, Yspt, a[5]);
           ColSel:= $000005;
         end;
         if s2[Sinc] = '6' then
         begin
           Image1.Canvas.Draw(Xspt, Yspt, a[6]);
           ColSel:= $000006;
         end;
         if s2[Sinc] = '7' then
         begin
           Image1.Canvas.Draw(Xspt, Yspt, a[7]);
           ColSel:= $000007;
         end;
         if s2[Sinc] = '8' then
         begin
           Image1.Canvas.Draw(Xspt, Yspt, a[8]);
           ColSel:= $000008;
         end;
         if s2[Sinc] = '9' then
         begin
           Image1.Canvas.Draw(Xspt, Yspt, a[9]);
           ColSel:= $000009;
         end;

[Человек_Борща]

правильно?

да.

А если мне вот это надо аккуратно оформить, тогда как?

var
 iChar:ShortInt;
...
 iChar:=Ord(s2[Sinc]);
 case iChar of
 Ord('1'): ... 
 end;

Но думаю тут и без переменной можно обойтись, и сразу приводить в число.

[Stilet]

тогда как?

Тогда так:

const s='0123456789*';
var i:integer;
...
i:=pos(s2[Sinc],s)-1;
if (i>=low(a)and(i<=high(a)) then
         begin
           Image1.Canvas.Draw(Xspt, Yspt, a[i]);
           ColSel:= i;
         end;
...