Discussion :

[Anselme45]

Bonjour,

J'ai un clientdataset dont une partie des champs est fixe et une autre partie dont le nombre peut changer en fonction de la situation:

exemple: ID, Nom, Prénom, adresse, droit1, droit2,..., droit i

1. Au démarrage de l'app, je crée mon clientdataset en fonction du nombre de champ voulu

2. Problème: Quand je veux y enregistrer un record en mettant une valeur par défaut avec un ClientDataser1.AppendRecord([...]

Normalement, le code va avoir une forme du genre

Code :

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

ClientDataser1.AppendRecord([ID, 'Toto', 'Marcel', 'Rue de la Gare', 'valeur droit1',...'valeur droit i']);

Mais c'est pas dynamique! Je me suis donc dit: Tu fabriques un string en fonction du nombre variable de champ et tu l'insert dans la commande AppendRecord du style

Code :

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

1
2
3
 
 str:='1, ''Toto'', ''Marcel'', ''Rue de la Gare'',1, 2,3, 4, 5, 6';
 ClientDataser1.AppendRecord([str];

Pas de problème à la compilation mais cela plante au running: J'ai une exception " '1, 'Toto', 'Marcel', 'Rue de la Gare',1, 2,3, 4, 5, 6 " n'est pas une valeur valide pour {Nom du premier champ du clientdataset} "... Delphi prend mon string comme étant simplement la valeur du premier champ du record... A remarquer qu'il garde l'apostrophe au début du string mais ne prend pas en compte l'apostrophe qui termine le string?!?!?

Est-ce que quelqu'un a une idée pour résoudre mon problème?

Merci

[XeGregory]

En utilisant un tableau dynamique

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
var
  Values: array of Variant;
begin
  // Dimensionner le tableau pour correspondre au nombre de champs du ClientDataSet
  SetLength(Values, ClientDataSet1.FieldCount);
 
  // Affecter les valeurs pour les champs fixes
  Values[0] := 1;                // Par exemple, champ ID
  Values[1] := 'Toto';           // Nom
  Values[2] := 'Marcel';         // Prénom
  Values[3] := 'Rue de la Gare'; // Adresse
  // Ect.......................
 
  // Insérer le record en une seule passe
  ClientDataSet1.AppendRecord(Values);
end;

[Anselme45]

En utilisant un tableau dynamique

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
var
  Values: array of Variant;
begin
  // Dimensionner le tableau pour correspondre au nombre de champs du ClientDataSet
  SetLength(Values, ClientDataSet1.FieldCount);
 
  // Affecter les valeurs pour les champs fixes
  Values[0] := 1;                // Par exemple, champ ID
  Values[1] := 'Toto';           // Nom
  Values[2] := 'Marcel';         // Prénom
  Values[3] := 'Rue de la Gare'; // Adresse
  // Ect.......................
 
  // Insérer le record en une seule passe
  ClientDataSet1.AppendRecord(Values);
end;

1.
Merci pour l'idée mais...en la testant, je constate que cela ne fonctionne pas: Delphi 12 indique à l'édition de la ligne "ClientDataSet1.AppendRecord(Values)": Types incompatibles: "Array of TVarRec" et "Dynamic Array"

AppendRecord semble exiger comme paramètre un "Array of const"


2. Je remplace la ligne de code par un "ClientDataSet1.AppendRecord(TValueArrayToArrayOfConst(myValues));" avec la variable myValues qui n'est plus un "Array of Variant" mais un "Array of TValue" >>> Delphi 12 accepte de compiler le code mais c'est au démarrage de l'application que cela plante avec comme message d'erreur "Transtypage de classe incorrect"

3. Je passe d'une question à l'autre: Est-il possible de convertir un Dynamic Array en Array of TVarRec?

[XeGregory]

Utilise Append pour insérer dynamiquement un enregistrement dans un ClientDataSet, champ par champ, à partir d’un tableau dynamique

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
 
uses System.Variants;
 
//......
 
var
  i: Integer;
  Values: array of Variant;
begin
  // Remplir dynamiquement le tableau avec les valeurs des champs
  SetLength(Values, ClientDataSet1.FieldCount);
  Values[0] := 1;
  Values[1] := 'Toto';
  Values[2] := 'Marcel';
  Values[3] := 'Rue de la Gare';
  // etc...
 
  ClientDataSet1.Append;
  for i := 0 to ClientDataSet1.FieldCount - 1 do
  begin
    if not VarIsEmpty(Values[i]) then
      ClientDataSet1.Fields[i].Value := Values[i];
  end;
  ClientDataSet1.Post;
end;

[tourlourou]

Bonjour,

Je lis ici qu'un array of const est un array of TVarRec.

Ça oblige à dimensionner le tableau et fixer le type de chaque élément, mais s'ils sont tous du même, ça n'alourdira pas trop le code.

[ShaiLeTroll]

Pourquoi ne pas stocker un XML, un JSON ou un autre format pour la partie volatile ?
Tu ne pourras pas avoir des enregistrements avec un nombre de colonne variable avec un DataSet

Tu peux cependant crééer un TClientDataSet contenant une colonne binaire ou XML
Cette colonne contient elle même un autre TClientDataSet


Tu peux aussi voir ce que donne un TArrayField