Como llenar un stringGrid a partir de un Query?

[[enecumene]]

bueno termine optando por usar un dbgrid, y he podido hacer lo que queria hacer, tengo:

1-DataSetProvider
1-ClientDataSet
2-ADOQuery1 y 2
1-Dataccess
1-Edit
1-DBGrid

hice la siguiente configuración:

->DataSetProvider->DataSet->ADOQuery
->ClientDataSet->ProviderName->DataSetProvider
->DataAccess->DataSet->ClientDataSet

supongo que esa configuración esta correcta, en el evento OnKeyDown del DBGrid puse este codigo:

Código Delphi [-]
procedure TForm1.DBGrid1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if Key = VK_TAB then
begin
CLientDataset1.Append;
Edit1.Clear;
Edit1.SetFocus;
end;
end;

en el evento OnKeyPress del Edit puse este codigo:

Código Delphi [-]
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if Key=#13 then begin
 with QArticulo do begin
  if active then Close;
  sql.Clear; // y aquí
  SQL.Add(' SELECT ref, articulo, cantidad FROM articulos ');
  SQL.Add('WHERE ref = '+QuotedStr(Edit1.Text) );
  ClientDataSet1.Open;
  ClientDataSet1.Edit;
  Open;
  if not IsEmpty then begin
   DBGrid1.fields[0].Value:=QArticuloref.AsString;
   DBGrid1.Fields[1].Value:=QArticuloarticulo.AsString;
   DBGrid1.DataSource.DataSet.FieldByName('cantidad').FocusControl;
  end else begin
    ShowMessage('Articulo no existe');
  end; 
 end; 
end;
end;

hasta todo bien se agregan los datos al dbgrid mediante un edit, ahora tengo este problema y es cuando intento grabar los datos, puse un boton con este codigo:

Código Delphi [-]
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
registrar.SQL.Clear;
registrar.SQL.Text:=' insert into entrada (articulo, cantidad, ref, suplidor, costo, itbis, monto, fecha, hora, usuario, fechauser)'+
                    ' values ("'+DBGrid1.fields[1].Value+'", "'+DBGrid1.Fields[2].Value+'", "'+DBGrid1.Fields[0].Value+'", "", "+double(0.00)", "+double(0.00)", "+double(0.00)", "", "", "", "")';
ShowMessage(registrar.SQL.Text);
registrar.ExecSQL;
end;

y me tira este error:

---------------------------
Debugger Exception Notification
---------------------------
Project inventario.exe raised exception class EVariantTypeCastError with message 'Could not convert variant of type (String) into type (Double)'. Process stopped. Use Step or Run to continue.
---------------------------
OK Help
---------------------------

he intentado de todo, use Quotedstr, FloatToInt, double, strToInt, etc. todo igual... cual sera la causa? estoy haciendo algo malo?

adjunto codigo:

Archivo Adjunto 955

[dec]

Hola,

Mientras estaba leyendo tu mensaje e iba por aquí...

... values ("'+DBGrid1.fields[1].Value+'", "'+DBGrid1.Fields[2].Value+'", ...

He pensado que acaso, en lugar de "Value", tenías que utilizar algo como "AsString"... por ejemplo. Pero, luego he echado la barra de scroll a la izquierda y he podido leer:

... "+double(0.00)", "+double(0.00)", "+double(0.00)", "", "", "", "") ...

Y entonces ya me he echado para atrás. No sé si lo que apunto al principio sirva de algo, si en esto último tenemos el problema,... en definitiva, me he quedao planchao.

[[enecumene]]

en realidad es un tollo de codigo dec, solo era una idea dado que es la primera vez que hago tipo de codigos, el codigo lo he dejado de esta manera:

Código Delphi [-]
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
registrar.SQL.Clear;
registrar.SQL.Text:=' insert into entrada (articulo, cantidad, ref, suplidor, costo, itbis, monto, fecha, hora, usuario, fechauser)'+
                    ' values ("'+DBGrid1.fields[1].AsString+'", "'+DBGrid1.Fields[2].AsString+'", "'+DBGrid1.Fields[0].Value+'", "", "", "", "", "", "", "", "")';
ShowMessage(registrar.SQL.Text);
registrar.ExecSQL;
end;

y me sale ese error que tantas veces me lo han dicho ni me acuerdo:

---------------------------
Debugger Exception Notification
---------------------------
Project inventario.exe raised exception class EOleException with message 'Data type mismatch in criteria expression'. Process stopped. Use Step or Run to continue.
---------------------------
OK Help
---------------------------

debo aclarar que los campos donde puse '+double(0.00), son campos numericos con formato standard con decimal (3,579.00) lo quiero almacenar valores de costo, precios y montos, y estoy usando componentes ADO base de datos ACCESS..

[[Caral]]

Hola
No llevo seguimiento de esto pero creo que el problema puede ser el orden ademas del tipo de dato, prueba esto:
Edito: trate de arreglarlo, no pude, lo hago en el siguiente post.
Saludos

[[Caral]]

Hola
Asi:

Código Delphi [-]
procedure TForm1.BitBtn1Click(Sender: TObject);
var
 a: real;
begin
 a:= 0.00;
registrar.SQL.Clear;
registrar.SQL.Text:=' insert into entrada (articulo, cantidad, ref, suplidor, costo, itbis, monto, fecha, hora, usuario, fechauser)'+
                    ' values ("'+DBGrid1.fields[1].Value+'", "'+DBGrid1.Fields[2].Value+'", "'+DBGrid1.Fields[0].Value+'", "", "'+a+'", "'+a+'", "'+a+'", "", "", "", "")';
ShowMessage(registrar.SQL.Text);
registrar.ExecSQL;
end;

Saludos