TRoot.ClassExists

Function ClassExists(SearchTerm: String): Boolean
There are a fixed number of Root Classes. The Root object specifies these.

Example: var T: TPyramid; begin if Root.ClassExists('TDoor') then begin T := Root.CreateFromClassName('TDoor'); T.Name := 'Door' + IntToStr(T.ID); end; end; Note: ClassExists is not case-sensitive.