Czy muszę przydzielać i usuwać rekordy podczas używania TList <T> w Delphi?

Question

Pytanie mniej więcej mówi wszystko. Biorąc pod uwagę następujący zapis struktura:

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

jest następujący kod jest ważny?

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; 

Czy muszę używać GetMem/FreeMem przydzielić i wolne rejestruje wystąpienie TPersonList, czy jestem wolny bezpośredni dostęp do TPersonList wpisy bezpośrednio? Mój żołądek mówi, że kod powinien być ważny, chociaż nie jestem pewien, czy są jakieś zmarszczki związane z inicjowaniem lub finalizacją rekordu.

Answer 1

Twój kod jest w porządku. Gdy korzystasz z Tlist<T> z rekordami, traktuje się je jako typy wartości do skopiowania. Nie ma potrzeby przydzielania dla nich wskaźników.

Answer 2

Pytanie brzmi: Dlaczego pan zadeklarować PPerson? Upewnij się, że przypadkowo nie zwalniasz pamięci TRecord z listy, do której wskazywałeś w zmiennej PPerson.