VPF::Считывание из CheckBox.Checked - Форум программистов

Ragli

Дата 7.12.2006, 16:00 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 64
Регистрация: 4.4.2006

Репутация: нет
Всего: нет

Дана процедура создания 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]); // при считывании ошибку вызывает

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

Это сообщение отредактировал(а) Snowy - 7.12.2006, 16:02

Albinos_x

Дата 7.12.2006, 16:35 (ссылка)

(нет голосов)

Загрузка ...

Evil Skynet

Профиль
Группа: Комодератор
Сообщений: 3288
Регистрация: 28.5.2004
Где: X-6120400 Y-1 4624650

Репутация: 26
Всего: 108

что есть:

Цитата(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 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 64
Регистрация: 4.4.2006

Репутация: нет
Всего: нет

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

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

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

Savek

Дата 7.12.2006, 17:09 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 355
Регистрация: 10.4.2006
Где: Воронеж

Репутация: нет
Всего: 7

Цитата(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 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 64
Регистрация: 4.4.2006

Репутация: нет
Всего: нет

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

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

max_k

Дата 7.12.2006, 17:27 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 12
Регистрация: 14.11.2006

Репутация: нет
Всего: нет

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

Albinos_x

Дата 7.12.2006, 22:55 (ссылка)

(нет голосов)

Загрузка ...

Evil Skynet

Профиль
Группа: Комодератор
Сообщений: 3288
Регистрация: 28.5.2004
Где: X-6120400 Y-1 4624650

Репутация: 26
Всего: 108

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

)

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

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

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

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

)

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

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

--------------------

"Кто владеет информацией, тот владеет миром"
Уинстон Черчилль

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »