Liberar Tlist de forma correcta
 

Buenas estaba mirando el tema de tanto listas enlazadas pero solo las queria utilizar solo con valores numericos, por el momento
vi algunos tutoriales en el cual delphi en sus nuevas versiones permiten el tema de genericos y esas cosas pero no me servian porque uso una version mas antigua.

Asi que cheque en hilos antiguos como crear y llenar una lista pero todos o eran de objetos(punteros) asi que encontre un tutorial el cual explicaba como llenarlo con solo valores enteros o decimales pero tenia un cierto cambio que al momento de liberar el puntero antes de la lista utilizaba freemem y no el clasico free, imagino porque estaba creando puntero de integer con new y no eran objetos como tal

Bueno me nos charla y le muestro el codigo que tengo y puedan ustedes evaluar si es correcto o no principalmente en el area de liberarlo

Código Delphi [-]
var
i,t:integer;
lista:Tlist;
num:PInteger;
begin
   lista:=Tlist.Create();
   for i := 1 to 10 do
   begin
      new(num);
      num^:=i;
      lista.Add(num);
   end;

   for I :=0 to lista.Count-1 do writeln(integer(lista.Items[i]^));

   for t :=lista.Count-1 downto 0 do freemem(lista.Items[t]);


   lista.Clear;
   lista.Free;
   readln;
end.

chicos por casualidad si tuvieran un tutorial de listas que me pasaran se los agradeceria saludos...

Buenas, no tengo delphi a mano para probar pero fijate activando esto:

Código Delphi [-]
// reporte de memory leaks al cerrar la app
ReportMemoryLeaksOnShutdown:= True;

cuando salgas de la aplicacion te muestra un cartel que te informa los memory leaks (fugas de memoria), si no sale nada es que estas liberando bien los punteros

lo probe y anda genial parece que el programa no tiene fuga pero lo probe sin hacer liberacion y si lo detecto gracias saludos...

BDWONG,

:rolleyes:

Revisa esta información:
Espero sea útil :)

Nelson.