[TQuery] champs calculés

**Amenofis** · 07/01/2004, 12h53

Salut tout le monde,

pour rebondir sur ces deux sujets
http://www.developpez.net/forums/vie...=ajouter+champ
et
http://www.developpez.net/forums/vie...=ajouter+champ

je rencontre des problèmes pour utiliser le code fourni, à savoir

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
table1.oncalcfields := nil; 
table1.open; 
table1.close; 
// maintenant, fielddefs est remplis 
for i := 0 to fielddefs.count-1 do begin table1.fielddefs[i].createfield(table1); 
l_champ := tbooleanfield.create(table1); 
with l_champ do begin 
  fieldname := 'MONCALC'; 
  calculated := true; 
  dataset := table1; 
end; 
table1.oncalcfields := table1calcfields; 
table1.open;

car

Code :

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

fielddefs[i].createfield(table1)

ne passe pas à la compil, de plus je comprends pas ce que fait ce code, et ça j'aime pas trop...

mon problème est exactement le même que celui de Bloon : ajouter un champ calculé sur une requête dynamique...

en espérant que quelqu'un pourra m'aider...

Bloon peut-être ?

d'avance merci

@+

**Bloon** · 07/01/2004, 14h30

Voici du code qui marche :

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
27
28
29
30
procedure TForm1.Button1Click(Sender: TObject);
var
  i : integer;
begin
  query1.Close;
  // mise à jour de la liste des champs du dataset
  query1.FieldDefs.Update;
  // création des TField correspondant aux champs du dataset
  for i := 0 to query1.FieldDefs.count-1 do
    query1.FieldDefs[i].CreateField(self);
  // création du TField calculé
  with TStringField.Create(self) do
  begin
    FieldName := 'NOMPRENOM';
    DisplayLabel := 'Nom Prénom';
    Size := 255;
    FieldKind := fkCalculated;
    DataSet := query1;
  end;
  query1.Open;
end;
 
procedure TForm1.Query1CalcFields(DataSet: TDataSet);
var
  f : TField;
begin
  f := DataSet.FindField('NOMPRENOM');
  if assigned(f) then
    f.AsString := DataSet.FieldByName('NOM').AsString + ' ' + DataSet.FieldByName('PRENOM').AsString;
end;