Varias selecciones en dbgrid a varias lineas stringgrid

[rafaelon]

hola a todos , espero me puedan ayudar , tengo un pequeño programa (delphi 7+ access) donde tengo un Dbgrid conectado a una tabla "productos" con un multi select envio las selecciones a un listbox y con un evento cellclick envio a un stringgrid una unica seleccion

procedure TfrmMain.dgProductoCellClick(Column: TColumn);
var
i:double;
x:double;

begin
i:=0;
 buscarcod(dgproducto.SelectedField.AsString, Encontrado);
  if Encontrado then
  begin
    StringGrid1.Cells[0, 1]:=DM.tblProducto.fieldbyname('Producto').AsString;
    StringGrid1.Cells[2, 1]:=DM.tblProducto.fieldbyname('Precio').AsString;
    StringGrid1.Cells[1, 1]:=DM.tblProducto.fieldbyname('Existencia').AsString;
    Edit3.Text:=DM.tblProducto.fieldbyname('tipo').AsString;
    i:=((DM.tblProducto.fieldbyname('precio').asfloat)*(strtofloat(maskedit1.Text)));
    x:= ceil(i);
    StringGrid1.Cells[3, 1]:= (FormatFloat('0.000',  (x)));

  end
end;

Sin embargo ahora me gustaria unir ambos procesos y usar unicamente el stringgrid para mostrar varias selecciones del dbgrid pero con el evento cellclick para no usar la tecla ctrl , gracias de antemano

[[gatosoft]]

Hola Rafael, no se como te fue con esto, pero queria recomendarte que utilices un DBGrid para todo. El stringGrid es bastante limitado y el DBGrid tiene todo lo que necesitas para manejar data.

Para evitar validaciones y demás, utilizas un ClientDataset en memoria para manipular tu data. Con eso evitas conversiones de tipos y otros.

Quedo atento,