Discussion :

[franky_miky]

Bonjour,

Une classe peut-elle contenir une variable de type record ?

Le code suivant ne compile pas :

Code :

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

1
2
3
4
5
6
7
TAnimal = class
  strict private
    TMember: record
      firstname, surname: string;
    end;
    member: TMember; // erreur à la compilation
    fichier: file of TMember; // erreur à la compilation

Remerciement à tous.

[Roland Chastain]

Bonjour ! Il y a une confusion dans votre code. Voici une version corrigée :

Code :

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

1
2
3
4
5
6
7
8
9
type
  TMember = record
    firstname, surname: string[100];
  end;
 
  TAnimal = class 
    FMember: TMember;
    FFichier: file of TMember;
  end;

[franky_miky]

merci à Monsieur Roland Chastain.

1 - la réponse semble être : on ne peut pas définir un type dans la classe mais à l'extérieur de la classe

2 - chaque élément d'un record doit avoir une longueur fixe.

remerciement

[Roland Chastain]

on ne peut pas définir un type dans la classe

Oui, mais de toute façon dans votre exemple vous ne déclarez pas un type mais une variable, comme si vous écriviez :

Code :

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

1
2
3
4
var
  record1: record
    a, b: string[100];
  end;

Alors que la déclaration du type serait :

Code :

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

1
2
3
4
 
type
  TRecord1 = record
  ...

chaque élément d'un record doit avoir une longueur fixe

Je ne sais pas si c'est absolument vrai. C'est vrai lorsqu'on veut créer un fichier d'enregistrements, dont tous les éléments doivent avoir la même taille.

[Paul TOTH]

merci à Monsieur Roland Chastain.

1 - la réponse semble être : on ne peut pas définir un type dans la classe mais à l'extérieur de la classe

2 - chaque élément d'un record doit avoir une longueur fixe.

remerciement

trois choses:

1) pour déclarer un type interne à l'objet il faut utiliser le mot clé "type", puis le mot clé "var" pour déclarer les membres
2) la déclaration d'un type se fait avec "=" et non ":", sinon c'est une déclaration variable de type record.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
TAnimal = class
  strict private
  type // déclaration d'un type
    TMember= record // déclaration et non variable !
      firstname, surname: string;
    end;
  var
    member: TMember; 
    fichier: file of TMember; // erreur à la compilation
  end;

3) c'est "file of" qui demande des structures de tailles fixes et surtout non dynamiques; là on a deux string qui sont des pointeurs de taille fixe (4 octets) mais dynamiques (allocation dynamique de la chaîne).

[Roland Chastain]

Tiens, je n'avais jamais fait attention qu'on pouvait déclarer un type dans une classe. Au temps pour moi !

[franky_miky]

bonjour
la réponse de Monsieur Paul TOTH me satisfait pleinement.
remerciements à tous