Consulta TTable.Free
Publicado por Msp (8 intervenciones) el 18/06/2009 00:26:51
Hola a todos.
Bueno mi consulta es la siguiente en un procedimiento creo una variable ( xTabla : TTable ) se debe liberar al terminar el procedimiento??? Usualmente con una variable como ( Lista : TStringList ) al terminar siempre liberamos la memoria
procedure TForm1.Ejemplo;
var
xTabla : TTable;
Lista : TStringList;
begin
XTabla := TTable.Create(nil);
Lista := TStringList.Create;
// operaciones...
Try
Lista.Free;
Except
raise Exception.Create('error al liberar "Lista"');
end;
end;
Mi duda es si debo liberar o no el componente xTabla
Try
xTabla.Free;
Except
raise Exception.Create('error al liberar "xTabla"');
end;
Bueno mi consulta es la siguiente en un procedimiento creo una variable ( xTabla : TTable ) se debe liberar al terminar el procedimiento??? Usualmente con una variable como ( Lista : TStringList ) al terminar siempre liberamos la memoria
procedure TForm1.Ejemplo;
var
xTabla : TTable;
Lista : TStringList;
begin
XTabla := TTable.Create(nil);
Lista := TStringList.Create;
// operaciones...
Try
Lista.Free;
Except
raise Exception.Create('error al liberar "Lista"');
end;
end;
Mi duda es si debo liberar o no el componente xTabla
Try
xTabla.Free;
Except
raise Exception.Create('error al liberar "xTabla"');
end;
Valora esta pregunta


0