Discussion :

[frantzgac]

bjr

est il possible de définir dynamiquement (à l'execution donc) des champs calculés ? Impossible avec TFieldsDefs puisque la propriété FieldKind est inacessible

Le but est de les intégrer dans la formule d'un agrégat lui aussi créé dynamiquement?

Si oui, je suis preneur du code...

[JustMe]

tiens je te prête ma procedure

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
procedure ChampPersistant(DataSet: TClientDataSet; NomChamp: string;
  TypeDonnee: TFieldType; TypeChamp: TFieldKind; Taille: Integer);
var
  F: TField;
begin
  if TypeDonnee = ftString then
    F := TStringField.Create(DataSet)
  else
    if TypeDonnee = ftInteger then
      F := TIntegerField.Create(DataSet)
    else
      if TypeDonnee = ftBoolean then
        F := TBooleanField.Create(DataSet)
      else
        if TypeDonnee = ftFloat then
          F := TFloatField.Create(DataSet);
          {Tu peux ajouter les types de champs dont tu en a besoin}
  with F do
  begin
    FieldName := NomChamp;
    FieldKind := TypeChamp;
    DataSet := Table;
    Name := Dataset.Name + NomChamp;
    DataSet.FieldDefs.Add(NomChamp, TypeDonnee, Taille, False);
  end;
end;

n'oublie pas dans ta clause uses DB;