¿Debo asignar y liberar registros cuando uso TList <T> en Delphi?

Question

La pregunta más o menos lo dice todo. Dada la siguiente estructura de registro:

type 
    TPerson = record 
     Name: string; 
     Age: Integer; 
    end; 
    PPerson = ^TPerson; 
    TPersonList = TList<TPerson>; 

¿Es válido el siguiente código?

procedure ReadPeople(DataSet: TDataSet; PersonList: TPersonList); 
begin 
    PersonList.Count := DataSet.RecordCount; 
    if DataSet.RecordCount = 0 then 
     Exit; 

    DataSet.First; 
    while not DataSet.Eof do begin 
     PersonList[DataSet.RecNo].Name := DataSet.FieldByName('Name').AsString; 
     PersonList[DataSet.RecNo].Age := DataSet.FieldByName('Age').AsInteger; 
     DataSet.Next; 
    end; 
end; 

¿Tengo que usar GetMem/FreeMem a asignar y liberar registra una instancia de TPersonList, o soy libre para acceder directamente a las entradas directamente TPersonList? Mi intuición dice que el código debería ser válido, aunque no estoy seguro de si hay arrugas relacionadas con la inicialización o finalización del registro.

Answer 1

Su código está bien. Cuando utiliza Tlist<T> con registros, los trata como tipos de valor, para copiarlos. No es necesario asignar punteros para ellos.

Answer 2

La pregunta es: ¿Por qué declaras PPerson? Asegúrese de no accidentalmente desasignar la memoria de un TRecord de su lista a la que estaba apuntando en una variable PPerson.