Cita:
Posteado originalmente por Lepe
Esto mismo estoy haciendo yo, pero no entiendo como se crearía y
se destruiría el objeto[...]
[code]
type TIT = class(Tobject)// Tipo Importe Tarifas
private
Fvalor : Double;
FString:string;
function lacadena:string;
public
AsFloat : Double read Fvalor Write Fvalor ;
AsString : string read laCadena;
constructor Create();
destructor Free;
end;
[...]
|
¡Cuidado!
Tienes un error importante. Free no es un destructor y no debes declararlo. El destructor es Destroy y debe declararse así:
destructor Destroy;
override;
Sin embargo, para liberar el objeto sí tienes que usar Free y no Destroy. Y debes hacerlo para lberar memoria, de lo contrario tu programa poco a poco agota los recursos del sistema.
// Saludos