Discussion :

[Mike888]

[Titre édité par Nono40]
[Ancien titre = Une simple question ]

Salut !

J'ai une question très précise avec je suppose une réponse courte.

Est-ce que le type du résultat d'une fonction peut être un enregistrement ?


Ex:

Code :

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

1
2
3
4
Type zyx = Record abc : Integer; def : String;
...
Function lmn : zyx ;
...

Merci !

[M.Dlb]

Non !
Pas sous TP en tout cas, mais sous Delphi ca marche !

La solution est de passer par les pointeurs (cool !)

a+

[Mike888]

Pourquoi tu dis "cool" ????

[M.Dlb]

Parce que c'est cool les pointeurs

[M.Dlb]

Ca peut parraître rébarbatif les pointeurs mais on voit par la suite que ca décuple les possibilités de la programmation (c'est pour ça que les nouveaux langages tels que Delphi ou Java les gèrent naturellement !)

[Mike888]

Ok, très bien, ...
Mais j'en suis pas encore là

N.B.: est-ce qu'il existe une astuce pour "simuler" ces fonctions de type enregistrement en Pascal ou est-ce que j'abandonne direct l'idée ?

[M.Dlb]

Abandonne l'idée si tu ne te sers pas des pointeurs. Tu peux par contre utiliser des procédures et passer les paramètres par adresse (avec le mot réservé var devant chaque paramètre). Les paramètres seront chaque champ de ton enregistrement. C'est assez lourd si tes enregistrements ont beaucoup de champs, mais c'est la seule solution...


a+

[Mike888]

Oui, effectivement ...

Merci

[Nono40]

Abandonne l'idée si tu ne te sers pas des pointeurs. Tu peux par contre utiliser des procédures et passer les paramètres par adresse (avec le mot réservé var devant chaque paramètre). Les paramètres seront chaque champ de ton enregistrement. C'est assez lourd si tes enregistrements ont beaucoup de champs, mais c'est la seule solution...

Non, en tant que paramètre VAR un record entier est autorisé. D'ailleurs dans les première versions de TP un paramètre record par valeur ( sans var ) était transformé automatiquement en paramètre par référence.

Ta solution est donc de transformer :

Code :

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

Function MaFonction(-params-):TMonRecord;

En

Code :

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

Procedure MaFonction(-params-;Var MonRecord:TMonRecord);

( dans Delphi les paramètres Record sont réellement passés par valeur sans le VAR dans la déclaration )

[M.Dlb]

Ok merci Nono pour cette précision ! Effectivement je dis de la "merde" des fois ( ca m'arrive de plus en plus souvent... je suis malade docteur ? )

a+

[Mike888]

Ok, merci pour les précisions !