RECORD |
Enregistrement |
|---|---|
| Delphi/Kylix/Lazarus | |
Syntaxe
|
Type identtype=Record partie_fixe partie_variable End; |
|
Var identvar:Record partie_fixe partie_variable End; |
|
Type identvar=Record Members Case nom:Selecteur of Case, ...:(Membre...;); ... End; |
|
Type identvar=Packed Record Members Case nom:Selecteur of Case, ...:(Membre...;); ... End; |
Paramètres
| Nom | Description |
|---|---|
| identtype | Ce paramètre permet d'indiquer le nom du type de données |
| identvar | Ce paramètre permet d'indiquer le nom de la variable |
| partie_fixe | Ce paramètre permet d'indiquer les définitions des champs de la partie fixe d'un enregistrement |
| partie_variable | Ce paramètre permet d'indiquer les définitions des champs de la partie variable d'un enregistrement |
| Membre | Ce paramètre permet d'indiquer les définitions d'un membre |
| Selecteur | Ce paramètre permet d'indiquer un sélecteur de cas |
| nom | Ce paramètre permet d'indiquer un nom de cas. |
Description
Ce mot réservé permet de définir des structures d'enregistrement contenu dans des variables.
Exemple
Cet exemple permet de montrer l'utilisation d'un enregistrement :
- Program RecordSamples;
-
- {$APPTYPE CONSOLE}
- Uses SysUtils;
-
- Type
- personne=Record
- salutation:Char;
- prenom:String[30];
- nomfamille:String[30];
- ville:String[30];
- pays:String[30];
- province:String[30];
- End;
-
- Var
- a:personne;
-
- BEGIN
- a.salutation := 'M';
- a.prenom := 'Sylvain';
- a.nomfamille := 'Maltais';
- a.ville := 'Laval';
- a.pays := 'CA';
- a.province := 'QC';
- WriteLn('Prénom : ',a.prenom);
- WriteLn('Nom : ',a.nomfamille);
- WriteLn('Ville : ',a.ville);
- END.
on obtiendra le résultat suivant :
Prénom : SylvainNom : Maltais
Ville : Laval
Voir également
Langage de programmation - Delphi/Kylix/Lazarus - Références de mots réservés (mots clefs) - Case
Langage de programmation - Delphi/Kylix/Lazarus - Références de mots réservés (mots clefs) - Packed
Langage de programmation - Delphi/Kylix/Lazarus - Références de mots réservés (mots clefs) - With
Dernière mise à jour : Mercredi, le 18 février 2015