guardar datos de una fila seleccionada de un dbrig en variables
hola
toy con un problemita en delphi..queria ver si tenian idea de como solucionarlo
tengo un dbgrid con la propiedad options: rowselect en true para que me pueda mostrar toda la fila seleccionada. Lo que yo kiero hacer es q cuando selecciono una fila m guarde los datos en variables.
Tengo las columnas Código, Servicio y Precio y las keria guardar en las variables cod, desc y precio y tengo un boton agregar para q cuando selecccione la fila lo apreto y ahi m guarde las variables. Puse esto pero no anda:
procedure Tcodigo.BitBtn1Click(Sender: TObject);
begin
if DBGrid1.SelectedRows.Count>0 then
with DBGrid1.DataSource.DataSet do
for i:=DBGrid1.SelectedRows.Count-1 downto 0 do
begin
GotoBookmark(pointer(DBGrid1.SelectedRows.Items[i]));
cod:=adotable1.fieldbyname('Código').AsInteger;
desc:=adotable1.fieldbyname('Servicio').AsString;
end;
edit1.Text:=inttostr(cod);
edit2.Text:=desc;
end;
si tienen idea de como solucionarlo, avisenme.
Saludos
|