Problema usando el objeto TStrings

[ecfisa]

Empezado por metalfox6383

Muchas gracias. Ha funcionado. Una interrogante más: ¿Qué sucedería si no la libero?

Además de lo dicho por el amigo Caral, en el mejor de los casos la consecuencia es memoria ocupada inútilmente,
degradación de la perfomance y hasta fallos por falta de memoria.

En un ejemplo como ese, realmente no es apreciable la memoria ocupada. Pero es importante tomár como práctica
la liberación de los recursos utilizados; por que la memoria, aunque hoy es abundante, sigue siendo finita...


Saludos.

[ecfisa]

Hola de nuevo metalfox.

Mirá este link del foro en que se explica el tema que te ocupa.


Saludos.

[ecfisa]

Hola.

Por si quedara alguna duda te pongo un ejemplo con el que podés comprobar el efecto de no liberar recursos:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  vr_tags: TStrings;
  i: Integer;
  Mem: TMemoryStatus;
begin
  Mem.dwLength := SizeOf(Mem);
  GlobalMemoryStatus(Mem);
  Caption:= Format('Memoria virtual disponible: %d', [Mem.dwAvailVirtual]);
  for i:= 1 to 1000000 do
  begin
   vr_tags:= TStringList.Create;  // línea que faltaba
   vr_tags.Append('texto');
  end;
end;

Dale unos cuantos clicks al botón y me contas...

Saludos.

[[Caral]]

Hola
Bien:
Entonces suponemos que free libera la memoria, no?.
Siguiendo tu ejemplo, que pasa aqui amigo?:

Código Delphi [-]
var
  Form1: TForm1;
  vr_tags: TStrings;
  i: Integer;
  Mem: TMemoryStatus;

  implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  Mem.dwLength := SizeOf(Mem);
  GlobalMemoryStatus(Mem);
  Caption:= Format('Memoria virtual disponible: %d', [Mem.dwAvailVirtual]);
  for i:= 1 to 1000000 do
  begin
   vr_tags:= TStringList.Create;  // línea que faltaba
   vr_tags.Append('texto');
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  vr_tags.Free;
  Mem.dwLength := SizeOf(Mem);
  GlobalMemoryStatus(Mem);
  Caption:= Format('Memoria virtual disponible: %d', [Mem.dwAvailVirtual]);

end;

Que hago mal?
Saludos

[ecfisa]

Hola mi amigo.

No estás haciendo nada mál, lo que sucede que la intención del código que puse de ejemplo es precisamente
forzar un error por falta de liberación de recursos. Es decir que nada correcto saldrá si nos basamos en ese código.

Ahora si me limito al código que adjuntaste, el problema es que en Button1Click se crean un millon de instancias de
TStrings y en Button2Click sólo se puede liberar una.

Saludos.