Problema usando el objeto TStrings

[metalfox6383]

Hola:

Tengo este código:

procedure Tfr_principal.lb_buscarClick(Sender: TObject);
var vr_tags: TStrings;
begin

vr_tags.Append('texto');

end;

Quiero utilizar el objeto TStrings para crear una lista de textos, pero al intentar crear el primer elemento de la lista, me aparece este error:

http://mpo9qg.bay.livefilestore.com/...asd.jpg?psid=1

¿qué es lo que anda mal?

Gracias.

[ecfisa]

Hola.

Antes de utilizar vr_tags tenés que crear una instancia de la clase.
Como TStrings es abstracta debés usar un descendiente en la creación, por ejemplo TStringList.

Código Delphi [-]
procedure Tfr_principal.lb_buscarClick(Sender: TObject);
var vr_tags: TStrings;
begin
  vr_tags:= TStringList.Create;  // línea que faltaba
  vr_tags.Append('texto');
end;

En algún punto, luego que termines de usar vr_tags, deberias liberar el recurso con:

Código Delphi [-]
  vr_tags.Free;

Saludos.

[[duilioisola]]

Primero tienes que crear el objeto, para despues utilizarlo:

Código Delphi [-]
var vr_tags: TStrings;
begin
   vr_tags := TStringsList.Create;
   try
      vr_tags.Add('Texto');
      {hacer lo que sea}
   finally
      vr_tags.Free;
   end;
end;

No debes olvidar liberar el objeto después de finalizar con su uso.

[metalfox6383]

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

[[Caral]]

Hola
Si no la liberas y vuelves a llamar al evento dirá que el TStrings ya esta creado y no lo puede volver a crear dando error.
Si no me equivoco.
Saludos

[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.