Je tombe sur un OS, (un nos nos il veut un nonosse le buzz ?)
Je déclare se record :
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 type TBaseDefaut = Record Table : String; Champ : String; Primaire : Boolean; Unique : Boolean; TypeField : String; Taille : Integer; DefautValue : Variant; Nullable : Boolean; End; Var aBaseDefaut : Array of TBaseDefaut; aBasePlanning : Array of TBaseDefaut;
Ensuite dans une procédure je l'utilise ainsi :
Cela fonctionne trés bien.
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 Procedure TFControlBase.AnalyseTableChamps; Var //... begin TailleRecord := 0; CompteurRecord := 0; Cnx := TADOConnection.Create(nil); TblIndex := TADOTable.Create(nil); TblColumn := TADOTable.Create(nil); Try Cnx. //... Cnx.OpenSchema //... try // ... SetLength(aBaseDefaut,TailleRecord); // etc...
J'ai voulu utiliser une manière de faire pour gagner en code
Et la j'ai une Type incompatible sur
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12 Procedure TFControlBase.AnalyseTableChamps; Procedure AlimentationRecord(BaseMDB : String; aRecord: Array of TBaseDefaut; Delai: Integer); Var // ... begin TailleRecord := 0; CompteurRecord := 0; //... SetLength(aRecord,TailleRecord); begin end;
Code : Sélectionner tout - Visualiser dans une fenêtre à part SetLength(aRecord,TailleRecord);
Partager