Bonjour,

Je fais une petite appli pour suivre un budget. J'ai l'habitude d'utiliser les fichiers typés:
je déclare donc le type d'enregistrement, une variable tampon et une cariable fichier tel que suit:

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
uses
  Classes, SysUtils; 
...
Type
  TTypeEcheance = (teNonDefini,teUnique,teMensuel,teBimestriel,teTrimestriel,teAnnuel);

  TFicheEche = record
    Index    : SmallInt;
    NomEche  : String;
    Montant  : Single;
    Minimum  : Single;
    Maximum  : Single;
    TypeEche : TTypeEcheance;
    DateEche : TDateTime;
  end;

Var
  FicEche : TFicheEche;
  fEche   : File of TFicheEche;
La ligne en rouge, le compilateur me donne le message suivant: typed files cannot contain reference-counted types
Ce qui passait auparavant ne passe plus...
No comprendo, comment trouver l'unité qui est concernée?
Merci