Utiliser un transtypage "dynamique"

Version imprimable

Bonjour,

Le code suivant fonctionne (évidemment):

Code:

1
2
3
4
5
6
7
8
9
var
  unControle: TControl;
begin
  with unControle as TButton do
   begin
     // "Default" est une propriété spécifique à "TButton"
     Default:=True;
   end;
end;

mais le code suivant pose problème:

Code:

1
2
3
4
5
6
7
8
9
10
11
var
  unControle: TControl;
  uneClasse: TClass;
begin
  uneClasse:=TButton;
  with unControle as uneClasse do  // Cette ligne compile
   begin
     // "Default" est une propriété spécifique à "TButton"
     Default:=True;                        // ===> Cette ligne ne compile pas
   end;
end;

L'objectif est d'utiliser une procédure où la classe de l'objet peut varier ("uneClasse" est en fait transmis en argument).

Merci.

06/05/2014, 19h08
tourlourou
Il faut tester pour savoir si on peut transtyper, mais pas sans indiquer le type cible "en dur" :
Code:

1 2 if UnControle is TButton then TButton(UnControle).Default:=True;
Après, on peut voir du côté des RTTI et de la FAQ accéder par leur nom à des propriétés publiées, puisque le compilateur ne peut pas résoudre autrement les propriétés quand la classe figure dans une variable.
06/05/2014, 19h32
JPLSOFT

Codage en dur

Je voulais précisément éviter un codage en dur.
Jusqu'à présent, je n'ai rien trouvé...

ce que tu veux faire n'a pas de sens (sous Delphi)

le code à l'intérieur du With DOIT connaître le type de la variable pour savoir à quoi correspond "Default", sinon il est impossible de compiler le code.

je suppose que tu voudrais atteindre des propriétés homonymes de deux objets sans relation, mais ça ne fonctionne pas comme ça:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 type TObject1 = class a: Integer; b: Integer; Default: Boolean; end; TObject2 = class a: String; Default: Boolean; end; var o: TObject; begin with o AS XXX do // où XXX est TObject1 ou TObject2 Default := True; end;
on voit ici clairement(*) que la structure des objets en mémoire est différente, le même code machine ne peux pas écrire à deux endroits différents...d'autant qu'il n'aurait aucune indication sur le type d'objet, ça pourrait même être un objet n'ayant pas de propriété Default.

pour faire ce genre de chose tu peux utiliser les RTTI pour retrouver une propriété d'après son nom ou les Interfaces pour accéder à deux objets différents suivant un même schéma.

(*) précisons que ce n'est clair que dans l'esprit des programmeurs qui ont un tant soit peu connaissance de l'architecture des ordinateurs :)