[_Io]

Empezado por Neftali [Germán.Estévez]

Yo he probado un ejemplo sencillo con lo mismo que has puesto tú y me funciona sin problemas, como debe ser.
Está claro que algún código que no has puesto no funciona correctamente.


En estos casos lo más sencillo es, crear un pequeño programa de ejemplo con lo mínimo y donde se reproduzca el error, y adjuntarlo al mensaje para que los demás puedan probarlo y ver dónde está el problema.


La mayoría de las veces:
a) Al crear el ejemplo nos damos cuenta de algún error "tonto" que hemos cometido (a mi me pasa).
b) Los demás ven rápido el despiste.

Hola.

Pues más razón que un santo.

He hecho un ejemplo muy simple y ha funcionado.

Pero también he conseguido reproducir el fallo.

Este código compila sin problemas, pero al ejecutar el método CreaObjeto, da error

Código Delphi [-]
type

  myClass = class (TComponent)
  private
    AltaFactuSistemaFacturacion :AltaFactuSistemaFacturacion;
  public
    procedure CreaObjeto;
  end;


implementation

procedure myClass.CreaObjeto;
begin
  try
    AltaFactuSistemaFacturacion:= AltaFactuSistemaFacturacion.Create;
  finally
    AltaFactuSistemaFacturacion.Free;
  end;
end;

Y Este código funciona, el problema estaba en el nombre de la variable, que coincidia con el tipo de datos.

Código Delphi [-]
type

  myClass = class (TComponent)
  private
    AltaFSF :AltaFactuSistemaFacturacion;
  public
    procedure CreaObjeto;
  end;


implementation

procedure myClass.CreaObjeto;
begin
  try
    AltaFSF:= AltaFactuSistemaFacturacion.Create;
  finally
    AltaFSF.Free;
  end;
end;

Muchas Gracias !!!!