FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
|||
|
|||
Puntero de diferentes clases
Gente estoy haciendo unas pruebitas con los controles del acrobat reader, el tema es que a partir de la version 7 cambia la libreria, entonces mi programa cuando arranca verifica que version se esta usando, para no aburrir hablando paso el codigo resumido:
PDF6: TPdf; PDF7: TAcroPDF; try PDF6... except end try PDF7... except end ahora bien, una de esas variables sale OK, el problema es que lo logico seria usar el todo el resto del programa una unica variable 'MiPdf' creo que la forma de usarla seria: MiPdf := PDF6 o MiPdf := PDF7 segun el caso ahi viene la pregunta: Como defino la variable MiPdf para que acepte clases distintas? de que tipo es? puntero? gracias por la buena onda de siempre.
__________________
Delphi fan |
#2
|
|||
|
|||
Creo que podrías intentar con declarar con directivas, onda como las rx's, que declaran el archivo RX.INC con todas las directivas de comprobación. En ella verifican, por ejemplo, que delphi usan:
Código:
{$IFDEF VER130} { Borland Delphi 5.0 } {$DEFINE RX_D3} {$DEFINE RX_D4} {$DEFINE RX_D5} {$ENDIF} Código:
{$I RX.INC} Código:
{$IFDEF RX_D3} FLock: TRTLCriticalSection; {$ENDIF} Saludos |
#3
|
|||
|
|||
no me queda claro...
hice esto pero no complia porque dice que mipdf no esta definido
Código:
var PDF6: TPdf; PDF7: TAcroPDF; PDF6Creado, PDF7Creado :boolean; initialization try pdf7:= TAcroPDF.Create(self); PDF7Creado:=true; except pdf7.Free; PDF7Creado:=false end; try pdf6:= tpdf.Create(self); PDF6Creado:=true; except pdf6.Free; PDF6Creado:=false; end; {$IF PDF6Creado } var MiPdf: TPDF; {$ELSE} {$IF PDF7Creado } var MiPdf: TAcroPDF; {$IFEND} {$IFEND} end.
__________________
Delphi fan |
#4
|
||||
|
||||
Hola
Se me ocurre que podrias definir una jerarquia de clases, para poder aprovechar el polimorfismo. *definir una clase de tipo TMiPDF, que tenga un atributo de tipo TPDF *definir otra clase de tipo TMiAcroPDF, que tenga un atributo de tipo TAcroPDF *definir otra clase Padre, en la que se definen las interfaces de los metodos comunes a las dos clases anteriores (heredan de esta clase Padre) De esta forma podes crear instancias de cualquier clase (TMiPDF o TMiAcroPDF) y referenciarlas a traves de una variable tipo Padre. Espero que te sirva. Saludos
__________________
Al infierno se llega por atajos. |
#5
|
|||
|
|||
No se si te entendi bien, pero llegue a pensar que podria ser algo asi:
Código:
TSuperPDF= class(tobject) PDF6: TPdf; PDF7: TAcroPDF; end; Que les parece?? saludos
__________________
Delphi fan |
#6
|
||||
|
||||
No exactamente. Como lo propones tendrías que estar verificando cuál usar en cada método de TSuperPdf.
Lo que te propone juanmdq (excelente idea por cierto), es más del estilo:
La clase TSuperPdf sólo definiría los métodos comunes o similares pero no los implementa (virtual; abstract) Las clases TPdf60 y TPdf70 redefinen esos métodos y los implementan usando los métodos de su respectiva componente privada Pdf. Al comienzo de la aplicación determinas qué instancia construir y la colocas en una variable de tipo TSuperPdf:
Así, además, estarás listo para cuando salga la versión 8: sólo tendrásque crear la correspondiente claseTPdf80 descendiente de TSuperPdf y el resto del código en tu aplicación no cambiará. // Saludos |
|
|
|