Agregar Nombre de campos en un array de DBText

[CottonMouth]

Gracias gabrielkc sos un genio!
no me salio usando un TDBText me marca el siguiente error:
Incompatible types: String and TField obviamente se me escapo algo.
Tal vez vos sabes porque.Pero bueno el otro procedimiento anda perfecto y aprendi algo nuevo. Gracias!!! Besotes y gracias por tu tiempo.
luly

[[Lepe]]

¿No puedes usar una rejilla para ese propósito? suele ser más cómodo.

Saludos

[CottonMouth]

Hola Lepe! a que te refieres con una rejilla? Podrias explicarme?Gracias por tu tiempo. Besos. Luly

[gabrielkc]

Si ya se que la pregunta era para lepe........ pero no es un chat... es un foro:


Una regilla es un DBGrid..... una regilla como la de excel, en la parte superior los titulos de los campos y en el "cuerpo" del la regilla los datos.

En mi caso uso un StringGrid basicamente lo mismo, pero echo a mano

[[fjcg02]]

Hemos de suponer que en algún momento el dataset de DataSource1 cambia ( o lo cambias ), sino, no podrías utilizar los mismos dbtext para acceder a campos de distintas tablas.
Hemos de suponer, que además todas las tablas tienen 6 campos.

Dicho esto, creo que te falta únicamente asignar el nombre del campo en la creación de los dbtext ( solo la primera vez), y cuando cambia el dataset, cambiar los campos.

Código Delphi [-]
for i:=1 to 6 do
  begin
    // solo creo el dbtext la primera vez
     if campo[i] = nil then   Campo[i]:=TDBText.Create(self); // añadido
     with  Campo[i] do
     begin
       DataSource:=DataSource1;
       Field:=Datasource1.Dataset.Field[i]; // añadido el nombre del campo
       Width := 193; // ancho
       Height := 21; //alto
       Left :=32;//posicion X
       Top := i* ConstHeight; //posicion Y
       Parent := PanelDatos; //en donde se dibujan los botones
       Visible := True; //para que se vean
       end;
     end;

Prueba y ya nos contarás.

Saludos

[luisgutierrezb]

nada mas como complemento para lo que menciona fjcg02, el arreglo de campos empieza en 0 no en 1, solo habra que corregir una linea para que quedara:
Field:=Datasource1.Dataset.Field[i-1];