Discussion :

[BuzzLeclaire]

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 :

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...

Cela fonctionne trés bien.

J'ai voulu utiliser une manière de faire pour gagner en code

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;

Et la j'ai une Type incompatible sur

Code :

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

SetLength(aRecord,TailleRecord);

[Caribensila]

Salut,

L'os rouge :

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;
  TBaseDefautArray  = Array of TBaseDefaut;


Procedure AlimentationRecord(BaseMDB : String; aRecord: TBaseDefautArray; Delai: Integer);

[BuzzLeclaire]

Attrape Buzz..... attrape, attrape, ça c'est un bon Buzz...


Merci @Cariben