Creación de campos en tiempo de ejecución

[[coso]]

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); // posem tamany de camps i alineacio
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                        // camps de texte
            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 :          // nombres
            begin
                db.Columns[i].Title.Alignment := taCenter;
                db.Columns[i].Alignment := taCenter;
                db.Columns[i].Font.Name := 'ms sans serif';
            end;
            ftFloat,ftCurrency :                                        // floats
            begin
                db.Columns[i].Title.Alignment := taRightJustify;
                db.Columns[i].Alignment := taRightJustify;
                db.Columns[i].Font.Name := 'ms sans serif';
            end;
            ftDateTime, ftDate, ftTime :                                // datetime
            begin
                db.Columns[i].Title.Alignment := taCenter;
                db.Columns[i].Alignment := taCenter;
                db.Columns[i].Font.Name := 'ms sans serif';
            end;
            ftBoolean :                                                 // booleans
            begin
                db.Columns[i].Title.Alignment := taCenter;
                db.Columns[i].Alignment := taCenter;
                db.Columns[i].Font.Name := 'wingdings';
            end;
            end;
        end;
end;