Estimados
Tengo la necesidad de agregar una propiedad a un componente.
Dicha propiedad quiero que esté publicada cuando se use dicho componente.
Esta propiedad será llamada Texto (por ejemplo).
Quiero que sea de tipo TStringList.
El problema está en que esta propiedad, al momento de leerla o escribirla no accede a un objeto privado del componente sino a otra fuente de datos (un archivo, por ejemplo u otra fuente de datos).
Entonces, con estos parámetros les pego un código a modo de ejemplo:
Código Delphi
[-]
unit UnEjemplo;
type
TCustomObj = class(TWinControl)
protected
function GetTexto: TStringList;
procedure SetTexto(const AValue: TStringList);
public
property Texto: TStringList read GetTexto write SetTexto;
end;
TObj = class(TCustomObj)
published
property Texto;
end;
implementation
function TCustomObj.GetTexto: TStringList;
begin
Result := TStringList.Create;
Result.Text := UnaFuncionQueDevuelveUnString;
end;
procedure TCustomObj.SetTexto(const AValue: TStringList);
begin
UnaFuncionQueActualizaUnString(AValue.Text);
end;
Las dudas son:
La función GetTexto crea todas las veces un objeto de tipo TStringList.
¿Esto no es algo malo?
¿Al estar generándose un objeto cada vez que se ejecuta la función no se está consumiendo mas memoria?
¿Cuando se destruye este objeto?
Desde yá muchas gracias por su tiempo
Saludos