Campos
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];
|