Discussion :

[Jlmat]

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

[Guesset]

Bonjour,

Il n'aime vraisemblablement pas le string qui est un pointeur sur une taille variable. Cela marche au cœur du programme, mais pas dans un fichier typé. En fixant une longueur comme string[255] (taille maxi d'une short string) cela devrait fonctionner.

Il serait par ailleurs préférable de mettre la chaîne en fin d'enregistrement.

Salutations

[Jlmat]

Bonjour Guesset,

Bien joué, ça fonctionne:

En fixant une longueur comme string[255] (taille maxi d'une short string) cela devrait fonctionner.

Effectivement, lesrecord n'aime pas les données variables...
D'ailleurs, Le string en fin de record, ça ne marche pas non plus.
Merci

[Guesset]

Bonjour,

Le string en fin de record a un avantage, si on ouvre le fichier en direct, il est un peu plus lisible. Les espaces qui vont jusqu'à 255 marquent la fin d'un enregistrement.

Salutations