Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 08-02-2018
Avatar de geolife
[geolife] geolife is offline
Miembro Premium
 
Registrado: nov 2006
Ubicación: Barcelona
Posts: 87
Poder: 18
geolife Va por buen camino
Liberación de un TstringList

Hola amig@s,

Me gustaría saber vuestra opinión sobre la forma correcta de asignar un objeto y su liberación; Creo que es una pregunta seguramente muy simple, pero bueno...

En el método 1, al ser una variable local de un procedimiento ¿Se liberarían los recursos si hubiese alguna excepción después de la asignación?, ¿o debemos forzar con el segundo método siempre?

Tenemos la siguiente función que delimita una cadena de texto:

Código Delphi [-]
Function TForm1.DelimitarString(Cadena: String; Delimitador: Char): TStringList;
begin
  Result := TStringList.Create;
  Result.Delimiter := Delimitador;
  Result.StrictDelimiter := True;
  Result.DelimitedText := Cadena;
end;

// Método 1
Procedure TForm1.TratarCadena1;
Var
  St: TStringList;
begin
  St := DelimitarString('Uno;Dos;Tres', ';');
  Showmessage(St[0] + #13 + St[1] + #13 + St[2]);
end;

// Método 2
Procedure TForm1.TratarCadena2;
Var
  St: TStringList;
begin
  St := TStringList.Create;
  Try
    St := DelimitarString('Uno;Dos;Tres', ';');
    Showmessage(St[0] + #13 + St[1] + #13 + St[2]);
  Finally
    St.Free;
  end;
end;
Responder Con Cita
  #2  
Antiguo 08-02-2018
Avatar de Neftali [Germán.Estévez]
Neftali [Germán.Estévez] Neftali [Germán.Estévez] is offline
[becario]
 
Registrado: jul 2004
Ubicación: Barcelona - España
Posts: 18.233
Poder: 10
Neftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en bruto
Cita:
Empezado por geolife Ver Mensaje
En el método 1, al ser una variable local de un procedimiento ¿Se liberarían los recursos si hubiese alguna excepción después de la asignación?, ¿o debemos forzar con el segundo método siempre?
Pues en este caso ninguno de los 2 métodos te liberra correctamente. Porque fíjate que en el METODO 1 creas 1 (en el procedimiento DelimitarString) y no liberas ninguno y en el METODO 2 creas 2 y sólo liberas 1.

Además Delphi te provee un método para revisar esto:

En el DPR añade la siguiente línea:

Código Delphi [-]
    ReportMemoryLeaksOnShutdown := DebugHook <> 0;  
    Application.Initialize;
    ...

Al ejecutar tu programa con estos 2 método al acabar saldrá una ventana como estas:





En ambos casos ves que estás perdiendo memoria.


Una solución correcta (para no perder memoria) aunque en mi opinión tampoco correcta del todo, sería esta:

Código Delphi [-]
// Metodo 2

Var
  St: TStringList;
begin
  St := DelimitarString('Uno;Dos;Tres', ';');         <-- Aquí dentro la creas
  Showmessage(St[0] + #13 + St[1] + #13 + St[2]);
  FreeAndNil(St);                                      <--  Aquí lo  liberas

En este último caso no aparece la venana de pérdida de memoria, aunque comento que NO es correcta en mi opninión, porque yo tengo una máxima: "Quien crea un opbjeto es el encargado de liberarlo"

Así que siguiendo esas indicaciones un código correcto para mi, sería este:

Código Delphi [-]
Function TForm2.DelimitarString(Cadena: String; Delimitador: Char; var TS:TStringList): TStringList;
begin
  TS.Delimiter := Delimitador;
  TS.StrictDelimiter := True;
  TS.DelimitedText := Cadena;
end;

procedure TForm2.Button2Click(Sender: TObject);
Var
  St: TStringList;
begin
  St := TStringList.Create;
  Try
    DelimitarString('Uno;Dos;Tres', ';', St);
    Showmessage(St[0] + #13 + St[1] + #13 + St[2]);
  Finally
    St.Free;
  end;
end;

Hay otras si sigues el mismo "precepto"...
__________________
Germán Estévez => Web/Blog
Guía de estilo, Guía alternativa
Utiliza TAG's en tus mensajes.
Contactar con el Clubdelphi

P.D: Más tiempo dedicado a la pregunta=Mejores respuestas.

Última edición por Neftali [Germán.Estévez] fecha: 08-02-2018 a las 17:00:41.
Responder Con Cita
  #3  
Antiguo 08-02-2018
Avatar de duilioisola
[duilioisola] duilioisola is offline
Miembro Premium
 
Registrado: ago 2007
Ubicación: Barcelona, España
Posts: 1.732
Poder: 20
duilioisola Es un diamante en brutoduilioisola Es un diamante en brutoduilioisola Es un diamante en bruto
El método 2 no libera al primer St Creado.
Al método 1 le agregué el TRY..FINALLY por si falla algo entre que se crea y se libera.
Código Delphi [-]
Function TForm1.DelimitarString(Cadena: String; Delimitador: Char): TStringList;
begin
  Result := TStringList.Create;
  Result.Delimiter := Delimitador;
  Result.StrictDelimiter := True;
  Result.DelimitedText := Cadena;
end;

// Método 1
Procedure TForm1.TratarCadena1;
Var
  St: TStringList;
begin
  St := DelimitarString('Uno;Dos;Tres', ';');
  // Si llega aquí, St se ha creado correctamente. 
  // Agrego Try..Finally para asegurarme de que se libere, pase lo que pase.
  try
     Showmessage(St[0] + #13 + St[1] + #13 + St[2]);
  finally
     St.Free;
  end;
end;

// Método 2
Procedure TForm1.TratarCadena2;
Var
  St: TStringList;
begin
  St := TStringList.Create;
  Try
    // Esto machaca el St creado con otro que creará dentro de la función DelimitarString 
    St := DelimitarString('Uno;Dos;Tres', ';');
    Showmessage(St[0] + #13 + St[1] + #13 + St[2]);
  Finally
    St.Free;
  end;
end;

De todos modos, a mi me gusta mas crear los objetos y pasárselo a los procedimientos para que los rellenen.
Por ejemplo le puedes pasar la lista de items de un componente TCombo... para que te lo rellene.
Código Delphi [-]
procedure RellenaAlmacenes(Lista: TStrings);
var
  Idalmacen : integer;
begin
  Lista.Clear;
  Lista.AddObject(_('Todos los Almacenes'), Pointer(0));

  // Abro y fitro tabla de almacenes activos
  ...
  while not TablaAlmacenes.EOF do
  begin
     Idalmacen := FieldByName('ID').AsInteger;
     Almacen := FieldByName('ALMACEN').AsString + ' ' + FieldByName('DESCRIPCION').AsString;
     Lista.AddObject(Almacen, Pointer(IdAlmacen));
     Next;
  end;
end;

begin
  ...
  RellenaAlmacenes(CBAlmacen.Items);
  CBAlmacen.ItemIndex := 0;
  ...
end;

Según tu ejemplo sería algo asi:
Código Delphi [-]
procedure TForm1.DelimitarString(St: TStringList; Cadena: String; Delimitador: Char);
begin
  St.Delimiter := Delimitador;
  St.StrictDelimiter := True;
  St.DelimitedText := Cadena;
end;

Procedure TForm1.TratarCadena1;
Var
  St: TStringList;
begin
  St := TStringList.Create;
  // Si llega aquí, St se ha creado correctamente. 
  // Agrego Try..Finally para asegurarme de que se libere, pase lo que pase.
  try
     DelimitarString(St, 'Uno;Dos;Tres', ';');
     Showmessage(St[0] + #13 + St[1] + #13 + St[2]);
  finally
     St.Free;
  end;
end;
Responder Con Cita
  #4  
Antiguo 09-02-2018
Avatar de geolife
[geolife] geolife is offline
Miembro Premium
 
Registrado: nov 2006
Ubicación: Barcelona
Posts: 87
Poder: 18
geolife Va por buen camino
Buenos días Neftali [Germán.Estévez]; [duilioisola]

Muchas gracias por tomaros la molestia de contestar. Todos los días se aprende algo aquí, no conocía este truco para comprobar las pérdidas de memoria, a mi pesar, sigo “abusando” del showmessage como forma de depuración principal...algo arcaico, ya lo sé.

Queda claro que la forma más elegante y segura de gestionar el objeto es creándolo y liberándolo en el mismo procedimiento, y pasando éste por referencia al procedimiento que solo estará encargado establecer la delimitación del texto; también la necesidad de asegurar el constructor con un try except en caso de usar la función como originalmente.

Muchas gracias!




En el DPR añade la siguiente línea:

Código Delphi [-]
ReportMemoryLeaksOnShutdown := DebugHook <> 0;       
Application.Initialize;     
...

Última edición por Neftali [Germán.Estévez] fecha: 12-02-2018 a las 09:36:59. Razón: Corregir TAGs de Delphi
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Liberación de versiones de Delphi Neftali [Germán.Estévez] La Taberna 1 06-10-2016 11:35:13
Liberación de memoria de Tbitmap Marck Silencer Gráficos 11 27-01-2011 09:29:06
Liberación de un Form No Modal vejerf OOP 1 06-09-2010 20:41:20
Día mundial por la liberación de la cannabis. poliburro La Taberna 54 10-05-2008 05:55:56
Liberación de memoria Jome OOP 5 22-02-2007 15:44:56


La franja horaria es GMT +2. Ahora son las 16:33:30.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi