Динамическое удаление TCheckBox

[Maks57]

Здравствуйте, у меня такая проблема: пишу приложение, онлайн тестирование. Существует 3 типа вопросов: одиночный выбор, множественный и ввод строки, в зависимости от типа создаются нужные элементы. Соответсвенно CheckBox должны удаляться если тип вопросов не множественный выбор. Ничего не работает..помогите пожалуйста

Код следующий:

procedure TTestForm.Button2Click(Sender: TObject);
var
 t, i: integer;
begin
 i:=1;
DM.Test_ident_proc.Parameters.ParamByName('@Title').Value:=MainForm.ComboBox1.Text;
 DM.Test_ident_proc.ExecProc;
 DM.Test_ident_proc.Open;
 DM.Question_ident_proc.Parameters.ParamByName('@Question_Num').Value:=DM.Test_ident_proc.FieldByName('Question_Num').AsInteger;
 DM.Question_ident_proc.ExecProc;
 DM.Question_ident_proc.Open;
 if a[i] = CheckBox then
  for i:=1 to DM.Question_ident_proc.RecordCount do
   a[i].Free;
 RadioGroup1.Items.Clear;
 RadioGroup1.Visible:=false;
 Edit1.Visible:=false;

 DM.Question_ident_proc.First;
 while not DM.Question_ident_proc.Eof do
  begin
   t:=DM.Test_ident_proc.FieldByName('Type_Num').AsInteger;
   case t of
    1: begin
        RadioGroup1.Visible:=true;
        RadioGroup1.Items.Add(DM.Question_ident_proc.FieldByName('Answer_text').AsString);
       end;
    2: begin
        a[i]:=TCheckBox.Create(Self);
        a[i].Parent:=TestForm;
        a[i].Left:=460;
        a[i].Caption:=DM.Question_ident_proc.FieldByName('Answer_text').AsString;
        a[i].top:=100 + i*20;
        inc(i);
       end;
    3: Edit1.Visible:=true;
  end;
  DM.Question_ident_proc.Next;
 end;

 Label1.Caption:=DM.Test_ident_proc.FieldByName('Question_Text').AsString;
 DM.Question_ident_proc.Next;
 DM.Test_ident_proc.Next;
 DM.Question_ident_proc.Close;
end;

[dr.Chas]

var component : TComponent;
    i: integer;
begin
  for i:=0 to Form1.ControlCount-1 do
  begin
    component:=FindComponent('CheckBox'+IntToStr(i+1));
    (component as TCheckBox).Free;
  end;
end;

[evg_m]

t:=DM.Test_ident_proc.FieldByName(' Type_Num').AsInteger;
RadioGroup1.Visible:=false;
a[i].Free;
Edit1.Visible:false;
case t of
1: begin
RadioGroup1.Visible:=true;
RadioGroup1.Items.Add(DM.Question_i dent_proc.FieldByName('Answer_text' ).AsString);
end;
2: begin
a[i]:=TCheckBox.Create(Self);
a[i].Parent:=TestForm;
a[i].Left:=460;
a[i].Caption:=DM.Question_ident_proc.Fi eldByName('Answer_text').AsString;
a[i].top:=100 + i*20;
inc(i);
end;
3: Edit1.Visible:=true;
end;
DM.Question_ident_proc.Next;
end;

[Maks57]

dr.Chas
ничего не происходит( даже пробовал на отдельную кнопку это делать

evg_m
таким образом он их сразу же после создания удалять будет, там же цикл идёт while not DM.Question_ident_proc.Eof

[dr.Chas]

Не работает потому:

Form1.ControlCount-1 - у вас другое название формы.

FindComponent'(CheckBox'+IntToStr(i+1)); Как видите он ищет по имени компонента.

[Maks57]

Сообщение от dr.Chas

Не работает потому:

Form1.ControlCount-1 - у вас другое название формы.

FindComponent'(CheckBox'+IntToStr(i+1)); Как видите он ищет по имени компонента.

Ну уж название формы то я поменял))
Попробовал в новом приложении, действительно всё работает..в моём нет((
Может дело в родителе? или ещё в чем-то?

[Maks57]

Всё, разобрался. Добавил строчку
a[i].Name:='CheckBox' + inttostr(i);

Всё работает, спасибо большое =)

[dr.Chas]

Я же писал Дело в названии компонента например я без понятия какое при создании динамически он задаёт ему имя (не против был бы узнать ), если вы будете задавать его тут со всеми свойствами:

2: begin
a[i]:=TCheckBox.Create(Self);
a[i].Parent:=TestForm;
a[i].Left:=460;
a[i].Caption:=DM.Question_ident_proc.Fi eldByName('Answer_text').AsString;
a[i].top:=100 + i*20;
inc(i);
end;

т.е. так a[i].name:='имя компонента'; что то типа такого 'CheckBox'+IntToStr(j); в параметре j хранится число уже созданных компонентов. Чтобы не было повтора. То тот код заработает.

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

Всё, разобрался. Добавил строчку
a[i].Name:='CheckBox' + inttostr(i);

Всё работает, спасибо большое =)

Опоздал

[apromix]

Можете попробовать удалять существующие компоненты перед созданием новых.

[Maks57]

Сообщение от dr.Chas

Опоздал

Ничего))) ещё раз спасибо))