Discussion :

[Rayek]

Bonjour,

J'aimerai pouvoir retourner via une fonction un tableau (dynamique ou non).

Code :

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

1
2
3
4
5
6
7
8
9
 
Type
  Maclass = class
    private
      FTableau : Array of String;
    published
    public
      function GetTableau : ????;
  end;

1- Est-ce possible ?
2- Si oui, comment ?

Merci

[Cl@udius]

Salut

En déclarant un type pour ton tableau ( ? ).

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Type
  TTableau: Array of string;
 
  Maclass = class
    private
      FTableau : TTableau;
    published
    public
      function GetTableau : TTableau;
  end;

Pas testé, mais ça doit le faire

@+ Claudius

[Rayek]

Merci

*S'en va aller acheter à prisu un cerveau*

[sjrd]

Attention avec cette forme du langage. Elle est dangereuse, et pour une raison mystérieuse.

Ce que je vais donner ici, je n'ai pas fait le test explicite en Delphi pour l'appuyer, mais j'en suis presque certain.
Edit : vérifié dans Delphi, c'est bien vrai.

Si ta fonction GetTableau renvoie le tableau FTableau directement :

Code :

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

Result := FTableau;

Alors, le tableau renvoyé sera lié à FTableau, de telle sorte que si tu modifies un élément de celui-ci, le même élément de FTableau sera modifié également !
Donc, tu ouvres une portes à la modification du tableau interne depuis l'extérieur de ton objet.

Pour cette raison, on préfère utiliser un paramètre de sortie (out) :

Code :

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

1
2
3
4
procedure GetTableau(out Tableau: TTableau);
begin
  Tableau := Copy(FTableau);
end;

Ca c'est sans danger, car le contenu du tableau sera bel et bien recopié.

[Cl@udius]

Salut

Alors, le tableau renvoyé sera lié à FTableau, de telle sorte que si tu modifies un élément de celui-ci, le même élément de FTableau sera modifié également !
Donc, tu ouvres une portes à la modification du tableau interne depuis l'extérieur de ton objet.

Dis moi, cette inquiétude - ou certitude - est-elle liée au fait qu'on parle d'un tableau ? et si oui, est-ce limité au tableau ?

@+

[Rayek]

Attention avec cette forme du langage. Elle est dangereuse, et pour une raison mystérieuse.

Ce que je vais donner ici, je n'ai pas fait le test explicite en Delphi pour l'appuyer, mais j'en suis presque certain.

Si ta fonction GetTableau renvoie le tableau FTableau directement :

Code :

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

Result := FTableau;

Alors, le tableau renvoyé sera lié à FTableau, de telle sorte que si tu modifies un élément de celui-ci, le même élément de FTableau sera modifié également !
Donc, tu ouvres une portes à la modification du tableau interne depuis l'extérieur de ton objet.

Pour cette raison, on préfère utiliser un paramètre de sortie (out) :

Code :

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

1
2
3
4
procedure GetTableau(out Tableau: TTableau);
begin
  Tableau := Copy(FTableau);
end;

Ca c'est sans danger, car le contenu du tableau sera bel et bien recopié.

Je n'utilise pas le tableau de cette manière, donc pas de soucis.
Sinon, il m'arrive parfois d'utiliser cette "copie" des pointeurs pour gèrer des objets ou variables.

ex:

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
22
23
24
25
 
Type
  TTableau: Array of string;
 
  Maclass = class
    private
      FMemo : TMemo;
      procedure AddtoMemo(sText : String);
    published
      property Memo : TMemo read FMemo Write FMemo;
    public
      function GetTableau : TTableau;
  end;
 
//...
procedure Maclass.AddtoMemo(sText : String);
begin
  if assigned(FMemo) then
  With FMemo do
  begin
    while lines.count > 500 then
      delete(0);
    Lines.add(sText);
  end;
end;

[sjrd]

Salut


Dis moi, cette inquiétude - ou certitude - est-elle liée au fait qu'on parle d'un tableau ? et si oui, est-ce limité au tableau ?

@+

C'est lié - et limité - à l'utilisation des tableaux dynamiques. C'est une de leurs bizarreries

Au fait, j'ai vérifié ce que j'avançais : j'avais bien raison

[Cl@udius]

Salut

C'est lié - et limité - à l'utilisation des tableaux dynamiques. C'est une de leurs bizarreries

Bon il faudra que je m'en souvienne.
Merci

@+

[bubulemaster]

Juste pour savoir, si on met un var à la place du out "ça revient" au même (si on ne fait que de la sortie, var permettant de faire de l'entrée/sortie) ?
Pour un objet, on peut utiliser Out aussi ?

[sjrd]

Juste pour savoir, si on met un var à la place du out "ça revient" au même (si on ne fait que de la sortie, var permettant de faire de l'entrée/sortie) ?

Oui c'est exactement cela.

Pour un objet, on peut utiliser Out aussi ?

9 chances sur 10 que ce n'est pas ce que tu veux faire Parce qu'en général, on n'utilise var et out sur des objets que si l'on sait pertinament ce qu'on fait : donc on ne pose pas la question
Quel est l'usage que tu voudrais ?