Crear campos TFields en diseño

[jhonny]

Espero que te sirva el siguiente ejemplo, asumiendo que vamos a crear el campo en un TQuery llamado Query1:

Código Delphi [-]
 
var
  Campo :TFloatField;
begin
  Campo := TFloatField.Create(Self);
  Campo.Precision := 15;
  Campo.FieldName := 'Nombre_Columna';
  Campo.Name := 'NombreDelCampo';
  Campo.DisplayLabel := 'CampoEnEjecucion';
  Campo.DisplayFormat := '###,###,###,###.00';
  Campo.DataSet := Query1;
  Query1.FieldDefs.UpDate;
end;