Problema con "class of"

[Javierus]

Necesito hacer algo como ésto, pero el compilador dice que así no...

Type
  Tuno = class 
    loquesea: integer;
  end;
  Tdos = class(Tuno) 
     mascosas: string;
  end;
  TunoClass = class of Tuno;
  TdosClass = class of Tdos;

var
   a: TunoClass;
begin
...
  if a is TdosClass then  <-  Error: Operator not applicable to this operand type
    ...

[Ñuño Martínez]

Acabo de probar (con Free Pascal) y el error que me devuelve es otro:

test.pas(19,8) Error: Class or COM interface type expected, but got "TunoClass"

Parece decir, en ambos casos, que el operador IS no funciona con CLASS OF. Si uso Tuno y Tdos directamente no obtengo error alguno.

[Javierus]

¿Alguna idea de cómo hacerlo?

[ecfisa]

Hola.

El operador is verifica la clase de un objeto en tiempo de ejecución, pero en tu caso estas verificando "TunoClass" que no es una clase sino una Referencia de clase.


Saludos

[Javierus]

Al final, la solución ha sido usar InheritsFrom, ya que funciona tanto con instancias como con clases. Ejemplo:
A. InheritsFrom(TDos)

[ecfisa]

Hola.

Prescindiendo de is y dependiendo de lo que busques, también te funcionarán los métodos ClassName y ClassNameIs.

Saludos

[delphi.com.ar]

Agrego a lo que respondieron, que no es claro el diseño de lo escrito, por lo que pregunto:

• ¿Cuál sería la necesidad de definir TunoClass y TdosClass ?
• ¿No te sirve evaluar "if a is Tuno..."?

¿?

[Javierus]

Empezado por delphi.com.ar

Agrego a lo que respondieron, que no es claro el diseño de lo escrito, por lo que pregunto:

• ¿Cuál sería la necesidad de definir TunoClass y TdosClass ?
• ¿No te sirve evaluar "if a is Tuno..."?

¿?

No, en este caso no; se recibe una referencia a una clase, y a partir de ella hay que crear un objeto de la misma, pero de distinta forma. Créeme, en el caso real, tiene todo el sentido.
Como dije, lo resolví con InheritsFrom