Código Delphi [-] for i :=0 to tu_DataSet.FieldDefs.Count - 1 do Field := tu_DataSet.FieldDefs[i].CreateField( tu_DataSet );
for i :=0 to tu_DataSet.FieldDefs.Count - 1 do Field := tu_DataSet.FieldDefs[i].CreateField( tu_DataSet );