Ver Mensaje Individual
  #3  
Antiguo 23-11-2005
Avatar de Caro
*Caro* Caro is offline
Moderadora
 
Registrado: jul 2004
Ubicación: Cochabamba, Bolivia
Posts: 2.544
Reputación: 24
Caro Va por buen camino
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
__________________
Disfruten cada minuto de su vida a lado de sus seres queridos como si fuese el ultimo, uno nunca sabe lo que puede pasar.
Responder Con Cita