Показать сообщение отдельно
  #3  
Старый 29.12.2013, 19:54
Аватар для ___toha___
___toha___ ___toha___ вне форума
Прохожий
 
Регистрация: 18.12.2012
Адрес: Сасово
Сообщения: 23
Версия Delphi: 7
Репутация: 10
По умолчанию

Спасибо, сейчас попробую..

Цитата:
И ещё перед этим циклом неплохо бы сбросить отметку с этих чекбоксов
Это у меня есть Просто сам код очень длинный, поэтому скопировал только эту часть..

Цитата:
Задание не совсем ясное
Вообщем. Например в данном элементе массива такая строка:
156
123
Мы должны просмотреть только первую строку, то есть 156, и выделить чекбоксы, которые соответствуют цифрам 1, 5 и 6.


...

Проверил.. Эффект такой же.. Активирует ТОЛЬКО 1 чекбокс. Если ставлю в условии сначала на проверку 2, а потом 1, 3, 4, 5, 6, то выделяет только 2 чекбокс..


...


Все! Я сделал следующее. Сначала ввел в переменную содержание массива, а затем работал уже с переменной. Все работает отлично!

Код:
Ans[Number] := '123456' + #13#10 + '123';

  s := Copy(Ans[Number], 1, Pos(#13, Ans[Number]) -1);

  for i := 1 to Length(s) do
    begin
      case s[i] of
        '1': Test.Ans11.Checked := True;
        '2': Test.Ans21.Checked := True;
        '3': Test.Ans31.Checked := True;
        '4': Test.Ans41.Checked := True;
        '5': Test.Ans51.Checked := True;
        '6': Test.Ans61.Checked := True;
      end;
    end;

Вот так все работает. Только вот теперь думаю.. Почему так с массивами происходило?
Ответить с цитированием