Free an allocated tag list.
Source position: utility.pas line 170
procedure FreeTagItems( |
TagList: PTagItem |
); |
TagList |
|
list to free, must have been obtained from AllocateTagItems() or CloneTagItems() (may be nil) |
Frees the memory of a TagItem list allocated either by AllocateTagItems() or CloneTagItems().
var tagList: PTagItem; begin tagList := AllocateTagItems(4); tagList[0]^.ti_Tag := NA_Name; tagList[0]^.ti_Data := IPTR(PChar('A list of tags')); tagList[3]^.ti_Tag := TAG_DONE; // Do what you want with your TagList here ... FreeTagItems(tagList); end;
|
Allocate a tag list. |