Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Считывание из CheckBox.Checked

Автор: Ragli 7.12.2006, 16:00

Дана процедура создания CheckBoxа и ComboBoxExа.

Код


var
   CheckBox:array[1..30] of TCheckBox;
   ComboBoxEx: array[1..30] of TComboBoxEx;

procedure Creat_knop(Colum:integer);
var
   i,p,t,k:integer;
   str:array [1..50] of string;
begin

       p:=5;
       for i:=1 to Colum do
         begin
           CheckBox[i]:=TCheckBox.Create(Form1.ScrollBox1); // Form1
           CheckBox[i].Parent:=Form1.ScrollBox1;  // Form1
           //CheckBox[i].Name:='MyCheckBox'+IntToStr(i);
           CheckBox[i].Caption:=Pupil[i+2].predmet;
           CheckBox[i].Checked:=false;
           CheckBox[i].Top:=p;
           CheckBox[i].Left:=16;
           p:=32+p;
         end;
       t:=5;
       for i:=1 to Colum do
         begin
           ComboBoxEx[i]:=TComboBoxEx.Create(Form1.ScrollBox1); // Form1
           ComboBoxEx[i].Parent:=Form1.ScrollBox1; // Form1
           //CheckBox[i].Name:='MyCheckBox'+IntToStr(i);
           ComboBoxEx[i].Top:=1+t;
           ComboBoxEx[i].Left:=160;
           ComboBoxEx[i].Width:=65;
            for k:=1 to 10 do
               ComboBoxEx[i].Items.append(IntToStr(k));

            ComboBoxEx[i].Style:=csExDropDownList;
            ComboBoxEx[i].ItemIndex:=0;
           t:=32+t;

         end;

end;

И не получается с другой процедуры считывать данные из CheckBoxа и ComboBoxExа.

Код


for i:=1 to stolbes do
     if CheckBox[i].Checked=true then    // при считывании ошибку вызывает 
         ww[i]:=StrToInt(ComboBoxEx[i].Items.Strings[ComboBoxEx[i].ItemIndex]); // при считывании ошибку вызывает

Не могли бы подсказать почему ошибка?

Автор: Albinos_x 7.12.2006, 16:35

что есть:

Цитата(Ragli @ 7.12.2006, 16:00

)

to stolbes

Цитата(Ragli @ 7.12.2006, 16:00

)

ww[i]

Цитата(Ragli @ 7.12.2006, 16:00

)

if CheckBox[i].Checked=true then

достаточно просто:

Код


 if CheckBox[i].Checked then

Автор: Ragli 7.12.2006, 17:05

stolbes это число от 2 до 30

ww[i] это массив целых чисел

if CheckBox[i].Checked then тоже вызывает ошибку

Автор: Savek 7.12.2006, 17:09

Цитата(Ragli @ 7.12.2006, 16:00

)

if CheckBox[i].Checked=true then // при считывании ошибку вызывает

Вероятно этот компонент не был создан
Попробуй добавить перед это строкой следующее

Код


if not Assigned(CheckBox[i]) then ShowMessage('Сечас будет ошибка!')ж

Автор: Ragli 7.12.2006, 17:22

При создании CheckBox[i].Checked ,он выводится в рамку ScrollBox1а и после того как я ставлю галочку в CheckBox ,и анжимаю запуск(тобы считал данные с CheckBox[i].Checked ),то ошибку вызывает программа.

Может быть свойства ScrollBox1а не позволяют считывать,но я нечего не менял в настройках ScrollBox1а ?

Автор: max_k 7.12.2006, 17:27

А текст ошибки написать можешь,
было бы проще понять в чем проблемма.

Автор: Albinos_x 7.12.2006, 22:55

Цитата(Ragli @ 7.12.2006, 17:22

)

Может быть свойства ScrollBox1а не позволяют считывать,но я нечего не менял в настройках ScrollBox1а ?

это тут ни при чём...

ошибка скорее всего вылетает из-за того, что там нет объекта... или

Цитата(Savek @ 7.12.2006, 17:09

)

Вероятно этот компонент не был создан

что говорит пошаговая отладка?