Discussion :

[Jcpan]

Bonjour j'ai pas compris comment ça marche les fonctions avec des paramètres out

exemple :

Code :

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

1
2
3
4
5
6
7
8
9
 
function TInterfacedObject.QueryInterface
  (const IID: TGUID; out Obj): HResult;
const
  E_NOINTERFACE = $80004002;
begin
  if GetInterface(IID, Obj) then 
    Result := 0 else Result := E_NOINTERFACE;
end;

il existe un parametre IN ???

merci

[Cl@udius]

Salut

Un petit extrait de l'aide.

Un paramètre de sortie (out) est transmis par adresse comme un paramètre variable. Mais avec un paramètre out, la valeur initiale de la variable référencée n'est pas prise en compte par la routine à laquelle elle est transmise. Le paramètre out n'est utilisé qu'en sortie ; il indique simplement à la routine où placer la valeur en sortie sans spécifier de valeur en entrée.

il existe un parametre IN ???

Non, en y réfléchissant cela correspond à const.

@+ Claudius

[Jcpan]

un exemple S.V.P me ferai beaucoup aider ainsi que les autres lecteurs
Merci.

[Cl@udius]

Exemple bateau d'utilisation de out qui me vient à l'esprit, c'est la définition d'une procédure qui va renseigner un record par exemple.
Tu transmets à ta procédure ta variable record, mais celle-ci n'a pas besoin d'être initialisée.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
procedure RenseignerRecord(out AEnreg: TMonEnreg);
begin
  // ... Faire QQ chose.
end;
 
 
var
  MonEnreg: TMonEnreg;
begin
  RenseignerRecord(MonEnreg);
  // ...
end;

C'est tout bête en somme.

@+

[Kaféine]

humm Le paramètre out s'apparante au paramètre var?

mais qu'elle est la subtilité?

[Cl@udius]

humm Le paramètre out s'apparante au paramètre var?

Oui tout deux sont passés par référence à la procédure.

mais qu'elle est la subtilité?

Dans le cas de out la variable n'a pas besoin d'être initialisée, comme dans mon exemple.

@+

[Kaféine]

Ok Claudius,

mais si je remplace out dans ton exemple par var ça fonctionne quand même...

[Cl@udius]

Oui tout à fait. A condition de ne pas examiner les valeurs du record d'entrée de jeu.

[Kaféine]

Bien je crois que j'ai compris, heu non j'en suis sur

[guillemouze]

humm Le paramètre out s'apparante au paramètre var?

mais qu'elle est la subtilité?

out et var, meme combat, sauf que out t'empeche d'utiliser la valeur passée en parametre comme source de données.

l'interet du out se situe principalement au fait que qu'il te permet de faire des fonctions avec plusieurs valeurs de retour, et aussi que tu peu retourner des valeurs non typées.
l'exemple de query§Interface est interessant, il te retourne l'interface deamndée dans le parametre Obj, et te retourne aussi une information si ca s'est bien passé (-> 2 valeurs retournées, et 1 valeur de type indefini)

[Aka Guymelef]

Une citation de l'aide de Delphi 7, noter surtout le passage en gras :

Un paramètre de sortie (out) est transmis par adresse comme un paramètre variable. Mais avec un paramètre out, la valeur initiale de la variable référencée n'est pas prise en compte par la routine à laquelle elle est transmise. Le paramètre out n'est utilisé qu'en sortie ; il indique simplement à la routine où placer la valeur en sortie sans spécifier de valeur en entrée.

Soit, par exemple, l'en-tête de procédure suivant :

procedure ExtraitInfos(out Info: UnTypeEnreg);

Quand vous appelez ExtraitInfos, vous devez lui transmettre une variable de type UnTypeEnreg :

var MonEnreg: UnTypeEnreg;
...
ExtraitInfos(MonEnreg);

