Déclaration de fichier typé non acceptée
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:
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
