codigo para guardar dato tipo bit

[marareta]

hola, de nuevo molestandolos, estoy haciendo un programa y tengo bastantes datos, masomenos la mitad son varchar y los demas son tipo bit, estoy usando mysql y delphi 2010, a la hora de guardar los datos en delphi en un query con los varcha rno hay problema porke pues uso el codigo siguiente:

Código Delphi [-]
 
QueryPac.SQL.Add('Insert into pacientes(nombre,apaterno,amaterno,edad) values('
                +chr(39)+edit3.Text+chr(39)+','
                +chr(39)+edit4.Text+chr(39)+','+chr(39)+edit5.Text+chr(39)+','
                  +chr(39)+edit6.Text+chr(39)+')');

el problema lo tengo con los tipo bit, que en delphi son radiobuttons o checkbox, como pongo la sintaxis en el query para guardar el valor? porque segun yo el radiobutton porejemplo el valor es radiobutton1.checked:=true o false, pero en el query como lo pongo.
Como siempre muchas gracias de antemano

[osmuar_exp]

Hola buenas noches, creo que esto te puede servir:

Código Delphi [-]
QueryPac.SQL.Add('Insert into pacientes(nombre,campo_bit) values('
                +chr(39)+edit3.Text+chr(39)+','
                +BoolToStr(false)+')');

Saludos verdaderos.

[olbeup]

Mira este código si te sirve:

Código Delphi [-]
procedure TForm1.Insertar;
var
  ValueChk: Array[Boolean] of ShortInt = (0, 1);
begin
  with QueryPac do
  begin
    SQL.Add('INSERT INTO Pacientes(NOMBRE, CAMPO_BIT)');
    SQL.Add('VALUES(' + QuotedStr(Edit3.Text)+ ', ' + IntToStr(ValueChk[CheckBox1.Checked]) + ')');
  end;
end;

Los Campos Bit pueden tener 3 valores distintos:
0 = False, 1 = True, -1 = True

Un saludo.

[cloayza]

Sugiero la siguiente modificacion...

Código Delphi [-]
procedure TForm1.Insertar;
begin
  with QueryPac do
  begin
    SQL.Add('INSERT INTO Pacientes(NOMBRE, CAMPO_BIT)');
    SQL.Add('VALUES(' + QuotedStr(Edit3.Text)+ ', ' + IntToStr(Integer(CheckBox1.Checked)) + ')');
  end;
end;

Saludos

[raiden1813]

Gracias me sirvio de ayuda esa modificacion que isiste amigo,