사용자 지정 구성 요소 배열을 파괴하는 방법

Question

사용자 지정 구성 요소 'TCARD'에 대한 파괴 절차가 있습니다. 그런 다음 런타임 동안 내가 다음 배열

Cards: array[1..20] of TCards 

을 만들어 할 몇 가지 ... 및 절차의 마지막에 내가 배열의 모든 TCards을 파괴하고 싶습니다. 어떻게해야합니까? 아니면 한 번에 하나씩해야합니다. 당신이 TObjectList<T>를 사용하는 경우

cards[1].destroy; 
cards[2].destroy; 
.... 
cards[20].destroy; 

Answer 1

, 이것은 당신이해야 할 모든 목록을 파괴하는 것입니다, 당신을 위해 수행됩니다.

Uses 
    Generics.Collections, 
... 

// define your list 
Cards: TObjectList<TCard>; 

... 

// create list 
Cards := TObjectList<TCard>.Create; 
try 
// Create and add your card objects 
ACard := TCard.Create; 
Cards.Add(ACard); 
// do something with Cards 
... 
// destroy cards - this will automatically free the objects owned by the list 
finally 
Cards.Free; 
end; 

추가 보너스로 사용자 정의 개체를 만들고 카드 관련 기능을 추가 할 수 있습니다.

procedure FreeCards(Cards : TCards); 

var 
    Card : TCard; 

begin 
For Card in Cards do 
    Card.Free; 
end;