Passer un paramètre de type soit Integer soit TObject

Version imprimable

21/07/2006, 11h05
MiJack

Passer un paramètre de type soit Integer soit TObject

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:

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 ?
21/07/2006, 11h15
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:

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:

Tobject(mavaleur)

@+ Phil
21/07/2006, 11h20
MiJack

Ok, merci.

Mais qu'est-ce qui est "moins propre" avec le transtypage ? Des problèmes pour passer de l'Integer à l'Object ?
21/07/2006, 11h27
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
21/07/2006, 11h29
e-ric
Salut

Essaie ceci :
Code:

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
21/07/2006, 11h34
MiJack

Ok, merci pour tes explications.
21/07/2006, 11h39
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!
21/07/2006, 13h22
Pedro

Salut :D
Et pourquoi tu ne passerais pas un pointer en paramètre? ;)
21/07/2006, 13h47
MiJack

Citation:

Envoyé par Pedro

Salut :D
Et pourquoi tu ne passerais pas un pointer en paramètre? ;)

Un pointeur vers un Integer ? :koi:

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.
21/07/2006, 13h59
Pedro

Citation:

Envoyé par MiJack

Un pointeur vers un Integer ? :koi:

Exactement :D Pourquoi?

Citation:

Envoyé par MiJack

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

Pas du tout :P
21/07/2006, 14h07
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 ?

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

Code:

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

21/07/2006, 14h20
TicTacToe

Citation:

Envoyé par Pedro

Salut :D
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. :)
21/07/2006, 14h25
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

non non ca marche aussi pour les strings =)

Code:

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;

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

Code:

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.

25/07/2006, 15h58
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 :mouarf:

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.