Mais vous n'utilisez pas MonEnreg pour transmettre des données à la procédure ExtraitInfos ; MonEnreg sert simplement de conteneur où ExtraitInfos stocke les informations qu'elle génère. L'appel de ExtraitInfos libère immédiatement la mémoire utilisée par MonEnreg, avant que le contrôle du programme ne passe à la procédure.

Les paramètres Out sont fréquemment utilisés avec les modèles d'objets distribués comme COM et CORBA. De plus, vous devez utiliser des paramètres out pour transmettre une variable non initialisée à une routine.

[Kaféine]

Oui, regardons si j'ai compris.

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
 
 TMonEnreg = record
   a: string;
 end;
 
procedure DoIt(out UnTruc: TMonEnreg);
begin
   UnTruc.a := 'zzz';
end;
 
procedure FaitLe(var UnTruc: TMonEnreg);
begin
  if UnTruc.a = 'test' then
    UnTruc.a := 'ee'
  else
    UnTruc.a := 'zzz';
end;

en gros avec out je ne peux que affecter.
avec var je peut teste la valeur initialise en plus d'affecter?

le "if UnTruc.a = 'test' then" est impossible avec un paramètre out.

[LeGEC]

Le "if UnTruc.a = 'test' then" est impossible avec un paramètre out.

C'est cela. Ensuite, il y a un truc plus pernicieux : supposons que tu rajoutes une méthode "Add" à ton record

Code :

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

1
2
3
4
5
6
7
8
9
 TMonEnreg = record
   a: string;
   procedure Add( const AMsg : string );
 end;
 
procedure TMonEnreg.Add( const AMsg : string );
begin
  a := a + AMsg;
end;

Quell différence y a-t-il entre les deux bouts de code suivants?

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
 
//Exemple 1
procedure addWorld( var AArg : TMonEnreg );
begin
  AArg.Add( 'World!' );
end;
 
procedure HelloWordl;
  var
    LMsg : TMonEnreg;
begin
  LMsg.Add( 'Hello ' );
  addWorld( LMsg );
  ShowMessage( LMsg.a );
end;

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
 
//Exemple 2
procedure addWorld( out AArg : TMonEnreg );
begin
  AArg.Add( 'World!' );
end;
 
procedure HelloWordl;
  var
    LMsg : TMonEnreg;
begin
  LMsg.Add( 'Hello ' );
  addWorld( LMsg );
  ShowMessage( LMsg.a );
end;

Les deux compilent, mais dans le deuxième cas, vous aurez la surprise de ne voir s'afficher que 'Wordl!'.

Il y a en fait une erreur de conception dans le deuxième exemple : la méthode "Add" a l'air d'être une méthode en écriture seule sur le type TMonEnreg, mais en fait, il faut qu'elle connaisse le contenu de TMonEnreg pour pouvoir agir. Elle nécessite donc en fait un accès en écriture et en lecture sur la variable à laquelle elle s'applique.

Comme le dit Guymelef dans l'extrait de l'aide qu'il cite : "L'appel de ExtraitInfos libère immédiatement la mémoire utilisée par MonEnreg, avant que le contrôle du programme ne passe à la procédure."

Dans le cas de l'exemple 2, le code compile quand même, mais sans prévenir, au moment de l'appel à la procédure "addWorld", Delphi réinitialise automatiquement le contenu du record passé en argument (il appelle FinalizeRecord avant de rentrer dans la fonction), et la variable passée en "out" perd son contenu.

Dans cet exemple, on peut dire que c'est une erreur de conception, mais elle ne saute pas forcément aux yeux, et si ton code manipule des interfaces qui se tiennent les unes les autres ou des trucs plus tordus, tu peux te retrouver à désallouer des objets ou des données sans t'en rendre compte.

Je n'ai pas dit "N'utilisez pas de paramètres out !", mais il faut être conscient de ce que cela implique lorsqu'on écrit des fonctions qui en prennent un.

*LeGEC*