Discussion :

[XeGregory]

Bonjour à tous,

Est-ce qu'on peut regrouper un type au lieu de le déclarer à chaque fois

Code :

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

if not(Table.Fields[I].DataType in [ftAutoInc, ftMemo, ftFmtMemo, ftGraphic, ftBlob, ftGuid]) then

Avec quelque chose de style :
Exclusion = ftAutoInc, ftMemo, ftFmtMemo, ftGraphic, ftBlob, ftGuid

Code :

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

if not(Table.Fields[I].DataType in [Exclusion]) then

Merci

[ShaiLeTroll]

Tu veux définir une constante ?
Je suppose que tu as déjà trouvé mais voici ce que cela donne

Code :

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

1
2
const
  FIELD_TYPE_EXCLUSIONS = [ftAutoInc, ftMemo, ftFmtMemo, ftGraphic, ftBlob, ftGuid];

Code :

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

if not (Table.Fields[I].DataType in FIELD_TYPE_EXCLUSIONS) then

Et si tu les Exclusions peuvent évoluer en runtime, une variable globale (ou membre d'une classe) sinon

Code :

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

1
2
var
  VolatileFieldTypeExclusions: TFieldTypes = [ftAutoInc, ftMemo, ftFmtMemo, ftGraphic, ftBlob, ftGuid];

Code :

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

1
2
Include(VolatileFieldTypeExclusions, ftUnknown);
if not (Table.Fields[I].DataType in VolatileFieldTypeExclusions) then

Tu peux aussi te faire une fonction (voir même un TFieldHelper si c'est très répandu dans ton projet)

Code :

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

1
2
3
4
5
6
function IsFieldTypeExclusion(AField: TField): Boolean;
const
  FIELD_TYPE_EXCLUSIONS = [ftAutoInc, ftMemo, ftFmtMemo, ftGraphic, ftBlob, ftGuid];
begin
  Result := Assigned(AField) and AField.DataType in FIELD_TYPE_EXCLUSIONS;
end;

Code :

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

if not IsFieldTypeExclusion(Table.Fields[I]) then

ou l'inverse

Code :

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

1
2
3
4
5
6
function IsFieldTypeAccepted(AField: TField): Boolean;
const
  FIELD_TYPE_EXCLUSIONS = [ftAutoInc, ftMemo, ftFmtMemo, ftGraphic, ftBlob, ftGuid];
begin
  Result := Assigned(AField) and not (AField.DataType in FIELD_TYPE_EXCLUSIONS);
end;

Code :

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

if IsFieldTypeAccepted(Table.Fields[I]) then

[XeGregory]

Tu veux définir une constante ?
Je suppose que tu as déjà trouvé mais voici ce que cela donne

Code :

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

1
2
const
  FIELD_TYPE_EXCLUSIONS = [ftAutoInc, ftMemo, ftFmtMemo, ftGraphic, ftBlob, ftGuid];

Code :

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

if not (Table.Fields[I].DataType in FIELD_TYPE_EXCLUSIONS) then

Je suppose que tu as déjà trouvé mais voici ce que cela donne

Non, je ne l'avais pas trouvé. En réalité, je ne savais pas qu'il était possible de déclarer de cette manière.

Merci ShaiLeTroll

[ShaiLeTroll]

C'est surement à cause de cela que l'on déclare une constante set via [] mais une constante array via ()
Parfois, j'ai l'erreur genre Type incompatible set of ... et array of quand je veux déclarer un tableau un peu vite en oubliant que c'est () et non [], je me fais encore avoir parfois.