FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Como recorrer un TField?
Hola comunidad:
Tengo un gran problema. Sucede que tengo una tabla en MySQL y la estoy trabajando desde Delphi 7 con el componente Zeos. MI tabla tiene 4 campos(Nombre, Password, Rol, Fecha_Creado). Quiero crear con un TreeView la estructura de mi tabla. Es decir, que mi primer nodo en el TreeView sea NOMBRE, y como subnodos tenga las entradas que estan en la BD. Ahora bien..... Yo tengo una Query que su cuerpo es este: Select Nombre From Usuarios. Esta query esta conectada a un dataset, donde si conecto este dataset a algun control de DB me devolveria justo los nombres de todas las personas que esten en mi BD. Ahora veamos esto: Var CampoNombre : TField begin .......... CampoNombre := MiDataSet.DataSet.FieldByName('Nombre'); .......... end; Supongo que con este segmento de codigo tenga dentro de CampoNombre los Nombres que seleccione con la consulta. Si es asi, pues ahora debo recorrer este CampoNombre para ir tomando cada uno de sus valores para luego insertarselos como Subnodos en el TreeView. Lo unico es que no tengo idea de como hacer esto... de como ir tomando cada uno de los valores del CampoNombre para ponerselo al TreeView. Agradeceria cualquier ayuda o sugerencia..... Muchas Gracias!!!! |
#2
|
||||
|
||||
Propiamente lo que recorres no es el TField sino el DataSet. Conforme recorres el DataSet CampoNombre tendrá el valor del campo para el registro actual.
Para recorrer el DataSet puede hacer un ciclo:
// Saludos |
#3
|
||||
|
||||
Sólo como mejora, a lo ya comentado, creo que si vas a recorrer toda la tabla accediendo siempre al mismo campo, en lugar de acceder en cada paso del bucle utilizando:
te saldría más a cuenta obtener al índice del campo antes de entrar en el bucle (DataSet.Fields.IndexOf o Field.FieldNo) y luego acceder por el índice con:
__________________
Germán Estévez => Web/Blog Guía de estilo, Guía alternativa Utiliza TAG's en tus mensajes. Contactar con el Clubdelphi P.D: Más tiempo dedicado a la pregunta=Mejores respuestas. |
#4
|
|||
|
|||
Gracias!!!
Lo que me han sugerido funciona a las mil maravillas!!!
No se que seria de mi sin este maravilloso foro!!!! |
|
|
|