Recoger datos de un TreeView a un DBgrid

[tcp_ip_es]

para pasar de un treeview a un stringgrid tendrás que aprender a utilizar los dos objetos mirate la ayuda de delphi o mirate por los foros código referente a los dos objetos...

treview
http://www.clubdelphi.com/foros/show...light=treeview

stringgrid

http://www.clubdelphi.com/foros/show...ght=stringgrid

hay que currárselo un poco

[*Caro*]

Hola cslbcn, tienes que recorrer tu TreeView y preguntar por el nivel si es 0 ira como encabezado de tu StringGrid y asi sucesivamente, te pongo un ejemplo de como mas o menos tendrías que hacerlo.

Código Delphi [-]
var
 i, aCol, ARow : Integer;
begin
 aCol := 0;
 ARow := 1;
 for i:=0 to TreeView1.Items.Count-1 do
  begin
   if TreeView1.Items[i].Level=0 then
    begin
     Inc(aCol);
     StringGrid1.Cells[aCol,0] := TreeView1.items[i].Text;
     ARow := 1;
    end
   else
    begin
     StringGrid1.Cells[aCol,aRow] := TreeView1.items[i].Text;
     Inc(aRow);
    end;
  end;
end;

Empezado por tcp_ip_es

hay que currárselo un poco

Una pregunta tcp_ip_es, que significa currárselo , suena un poco raro la palabrita.

Saluditos

[cslbcn]

entiendo. y de esta manera el grid del form2 recibirá los datos del treeview del form1?

[*Caro*]

Empezado por cslbcn

entiendo. y de esta manera el grid del form2 recibirá los datos del treeview del form1?

Solo tienes que hacer referencia al StringGrid del formulario del cual quieres llenar.

Código Delphi [-]
   ..............................
   .............................
     form2.StringGrid1.Cells[aCol,0] := TreeView1.items[i].Text;
     ARow := 1;
    end
   else
    begin
     form2.StringGrid1.Cells[aCol,aRow] := TreeView1.items[i].Text;
     Inc(aRow);
    end;
  end;//for
 form2.Show;

Saluditos

[cslbcn]

vale vale. ya lo entiendo.

Soy muy, pero que muy novato en delphi y me piden hacer cosas dificiles para mi, cuando aun no sé qué significa procedure... pero bueno.

muchas gracias por vuestra ayuda

[tcp_ip_es]

Currárselo significa trabajarselo o laburarselo , vamos que buscará un poco por su cuenta y no darselo todo hecho espero que te sirva la respuesta

Trabajar=Currar=Laburar

[*Caro*]

Empezado por tcp_ip_es

Currárselo significa trabajarselo o laburarselo , vamos que buscará un poco por su cuenta y no darselo todo hecho espero que te sirva la respuesta

Trabajar=Currar=Laburar

esta claro amiguito tcp , conste que no le he dado todo hecho, tenía que seguir currandosela .

Saluditos