Puntero de diferentes clases

[juanmdq]

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

[chavetaz]

No se si te entendi bien, pero llegue a pensar que podria ser algo asi:

TSuperPDF= class(tobject)
      PDF6: TPdf;
      PDF7: TAcroPDF;
      end;

asi cuando creo superpdf este verifica cual es el corresponiente y direcciona todo a ese internamente, asi en mi programa solo utilizo SuperPDF, aunque dentro de la clase tenga que usar uno u otro.

Que les parece??

saludos

[roman]

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:

Código Delphi [-]
type
  TSuperPdf = class
  end;

  TPdf60 = class(TSuperPdf)
  private
    Pdf: TPdf;
  end;

  TPdf70 = class(TSuperPdf)
  private
    Pdf: TAcroPdf;
  end;

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:

Código Delphi [-]
if Version6 then
  SuperPdf := TPdf60.Create
else if Version7 then
  SuperPdf := TPdf70.Create
else
  raise Exception.Create('Versión no soportada');

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

[chavetaz]

cree esta unit a ver que les parece:

Código Delphi [-]
unit SuperPDF; 
interface

uses
    PdfLib_TLB, AcroPDFLib_TLB;

type
    TSuperPDF = class
    public
        function LoadFile(const fileName: WideString): WordBool;virtual; abstract;
    published
        property  Visible;virtual; abstract;
    end;

    TPdf60 = class(TSuperPDF)
    private
        Pdf: TPdf;
    public
        function LoadFile(const fileName: WideString): WordBool;
    published
        property  Visible;
    end;

    TPdf70 = class(TSuperPDF)
    public
        function LoadFile(const fileName: WideString): WordBool;
    published
        property  Visible;
    private
        Pdf: TAcroPdf;
    end;

implementation
function TPdf60.LoadFile(const fileName: WideString): WordBool;
begin
Pdf.LoadFile(fileName);
end;
 
function TPdf70.LoadFile(const fileName: WideString): WordBool;
begin
Pdf.LoadFile(fileName);
end;
 
end.

no puse en la implementacion las properties pero tengo que implementar las correspondientes read y write.
como lo ven????

Otra cosa, en la definicion de TPdf encontre:

 TPdf = class(TOleControl)

y en TAcroPdf:

 TAcroPDF = class(TOleControl)

Podria llegar a usar TOleControl como padre?

SaLuDoS

[roman]

Empezado por chavetaz

Podria llegar a usar TOleControl como padre?

No. Porque TOleControl es demasiado general. No tiene los métodos que requieres. Podrías usarlo para instanciar tus clases:

Código Delphi [-]
var
  SuperPdf: TOleControl;

...

if Version6 then
  SuperPdf := TPdf.Create
else
  SuperPdf := TAcroPdf.Create;

pero para usar SuperPdf vuelves a requerir del moldeo en cada caso:

SuperPdf as TPdf

o

SuperPdf as TAcroPdf

// Saludos

[[Lepe]]

Esta es una pregunta personal, pero creo que viene muy bien al caso, por eso la añado a este hilo.

Si la version 7 implementa una nueva propiedad o método,¿ donde se crearía esa propiedad?

- Si la implemento en TSuperPDF, tendría que proporcionar mensajes de error en todas las versiones excepto en la 7.0
- Si la implemento en TPDF70, tendría que hacer un cast para poder acceder ¿no?

Un saludo

[[Lepe]]

Empezado por chavetaz

no puse en la implementacion las properties pero tengo que implementar las correspondientes read y write.
como lo ven????

Yo lo veo perfecto, aunque yo usaría "LoadFromFile" en lugar de "LoadFile". Será una tontería, pero hace tus objetos más intuitivos, al seguir la misma nomenclatura de la VCL.

Un saludo