Esto mismo estoy haciendo yo, pero no entiendo como se crearía y
se destruiría el objeto. Veamos mi ejemplo:
Código:
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;
implementation
{ TIT }
constructor TIT.Create;
begin
Fvalor := -1.0;
Fstring:= '-1.0';
end;
destructor TIT.Free;
begin
inherited Free; ¿?¿?¿?¿?
end;
function TIT.lacadena: string;
begin
Result := FormatFloat('%n €',Fvalor);
end;
¿ que tengo que hacer en el Free ? si no pongo nada,
no me da error, pero vaya usted a saber si estoy
haciendo las cosas bien.
De antemano, perdón por mi ignorancia, y gracias por vuestra sabiduría
