Hola, yo tengo algo similar para las dbgrid. ¿Estas seguro que necesitas los campos de manera persistente? ten en cuenta que cuando haces una consulta, se crean en ella los objetos correspondientes a los campos, por lo que seria inecesario ir creando TStringField, etc...en principio, con tansolo los nombres de los campos, tendrias de sobras.
te dejo aqui una funcion que uso para al despues de hacer un select cualquiera me adapte la dbgrid al respecto. En ella se ve el uso del datatype, etc...
Código Delphi
[-]
procedure Normalitza_camps(q : TAdoQuery; db : TDBGrid); var
i : integer;
begin
for i := 0 to q.FieldCount - 1 do
begin
if q.Fields[i].DataType = ftFloat then
(q.Fields[i] as TNumericField).DisplayFormat := '###0.00';
if q.Fields[i].DataType = ftBoolean then
(q.Fields[i] as TBooleanField).DisplayValues := 'ü';
end;
for i := 0 to db.FieldCount - 1 do
begin
if (i mod 2) = 0 then
db.Columns[i].Color := $00EFF7F8
else
db.Columns[i].Color := $00FCFEFE;
case db.Columns[i].Field.DataType of ftString,ftMemo,ftFmtMemo,ftFixedChar,ftWideString :
begin
db.Columns[i].Title.Alignment := taLeftJustify;
db.Columns[i].Alignment := taLeftJustify;
db.Columns[i].Font.Name := 'ms sans serif';
end;
ftSmallInt,ftInteger,ftWord,ftAutoinc,ftLargeInt : begin
db.Columns[i].Title.Alignment := taCenter;
db.Columns[i].Alignment := taCenter;
db.Columns[i].Font.Name := 'ms sans serif';
end;
ftFloat,ftCurrency : begin
db.Columns[i].Title.Alignment := taRightJustify;
db.Columns[i].Alignment := taRightJustify;
db.Columns[i].Font.Name := 'ms sans serif';
end;
ftDateTime, ftDate, ftTime : begin
db.Columns[i].Title.Alignment := taCenter;
db.Columns[i].Alignment := taCenter;
db.Columns[i].Font.Name := 'ms sans serif';
end;
ftBoolean : begin
db.Columns[i].Title.Alignment := taCenter;
db.Columns[i].Alignment := taCenter;
db.Columns[i].Font.Name := 'wingdings';
end;
end;
end;
end;