Discussion :

[DevJak68]

dans un prog. VCL sous Windows

Code :

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

TMockControleur = class(TInterfacedObject, IControleur);

si je déclare la variable inline :

Code :

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

var mock := TMockControleur.Create(True, True, 99);

De quelle type cette variable est considérée ? IControleur ou TMockControleur ?

[ShaiLeTroll]

Je n'ai pas un Delphi récent mais il semble qu'elle sera TMockControleur puisque tu fais un Create ... il ne peut pas deviner de lui même que tu veux qu'il fasse un Supports implicite

Dans la théorie en plus cela s'explique très facilement

Code :

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

TMockControleur = class(TInterfacedObject, IControleur, IBidule, IMachin, ITruc);

Comme ferait-il pour savoir si c'est IControleur, IBidule, IMachin, ITruc ?
Donc pour le compilateur c'est forcément la seule chose certaine et connue : TMockControleur

Cependant, rien n'empêche de typer

Code :

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

var mock: IControleur := TMockControleur.Create(True, True, 99);

MAIS si tu poses la question, c'est qu'il y a un piège ! non ?
Je suppose que tu as fait avant de poser cette question, une vérification triviale :

Code :

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

1
2
var mock := TMockControleur.Create(True, True, 99);
ShowMessage(mock.ClassName()); // Compile et affiche un Message

Code :

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

1
2
var mock: IControleur := TMockControleur.Create(True, True, 99);
ShowMessage(mock.ClassName()); // NE compile PAS ! En théorie, je n'ai rien testé car D10 Seattle ne gère pas ça

[DevJak68]

Bonne remarque
je n'avais pas envisager le cas où la classe implémente plusieurs interfaces !
il faut par conséquent faire une déclaration classique dans un bloc var avant le begin