Word Delphi

Criando e apagando tfields em run-time

Procedure TForm1.btnCriaFieldClick(Sender: TObject);

var T: TStringField;


begin


        if qryCliente.Active then qryCliente.Close;

        T := TStringField.Create(Self);

        T.fieldName := 'cli_Nome';

        T.FieldKind := fkData;

        T.DisplayLabel := 'Nome do Cliente';

        T.Visible := True;

        T.Name := qryCliente.Name + T.FieldName;

        T.Index := qryCliente.FieldCount;

        T.DataSet := qryCliente;

        qryCliente.FieldDefs.UpDate;

        qryCliente.Open;

end;


procedure TForm1.btnApagaFieldClick(Sender: TObject);

var TC: TComponent;


begin

        TC := FindComponent('qryClientecli_Nome');

        if not (TC = nil) then


        begin

                qryCliente.Close;

                TC.Free;

                qryCliente.Open;

        end;


end;