ups... es cierto...
es la rápidez con la que respondi...
Basta con hacer entonces:
Código:
Procedure TForm1.Button1Click(Sender : TObject);
Var
Instancia : TClase;
{si esto compila estoy seguro que la unidad ha sido incluida en el uses }
PunteroClase : TObjectClass;
Begin
Instancia := TClass.Create(Parametros);
Instancia.Free; // para que el optimizador no quite la variable Instancia del camino...
PunteroClase := GetClass('TClass')
if PunteroClase = nil Then
ShowMessage('¡Es nil!');
if PunteroClase = nil Then
Begin
// intentamos de nuevo registrar la clase, a ver que ocurre...
RegisterClass(TClass);
Assert(GetClass('TClass') <> nil, '¡Sigue siendo nil, RegisterClass ya no sirve!');
End;
end;
lo siento de nuevo y mil gracias
roman por la corrección...