Discussion :

[MiJack]

Hello,

J'ai une fonction à laquelle je dois passer un paramètre facultatif, mais celui-ci peut-être de n'importe quel type.

Au début j'avais mis

Code :

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

procedure maFonction(obj : TObject = nil) ;

Mais bien sûr avec cette variante je ne peux pas passer des Integer ou des String qui ne sont pas des TObject.

J'ai essayé avec le type "variant", mais celui-ci ne peut pas avoir de valeur par défaut, donc je ne peux pas rendre le paramètre facultatif.

Y a-t-il d'autres possibilités ?

[anapurna]

salut


deux solution pour regler ton probleme

la 1°) la plus propre a mon gout
tu creer des objet pour chaque type que tu desir
exempe ObjInt ou ObjStr decendant de tobjet donc plus de sousis
exemple :

Code :

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

1
2
3
4
5
6
7
8
Type 
ObjInt = Class(Tobject)
   fvalue : Integer;
 Procedure setvalue(Value : integer);
 Function GetValue : integer; 
 property value : integer read GetValue write setvalue ;
end;
...

la deuxieme tu transtype ton integer

Code :

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

Tobject(mavaleur)

@+ Phil

[MiJack]

Ok, merci.

Mais qu'est-ce qui est "moins propre" avec le transtypage ? Des problèmes pour passer de l'Integer à l'Object ?

[anapurna]

salut

c'est une question d'etique soit tu developpe tout objet
proprement et la pas de soucis soit tu bidouille mais ca marche quand meme


@+ Phil

[e-ric]

Salut

Essaie ceci :

Code :

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

1
2
 
procedure maFonction(const obj);

Tu ne spécifies pas de type. Le problème pour la suite est de pouvoier déterminer ce que tu as passé en paramètre.

Reporte-toi à l'aide en ligne.

Ton besoin me paraît bizarre. tu peux l'expliquer

cdlt

e-ric

[MiJack]

Ok, merci pour tes explications.

[TicTacToe]

Juste un truc,

Pour les transtypages, attention à ce que le type casté à la place de TObjet ne dépasse pas la taille du TObject (donc 4 octets), donc Integer, boolean OK, mais pas extended...

et d'autre part, tu ne peux pas caster non plus les string aussi simplement (comme j'ai pu le voir dans le 1er post).

Pour les string, des solutions ont été proposées (par Sub0 il me semble?) pour palier à ce problème.

bon code!

[Pedro]

Salut
Et pourquoi tu ne passerais pas un pointer en paramètre?

[MiJack]

Salut
Et pourquoi tu ne passerais pas un pointer en paramètre?

Un pointeur vers un Integer ?

Ou alors tu penses à passer un Integer qui dans certains cas serait l'adresse mémoire contenue dans le pointeur ? Un peu dangereux comme technique.

[Pedro]

Un pointeur vers un Integer ?

Exactement Pourquoi?

Ou alors tu penses à passer un Integer qui dans certains cas serait l'adresse mémoire contenue dans le pointeur ?

Pas du tout

[MiJack]

Je ne savais pas que c'était possible... Mais dans ma fonction, je devrai bien mettre le type du pointeur, et là j'ai toujours un problème non ?

[denokan]

j'allais proposer la même chose que pedro, voilà un exemple qui fonctionne :

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
 
type
  TTypeVariable = (tvRien, tvInteger, tvObjet);
 
procedure BelleProc(data : Pointer = nil; TypeVariable : TTypeVariable = tvRien);
begin
  case TypeVariable of
    tvRien:
      ShowMessage('pas de paramètres ?');
    tvInteger: begin
      Integer(data^) := Integer(data^) + 5;
    end;
    tvObjet: begin
      TButton(data).Caption := TButton(data).Caption + '5';
    end;
  end;
end;

il ne reste plus qu'a adapter à ton cas

[TicTacToe]

Salut
Et pourquoi tu ne passerais pas un pointer en paramètre?

Salut

oui Pointer aussi,
ou bien Cardinal, THandle etc ou simplement Integer...

Mais en fait on peut définir le type du paramètre avec tout type de 4 octets,
--> et lors de l'appel, passer 'nimporte quel var de type de 4 octets ou moins en castant et decastant.


Mais ton plus gros problème, ce sera les string, car tu en as parlé dans ton 1er post.

Sinon, mieux vaut utiliser les variant effectivement.

[EDIT] Bon je raconte n'importe quoi, je t'ai mal lu Pedro.
Effectivement c'est pas mal ta solution.

[anapurna]

salut

bin non vaut mieux les objet
quitte a faire des objet specialise permettant de le transformer en string pour tout les autre type
de pouvoir aussi le formater

le variant c'est super lourd et je te dit pas la ressource que ca prend

@+ Phil

[denokan]

non non ca marche aussi pour les strings =)

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
 
type
  TTypeVariable = (tvRien, tvInteger, tvObjet, tvString);
 
procedure BelleProc(data : Pointer = nil; TypeVariable : TTypeVariable = tvRien);
begin
  case TypeVariable of
    tvRien:
      ShowMessage('pas de paramètres ?');
    tvInteger: begin
      Integer(data^) := Integer(data^) + 5;
    end;
    tvObjet: begin
      TButton(data).Caption := TButton(data).Caption + '5';
    end;
    tvString: begin
      ShowMessage(String(data^));
    end;
  end;
end;

[slimjoe]

Ne serait-ce pas un bon moment pour surcharger la méthode ?

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
26
27
28
29
30
31
32
33
34
35
36
37
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;
 
type
  TForm1 = class(TForm)
  private
    { Private declarations }
  public
    { Public declarations }
 
    procedure MaProc(AObject: TObject = nil); overload;
    procedure MaProc(AInteger: integer); overload;
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.MaProc(AObject: TObject = nil);
begin
   //Je gère mon objet
end;
 
procedure TForm1.MaProc(AInteger: integer);
begin
    //Je gère mon entier
end;
 
end.

[MiJack]

@slimjoe : bien sûr ça paraît le plus logique, mais dans mon cas je ne peux pas surcharger la méthode pour des raisons que je n'ai pas le courage d'expliquer

Mais j'ai utilisé le transtypage un peu sauvage, mais ça marche très bien si je fais attention aux types que je fais passer.