Ver Mensaje Individual
  #1  
Antiguo 01-11-2014
Avatar de BDWONG
BDWONG BDWONG is offline
Miembro
NULL
 
Registrado: nov 2013
Posts: 113
Reputación: 11
BDWONG Va por buen camino
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...
Responder Con Cita