Discussion :

[AL1986]

En VB le mot réservé TypeOf est utilisé pour tester "la nature" d'un objet (type, genre de control, etc) selon la syntaxe suivante :

Code VB :

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

 If TypeOf MonObjet Is MonTypeOuMonControle Then

Y a-t-il un équivalent en Delphi ?
Merci

[sjrd]

Pour les objets, tu as l'opérateur is qui teste si la classe de l'objet est ou dérive d'une classe donnée :

Code :

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

if MonObjet is TMaClasse then

Pour les autres types, ben comme ils sont déclarés et immuables, ça n'a pas de sens

Si tu travailles avec des Variant tu as VType.

[AL1986]

OK Merci. Je teste avant de mettre en résolu.

[AL1986]

J'ai essayé de faire une petite manip :

Code Delphi :

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

1
2
3
4
5
6
7
procedure TForm2.Button1Click(Sender: TObject);
var
  b : TDatabase;
begin
if b is TDatabase then
  showmessage('oukich');
end;

J'ai bien le message quand je clique sur le bouton, cependant si je remplace TDatabase dans le test du if par un autre type :

Code Delphi :

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

if b is TUneAutreClasse then

j'ai une erreur de compilation. Dans mon code je serai amené à parcourir les contrôles de ma form et à tester leurs types un a un. Est-ce que l'opérateur is marchera pour effectuer une telle opération ? Merci

[sjrd]

L'opérateur is peut être appliqué lorsque le type déclaré de la variable et la classe inscrite à droite sont directement parentes. À savoir que l'un soit descendant de l'autre

Donc si ta variable est de type TObject, l'opérateur is fonctionne toujours, car toutes les classes dérivent de TObject. Mais ici ta variable est de type TDatabase, donc seules les classes dont dérive TDatabase ou qui dérivent de TDatabase peuvent être employées avec is.

[domlagagne]

essaie

Code :

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

 if b.classname='TDatabase' then ...

[sjrd]

Non ! Surtout pas ! Ca c'est vraiment hyper moche et dangereux comme programmation !
C'est l'opérateur is qu'il faut utiliser, pas autre chose.

Dans certains cas très spécifiques, une comparaison de ClassType peut être envisagée, mais en aucun cas de ClassName.

[AL1986]

L'opérateur is peut être appliqué lorsque le type déclaré de la variable et la classe inscrite à droite sont directement parentes. À savoir que l'un soit descendant de l'autre

Compris

essaie

Code :

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

if b.classname='TDatabase' then ...

Ca ne semble pas marcher, et quand je fais un

Code Delphi :

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

 showmessage(b.classname)

j'obtiens TButton ????