Trabajo con DBGrid

[[Caral]]

Hola
No entiendo.
El nombre del Campo?
o
El contenido?
Saludos

[DenisDiaz]

Lo necesito todo, pero principalmente los valores de los campos.

[jhonny]

Empezado por DenisDiaz

Lo necesito todo, pero principalmente los valores de los campos.

Sinceramnete no entendí, sería interesante si nos explicas de nuevo el asunto, pero un poco mejor ¿Que te parece?

[DenisDiaz]

Muy bien, después de conectarme a una tabla .dbf utilizando un DataSet, logro mostrar en un DBGrid su contenido. Hasta ahi todo está bien. Ahora necesito acceder (o sacar) el contenido de toda la tabla para poder hacer otras operaciones con esos valores, etc. Por ejemplo, si el componente fuera un StringGrid no tendría problemas, porque este último tiene la propiedad Cell(i,j) con la que puedo obtener los valores de las celdas que desee. Esto no lo he logrado completamente con el DBGrid.
Digo que no completamente porque pude pasar los datos del DBGrid para un StringGrid utilizando el siguiente código:

Código Delphi [-]
if DBGrid1.SelectedRows.Count>0 then
    with DBGrid1.DataSource.DataSet do
      for i:=0 to DBGrid1.SelectedRows.Count-1 do
      begin
        StringGrid1.RowCount:= StringGrid1.RowCount+1;
        GotoBookmark(pointer(DBGrid1.SelectedRows.Items[i]));
        for j := 0 to FieldCount-1 do
        begin
              StringGrid1.Cells[j,i]:=Fields[j].AsString;
        end;
     end;
end;

Como pueden apreciar se realiza cuando una o varias filas están seleccionadas, pero necesito hacer esta operación sin necesidad de seleccionarlas. Si necesitan mas explicación haganlo saber. Gracias

[jhonny]

Bueno, ¿Esto es lo que necesitas?, espero que si .

Código Delphi [-]
var
  I :Integer;
begin
  I := 0;
  with DBGrid1.DataSource.DataSet do
  begin
    First;
    while not EOF do
    begin
      for j := 0 to FieldCount-1 do
      begin
        StringGrid1.Cells[j,i]:=Fields[j].AsString;
      end;
    Inc(I);
    Next;
    end;
  end;
end;

[DenisDiaz]

Perfecto!! Muchas gracias! Después de ver la solución da pena haber preguntado eso.

[jhonny]

Empezado por DenisDiaz

Perfecto!! Muchas gracias! Después de ver la solución da pena haber preguntado eso.

Bueno, preguntando tambien se aprende, cuando yo estoy en algun tipo de clase aprendiendo cualquier cosa, siento que pregunto un monton de cosas sencillas, pero estoy seguro que con esas preguntas, muchos compañeros que tenian esas mismas dudas y que no se atrevian a preguntar (Sinceramente no se a que le tienen miedo) tambien lograron entender el asunto .