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

[designer999]

Здраствуйте
Использую вот такую конструкцию цикла case

Var K:integer;
......
begin
case Memo4.Lines[12]=k of
1 : begin ComboBox4.itemIndex=0 end;
2 : begin ComboBox4.itemIndex=1 end;
3 : begin ComboBox4.itemIndex=2 end;
4 : begin ComboBox4.itemIndex=3 end;
5 : begin ComboBox4.itemIndex=4 end;
end;
end;

Но что выскакивает такая ошибка:


В чём может быть баг ?

[Grag]

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

Здраствуйте
Использую вот такую конструкцию цикла case

Var K:integer;
......
begin
case Memo4.Lines[12]=k of
1 : begin ComboBox4.itemIndex=0 end;
2 : begin ComboBox4.itemIndex=1 end;
3 : begin ComboBox4.itemIndex=2 end;
4 : begin ComboBox4.itemIndex=3 end;
5 : begin ComboBox4.itemIndex=4 end;
end;
end;

Но что выскакивает такая ошибка:


В чём может быть баг ?

Во-первых - case - это оператор выбора, но никак не цикла! Поэтому конструкция "case Memo4.Lines[12]=k of" никак не допустима! Параметром оператора case должена быть переменная порядкового типа, а ты размещаешь там логического типа "Memo4.Lines[12]=k", вот и несовместимость типов.
Почитай об этом операторе...

[СВ9]

"Case" это не цикл, а вариантный выбор.
Что такое операция Memo4.Lines[12]=k – присвоение, или проверка?
Здесь, вообще должна стоять целочисленная переменная, например, просто “k”.

[mutabor]

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

В чём может быть баг ?

Приведенный Вами код это один сплошной баг, скажите лучше что Вы хотите сделать с его помощью, т.к. из кода это понять невозможно.

[designer999]

Использовал цикл при запуске

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;

Думал заменить на конструкцию case, но теперь вижу что не резонно.

[Grag]

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

Приведенный Вами код это один сплошной баг, скажите лучше что Вы хотите сделать с его помощью, т.к. из кода это понять невозможно.

Да вроде бы мысль какая-то пробивается, но мутная очень
Видимо, предполагается связь мемо и комбобокса, т.е. они имеют одинаковые итемы, и в зависимости от выделенного итема в мемо нужно этот итем выводить в комбобокс. Лично я так понял это...

[Grag]

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

Использовал цикл при запуске

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;

Думал заменить на конструкцию case, но теперь вижу что не резонно.

Вот как раз и резонно, во-первых текст программы читается более понятно при использовании case, а во-вторых, нафига делать кучу проверок оператором if then. Ведь все они будут выполнены не зависимо от того, что даже если первый окажется истинным!!!

[designer999]

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

Видимо, предполагается связь мемо и комбобокса, т.е. они имеют одинаковые итемы, и в зависимости от выделенного итема в мемо нужно этот итем выводить в комбобокс. Лично я так понял это...

правильно поняли
я тоже понимаю что лучше case, но реализовать с помою case уже второй день не могу

[MMM_Corp]

чтото мудрите... а так разве нельзя?)

ComboBox4.itemIndex:=strtoint(Memo4 .Lines[13]);

[designer999]

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

чтото мудрите... а так разве нельзя?)

ComboBox4.itemIndex:=strtoint(Memo4 .Lines[13]);

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