Cita:
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 !!!!