DBGrid, obtener contenidode una posición
 

Hola a Todos

Antes de abrir este hilo busque en los foros y no encontre solución a mi problema, El problemita que tengo ahora es el siguiente, quisiera sacar el contenido de algunas posiciones de mi dbgrid sin que el foco este situado sobre el dbgrid.

Suponiendo que este mi dbgrid

Yo quisiera obtener el contenido digamos de la fila 1 y columnas 1 y 2 esto me devolveria los valores 5 y 6 otro ejemplo el contenido de la fila 1 y 2 con columnas 1 y 2 esto me devolveria los valores 5,6,8,9.

No tengo idea de como hacerlo, por favor si me podrian dar alguna idea me ayudarian bastante.

Muchas Gracias por adelantado

Utilizo delphi 7 , base de datos access y componentes ADO

Sería mejor obtener los datos del dataset enlazado al dbgrid, en lugar de trabajar sobre el dbgrid.
Consulta las propiedades RecNo y Fields[x] de tu dataset, supongo que con esas dos propiedades puedes lograr lo que buscas.

Muchas gracias ContraVeneno las propiedades que me mensionaste me funcionaron perfectamente y resolvieron mi problema, pero no estoy segura de que las haya utilizado bien aqui pongo el codigo de mi pruebita, gracias de nuevo.

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
   i,j,fila_ini,fila_fin,columna_ini,columna_fin:Integer;
   cad:String;
begin

   //para el ejemplo son valores por defecto claro que se le debe pasar fila ini 
   //y fin como columna ini y fin como parametros
 
   fila_ini:=3;
   fila_fin:=5;
   columna_ini:=1;
   columna_fin:=3;
 
   for i:=fila_ini to fila_fin do
   begin
      ADOTable1.RecNo:=i;
      for j:=columna_ini to columna_fin do
      begin
         dbGrid.SetFocus;
         dbGrid.SelectedIndex:=j;
         cad:=cad+dbGrid.Fields[dbGrid.SelectedIndex].AsString+', ';
      end;
   end;
   showmessage(cad);
end;

Nota: Las filas empiezan en la posición 1 y las columnas en la posición 0, si existe otra forma hacerlo sera bienvenido.

Saludos y que tengan un bonito dia

Código Delphi [-]
 for i:=fila_ini to fila_fin do begin
 ADOTable1.RecNo:=i;
 for j:=columna_ini to columna_fin do begin
  cad:=cad+adotable1.Fields[j].AsString+', ';
 end; //for j
    end; //for i
    showmessage(cad);

me cuentas que pasa con esos cambios.

Super mucho mejor, muchas gracias de nuevo ContraVeneno.