Как записать в таблицу Paradox значение из CheckBox?

[Дарья2]

Если у CheckBox стоит галочка, то в таблицу записывается: "Пополнение в группу", если не стоит, то ничего не записывается.
На Form есть CheckBox и Button, программу запустили нажали на него, т. е. поставили галочку. нажали кнопочку "ок" в таблицу в определенное поле записалась эта фраза: "Пополнение в группу"

[Toxa]

так в чем проблема возникла? что конкретно не понятно?

тут ничего сложного нету
проверяем стоит ли галка, и если стоит делаем запись в бд

 if CheckBox.checked then
begin
 query.parambyname('определенное поле').value := 'Пополнение в группу' ;
 query.execute;
end;

[Stilet]

Дарья2

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

[Дарья2]

if CheckBox1.Checked then begin   
    Table1.Insert;
    Table1.FieldByName('Popoln').Value :='Пополнение в группу';
    Table1.Post;
end;

я пыталась. ошибку выдает

[Stilet]

Это не весь код. Показывай весь.

[Дарья2]

procedure TForm2.BitBtn3Click(Sender: TObject);
begin
with Table1 do
begin

Insert;
FieldByName('Fio').AsString := trim(Edit1.Text+#32+ Edit2.Text+#32+ Edit3.Text);
FieldByName('Pol').AsString := trim(RadioGroup1.Items.Strings[RadioGroup1.ItemIndex]);
FieldByName('Dr').AsDateTime := DateTimePicker1.DateTime;
FieldByName('Mr').AsString := trim(Edit4.Text);
FieldByName('Nac').AsString :=trim (ComboBox1.Items.Strings[ComboBox1.ItemIndex]);
FieldByName('Inn').AsString := trim(Edit5.Text+#32+Edit16.Text);
FieldByName('Adr').AsString :=trim(Edit17.Text+#32+Edit8.Text+#32+Edit18.Text+#32+Edit12.Text+#32+Edit13.Text+#32+Edit14.Text+#32+Edit35.Text);
FieldByName('Ydost').AsString := trim(Edit36.Text+#32+Edit6.Text+#32+Edit7.Text+#32+MaskEdit1.Text+#32+Edit9.Text);
FieldByName('Strx').AsString := trim(Edit10.Text+#32+MaskEdit2.Text+#32+Edit11.Text);
FieldByName('Forma').AsString :=trim (ComboBox3.Items.Strings[ComboBox3.ItemIndex]);
FieldByName('Sp').AsString :=trim (ComboBox4.Items.Strings[ComboBox4.ItemIndex]);
FieldByName('Tel').AsString := trim(Edit15.Text);
Post;

end;
Edit1.Text:='';
Edit2.Text:='';
Edit3.Text:='';
Edit4.Text:='';
ComboBox1.Items.Strings[ComboBox1.ItemIndex]:='';
Edit5.Text:='';
Edit16.Text:='';
Edit17.Text:='';
Edit8.Text:='';
Edit18.Text:='';
Edit12.Text:='';
Edit13.Text:='';
Edit14.Text:='';
Edit35.Text:='';
Edit36.Text:='';
Edit6.Text:='';
Edit7.Text:='';
Edit9.Text:='';
Edit10.Text:='';
Edit11.Text:='';
Edit15.Text:='';
MaskEdit1.Text:='';
MaskEdit1.Text:='';
ComboBox4.Items.Strings[ComboBox4.ItemIndex]:='';
ComboBox3.Items.Strings[ComboBox3.ItemIndex]:='';
end;

[newerow1989]

На какой строке ошибка? Тут их много:

FieldByName('Nac').AsString :=trim (ComboBox1.Items.Strings[ComboBox1.ItemIndex]);
FieldByName('Forma').AsString :=trim (ComboBox3.Items.Strings[ComboBox3.ItemIndex]);
FieldByName('Sp').AsString :=trim (ComboBox4.Items.Strings[ComboBox4.ItemIndex]);
ComboBox1.Items.Strings[ComboBox1.ItemIndex]:='';
ComboBox4.Items.Strings[ComboBox4.ItemIndex]:='';
ComboBox3.Items.Strings[ComboBox3.ItemIndex]:='';

Обращаю внимание на Strings[ComboBox1.ItemIndex], где ComboBox1.ItemIndex<0 и т.д.

[Дарья2]

при запуске нет ошибок, но как только я пытаюсь записать в табл. появляется ошибка, скрин которой я выше кидала

procedure TForm2.BitBtn3Click(Sender: TObject);
begin
with Table1 do
begin

Insert;
FieldByName('Fio').AsString := trim(Edit1.Text+#32+ Edit2.Text+#32+ Edit3.Text);
FieldByName('Pol').AsString := trim(RadioGroup1.Items.Strings[RadioGroup1.ItemIndex]);
FieldByName('Dr').AsDateTime := DateTimePicker1.DateTime;
FieldByName('Mr').AsString := trim(Edit4.Text);
FieldByName('Nac').AsString :=trim (ComboBox1.Items.Strings[ComboBox1.ItemIndex]);
FieldByName('Inn').AsString := trim(Edit5.Text+#32+Edit16.Text);
FieldByName('Adr').AsString :=trim(Edit17.Text+#32+Edit8.Text+#32+Edit18.Text+#32+Edit12.Text+#32+Edit13.Text+#32+Edit14.Text+#32+Edit35.Text);
FieldByName('Ydost').AsString := trim(Edit36.Text+#32+Edit6.Text+#32+Edit7.Text+#32+MaskEdit1.Text+#32+Edit9.Text);
FieldByName('Strx').AsString := trim(Edit10.Text+#32+MaskEdit2.Text+#32+Edit11.Text);
FieldByName('Forma').AsString :=trim (ComboBox3.Items.Strings[ComboBox3.ItemIndex]);
FieldByName('Sp').AsString :=trim (ComboBox4.Items.Strings[ComboBox4.ItemIndex]);
FieldByName('Tel').AsString := trim(Edit15.Text);
if CheckBox1.Checked then begin
    Table1.Insert;
    Table1.FieldByName('Popoln').Value :='?????????? ? ??????';
    Table1.Post;
end;
Post;

end;
Edit1.Text:='';
Edit2.Text:='';
Edit3.Text:='';
Edit4.Text:='';
ComboBox1.Items.Strings[ComboBox1.ItemIndex]:='';
Edit5.Text:='';
Edit16.Text:='';
Edit17.Text:='';
Edit8.Text:='';
Edit18.Text:='';
Edit12.Text:='';
Edit13.Text:='';
Edit14.Text:='';
Edit35.Text:='';
Edit36.Text:='';
Edit6.Text:='';
Edit7.Text:='';
Edit9.Text:='';
Edit10.Text:='';
Edit11.Text:='';
Edit15.Text:='';
MaskEdit1.Text:='';
MaskEdit1.Text:='';
ComboBox4.Items.Strings[ComboBox4.ItemIndex]:='';
ComboBox3.Items.Strings[ComboBox3.ItemIndex]:='';
end;

а если без кода, выделенного красным цветом, запускаешь и записываешь то все норм

[Stilet]

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

появляется ошибка, скрин которой я выше кидала

В выделенной тобой строке такая ошибка возникать не может.
Замени везде
trim (ComboBox<блабла>.Items.Strings[ComboBox<блабла>.ItemIndex]);
на
trim (ComboBox<блабла>.Text);

[Toxa]

if CheckBox1.Checked then begin
   // Table1.Insert;
    FieldByName('Popoln').Value :='?????????? ? ??????';
   // Table1.Post;
end;

попробуй такой вариант, а то метод insert вызван 2 раза подряд