Ver Mensaje Individual
  #3  
Antiguo 04-04-2005
Avatar de Neftali [Germán.Estévez]
Neftali [Germán.Estévez] Neftali [Germán.Estévez] is offline
[becario]
 
Registrado: jul 2004
Ubicación: Barcelona - España
Posts: 18.333
Reputación: 10
Neftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en bruto
Cita:
Empezado por PeLuCa
... Cuando defino un objeto
impresora : TImpresora
en la app, y al momento del create() le digo
impresora := TEpson.Create() (**)
pero cuando en otro necesito hacer uso del metodo imprimir no lo puedo hacer, una de las soluciones era castear el objeto impresora :
TEpson(impresora).imprimir()
pero seguimos en la mismo situacion debo conocer la clase del objeto de la impresora activa.
La exposición que has hecho es correcta, todo, excepto que te sea necesario el CAST. Justo al haber hecho el Create (**) como objeto TEpson ya lo tienes solucionado.

Código Delphi [-]
 var
   impresora : TImpresora;
 begin
   impresora := TEpson.Create();
   impresora.Imprimir;
   impresora.Free;

Un código como éste te devolvería el cuado con el texto: TEpson.Imprimir sin necesidad de CAST, justo por cómo has realizado la creación del objeto.
__________________
Germán Estévez => Web/Blog
Guía de estilo, Guía alternativa
Utiliza TAG's en tus mensajes.
Contactar con el Clubdelphi

P.D: Más tiempo dedicado a la pregunta=Mejores respuestas.
Responder Con Cita