Ayuda busqueda de case usando radiogroup

[ecfisa]

Hola.

Ahora si entiendo la relación...

Código Delphi [-]
...

procedure TForm1.eProductoChange(Sender: TObject);
begin
  if RadioGroup1.ItemIndex <> -1 then
  begin
    qProducto.Close;
    qProducto.SQL.Clear;
    qProducto.SQL.Add('SELECT * FROM PRODUCTO');
    qProducto.SQL.Add('WHERE ESTADO = :STATE');
    qProducto.SQL.Add('AND NOMBREPRODUCTO LIKE :NAME');
    qProducto.ParamByName('STATE').Value := 1 - RadioGroup1.ItemIndex; // (**)
    qProducto.ParamByName('NAME').AsString := '%' + TEdit(Sender).Text + '%';
    qProducto.Open;
  end;
end;

(**) linea que reemplaza a:

Empezado por cristian22

Código Delphi [-]
case radiog.ItemIndex of 
0: qProductos.SQL.ADD(' where estado=1') ;
1: qProductos.SQL.ADD(' where estado=0');
end;

Saludos

[cristian22]

Empezado por ecfisa

Hola.

Ahora si entiendo la relación...

Código Delphi [-]
...

procedure TForm1.eProductoChange(Sender: TObject);
begin
  if RadioGroup1.ItemIndex <> -1 then
  begin
    qProducto.Close;
    qProducto.SQL.Clear;
    qProducto.SQL.Add('SELECT * FROM PRODUCTO');
    qProducto.SQL.Add('WHERE ESTADO = :STATE');
    qProducto.SQL.Add('AND NOMBREPRODUCTO LIKE :NAME');
    qProducto.ParamByName('STATE').Value := 1 - RadioGroup1.ItemIndex; // (**)
    qProducto.ParamByName('NAME').AsString := '%' + TEdit(Sender).Text + '%';
    qProducto.Open;
  end;
end;

(**) linea que reemplaza a:


Saludos

muchas gracias. funciona perfecto mil gracias de verdad

[ecfisa]

Empezado por cristian22

muchas gracias. funciona perfecto mil gracias de verdad

Me alegra que te haya servido

Saludos