adlfv
13-09-2005, 19:00:26
Hola a todos.
Estoy haciendo una clase, y la verdad tengo poca experiencia creando clases y componentes, pues solía usarlas más que crearlas... Y al crearlas, uno "vé" otras cosas que no veía antes... Mi duda es sobre la redefinición de métodos. Concretamente Destroy, y si debo redefinir también el método Free.
type
TTipoHabitacion = class(TObject)
private
FId: string;
FNota: TStrings;
FPrefijo: string;
public
constructor Create;
destructor Destroy; override;
property Id: string read FId;
property Nota: TStrings read FNota;
property Prefijo: string read FPrefijo;
end;
TTiposHabitaciones = class(TObject)
private
FLista: TStrings;
function GetItems(Index: Integer): TTipoHabitacion;
public
constructor Create;
destructor Destroy; override;
procedure Actualizar;
property Items[Index: Integer]: TTipoHabitacion read GetItems; default;
property Lista: TStrings read FLista;
end;
TTiposHabitaciones es una lista con los tipos de habitación (por ejemplo, sencilla, doble, triple...). Como base para la lista, empleo un TStrings, donde el índice de la lista es numérico (más adelante también quiero incluir por tipo como tal, osea, Tipos['sencilla'].Prefijo...)
Ahora incluyo el código de la implementación (resumido) de TTiposHabitaciones:
constructor TTiposHabitaciones.Create;
begin
inherited Create;
FLista := TStringList.Create;
Actualizar;
end;
destructor TTiposHabitaciones.Destroy;
begin
inherited Destroy;
end;
procedure TTiposHabitaciones.Actualizar;
var
I: Integer;
Qry: TMiQuery;
TH: TTipoHabitacion;
begin
try
Lista.Clear;
// Aqui debo liberar FLista, incluido los objetos que ésta posea
// Sé que debo usar Free, pero si Free no lo he redefinido,
// Cómo se libera la lista realmente?
Qry := BD.QryNuevo;
with Qry do
begin
Close;
SQL.Clear;
SQL.Add('SELECT *');
SQL.Add('FROM TiposHab');
Open;
for i := 1 to RecordCount do
begin
TH := TTipoHabitacion.Create;
TH.FID := FieldByName('Id').AsString;
TH.FPrefijo := FieldByName('Prefijo').AsString;
// TH.FNota := ...
Lista.AddObject(TH.FID, TH);
Next;
end;
end;
finally
Qry.Free;
end;
end;
function TTiposHabitaciones.GetItems(Index: Integer): TTipoHabitacion;
begin
Result := TTipoHabitacion(FLista.Objects[Index]);
end;
La duda es que en el método Actualizar debo liberar la lista primero si tiene alguna información. He leido que se debe usar Free en lugar de Destroy, porque Free llama a Destroy, pero no debería entonces redefinir Free también? Entonces en el destructor tendría que poner algo así?
destructor TTiposHabitaciones.Destroy;
begin
FLista.Free;
inherited Destroy;
end;
Pero y qué pasa con los objetos asociados a la lista? Se liberan también? Porque voy almacenando objetos del tipo TTipoHabitación a medida que leo de la base de datos. Tal vez debería redefinir el método Clear?
Estoy medio confundido con eso :confused:. Si alguien me pudiera echar una manita, le estaría muy agradecido.
Muchas gracias de antemano.
Un cordial saludo a todos
Estoy haciendo una clase, y la verdad tengo poca experiencia creando clases y componentes, pues solía usarlas más que crearlas... Y al crearlas, uno "vé" otras cosas que no veía antes... Mi duda es sobre la redefinición de métodos. Concretamente Destroy, y si debo redefinir también el método Free.
type
TTipoHabitacion = class(TObject)
private
FId: string;
FNota: TStrings;
FPrefijo: string;
public
constructor Create;
destructor Destroy; override;
property Id: string read FId;
property Nota: TStrings read FNota;
property Prefijo: string read FPrefijo;
end;
TTiposHabitaciones = class(TObject)
private
FLista: TStrings;
function GetItems(Index: Integer): TTipoHabitacion;
public
constructor Create;
destructor Destroy; override;
procedure Actualizar;
property Items[Index: Integer]: TTipoHabitacion read GetItems; default;
property Lista: TStrings read FLista;
end;
TTiposHabitaciones es una lista con los tipos de habitación (por ejemplo, sencilla, doble, triple...). Como base para la lista, empleo un TStrings, donde el índice de la lista es numérico (más adelante también quiero incluir por tipo como tal, osea, Tipos['sencilla'].Prefijo...)
Ahora incluyo el código de la implementación (resumido) de TTiposHabitaciones:
constructor TTiposHabitaciones.Create;
begin
inherited Create;
FLista := TStringList.Create;
Actualizar;
end;
destructor TTiposHabitaciones.Destroy;
begin
inherited Destroy;
end;
procedure TTiposHabitaciones.Actualizar;
var
I: Integer;
Qry: TMiQuery;
TH: TTipoHabitacion;
begin
try
Lista.Clear;
// Aqui debo liberar FLista, incluido los objetos que ésta posea
// Sé que debo usar Free, pero si Free no lo he redefinido,
// Cómo se libera la lista realmente?
Qry := BD.QryNuevo;
with Qry do
begin
Close;
SQL.Clear;
SQL.Add('SELECT *');
SQL.Add('FROM TiposHab');
Open;
for i := 1 to RecordCount do
begin
TH := TTipoHabitacion.Create;
TH.FID := FieldByName('Id').AsString;
TH.FPrefijo := FieldByName('Prefijo').AsString;
// TH.FNota := ...
Lista.AddObject(TH.FID, TH);
Next;
end;
end;
finally
Qry.Free;
end;
end;
function TTiposHabitaciones.GetItems(Index: Integer): TTipoHabitacion;
begin
Result := TTipoHabitacion(FLista.Objects[Index]);
end;
La duda es que en el método Actualizar debo liberar la lista primero si tiene alguna información. He leido que se debe usar Free en lugar de Destroy, porque Free llama a Destroy, pero no debería entonces redefinir Free también? Entonces en el destructor tendría que poner algo así?
destructor TTiposHabitaciones.Destroy;
begin
FLista.Free;
inherited Destroy;
end;
Pero y qué pasa con los objetos asociados a la lista? Se liberan también? Porque voy almacenando objetos del tipo TTipoHabitación a medida que leo de la base de datos. Tal vez debería redefinir el método Clear?
Estoy medio confundido con eso :confused:. Si alguien me pudiera echar una manita, le estaría muy agradecido.
Muchas gracias de antemano.
Un cordial saludo a todos