Agregar Nombre de campos en un array de DBText

[CottonMouth]

Hola a todos !Como les va? bueno les explico tengo que crear una array de DbText y que a medida que se vallan creando contengan un nombre de campo distinto segun la tabla, como debo hacer?. Hasta ahora esto es lo que hice:

 
for i:=1 to 6 do
  begin
   Campo[i]:=TDBText.Create(self);
      with  Campo[i] do
     begin
       DataSource:=DataSource1;
       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;

intente con un if, con un case y la variable i y el datafield asignando le el nombre del campo pero no me funciono porque no me muestra nada obviamente lo estoy haciendo mal.si me pueden ayudar con esto se los agradeseria mucho!! Seguro debe ser una pavada para ustedes pero como soy novata no se me ocurre.Desde ya gracias!! besotes a todos!!

luly

[CottonMouth]

Queria agregar donde declare el array para los que estan igual que yo:

public
{ Public declarations }
Edit:array[1..6]of TEdit;
Campo:array[1..6] of TLabel;

Besotes!!
luly

[gabrielkc]

Empezado por CottonMouth

public
{ Public declarations }
Edit:array[1..6]of TEdit;
Campo:array[1..6] of TLabel;

El TLabel no tiene una propiedad DataSource , deberías cambiar tu declaración del array campo por :
Campo:array[1..6] of TDBText;

Porque además cuando lo creas igualas un TLabel a un TDBText:

Campo[i]:=TDBText.Create(Self);

Y como recomendación de OOP:

NO declares variables en la parte publica de tu forma; declarala en la parte privada, si necesitas que sean accesados desde otra unidad entonces usa propiedades;

[gabrielkc]

En cuando al nombre de los campos puedes usar el procedimiento de los DataSet GetFieldNames();

el cual recibe como parámetro un TStringList;


y en los items del stringlist tendrías los nombres de los campos accesibles con su indice:

Campos[i].Caption:=StringList[i-1];//i-1 porque el indice del primer elemento es 0 y tu manejas un array basado en 1

[CottonMouth]

gabielkc : perdona mi gran ignorancia pero no me quedo claro del todo como usar el procedimiento que me señalaste podrias enseñarmelo y como le paso los datos al stringlist, gracias igual por dedicarme tu tiempo!
Besos. Luly

[gabrielkc]

function ObtieneCampo(n:Integer):string;
var Lista:TStringList;
begin
Lista:=TStringList.Create;
Tabla1.GetFieldNames(Lista);
Result:=Lista[n];
Lista.Free;
end;


Ese sería basicamente el procedimiento para obtener el nombre de un campo cualquiera, no se te olvide que tu for inicia en 1 y el índice el TStringList inicia en 0, osea en tu caso lo llamarías mas o menos así:

Campos[i].Caption:=ObtieneCampo(i-1); ///campos quedaría declarada como un array de TLabel;

y la creación sería:

Campos[i]:=TLabel.Create;


Si quieres usar TDBText solo con especificar el campo al que quieres asociarlo es suficiente:

Campos[i].DataField:=Tabla1.Fields[i-1];