не понятная ошибка в цикле case

[Serge_Bliznykov]

Сообщение от designer999

это вообще с другой оперы

а я согласен с MMM_Corp - это именно из этой "оперы"!!
а если нужно ограничить диапазон (т.е. только 1..4, хотя я уверен, что потом автору вопроса понадобятся и 5 и 6 и 7, то вместо:

if Memo4.Lines[13]='1'  then begin ComboBox4.itemIndex:=1; end;
if Memo4.Lines[13]='2'  then begin ComboBox4.itemIndex:=2; end;
if Memo4.Lines[13]='3'  then begin ComboBox4.itemIndex:=3; end;
if Memo4.Lines[13]='4'  then begin ComboBox4.itemIndex:=4; end;

АБСОЛЮТНО логично написать:

if (Memo4.Lines[13]>='1') and  (Memo4.Lines[13]<='4')
  then ComboBox4.itemIndex:= StrToInt(Memo4 .Lines[13]);

и не надо городить ветление там, где его можно избежать!

[Grag]

АБСОЛЮТНО логично написать:

if (Memo4.Lines[13]>='1') and  (Memo4.Lines[13]<='4')
  then ComboBox4.itemIndex:= StrToInt(Memo4 .Lines[13]);

и не надо городить ветление там, где его можно избежать!

или так

if  Memo4.Lines[13] in ['1'..'4'] 
  then ComboBox4.itemIndex:= StrToInt(Memo4 .Lines[13]);