Ver Mensaje Individual
  #1  
Antiguo 01-02-2024
_Io _Io is offline
Miembro
 
Registrado: ene 2024
Posts: 18
Reputación: 0
_Io Va por buen camino
Error al crear objeto dentro de una clase

Hola.

Tengo un problema y sinceramente no sé porque pasa, a ver si vosotros dais con la tecla.

Tengo esta clase, generada automáticamente desde un fichero wsdl:

Código Delphi [-]

AltaFactuSistemaFacturacion = class(SistemaFacturacionAltaFact)
  private
    FRegistroAltaFacturas: Array_Of_FacturasEmitidasType;
  public
    destructor Destroy; override;
  published
    property RegistroAltaFacturas: Array_Of_FacturasEmitidasType  Index (IS_UNBD) read FRegistroAltaFacturas write FRegistroAltaFacturas;
  end;

Cuando intento crear el objeto directamente desde un formulario, mediante cualquier evento, pulsar botón, create, etc.
funciona sin pegas.
Código Delphi [-]

procedure TForm1.UnProcedimieunto;
  var AltaFSF :SistemaFacturacionAltaFact
begin
....
  AltaFSF:=SistemaFacturacionAltaFact.create;
.......
end;


Pero si lo intento hacer dentro de una clase, me da error al ejecutar, lo compila perfectamente.
En este ejemplo, creo el objero de cMyClase y en el momento que llamo a UnMetodo, da error
de acces violation.

Código Delphi [-]

type

   cMyClase = class (TComponent)
   private
      AltaFSF :SistemaFacturacionAltaFact
   public
      procedure UnMetodo;
   end;

implementation

procedure cMyClase.UnMetodo;
begin
....
  AltaFSF:=SistemaFacturacionAltaFact.create;
.......
end;


Sabéis el motivo ??


Muchas Gracias.
Responder Con Cita