| [Overview][Types][Classes][Procedures and functions][Variables][Index] |
[Properties (by Name)] [Methods (by Name)] [Events (by Name)]
Factory pattern - Create a descendant of the TtiCompress at runtime
Source position: tiCompress.pas line 46
type TtiCompressFactory = class(TObject) end; |
||
public |
||
constructor Create; |
||
destructor Destroy; override; |
||
procedure RegisterClass(); |
|
Register a TtiCompress class for creation by the factory |
function CreateInstance(); |
|
Call the factory to create an instance of TtiCompress |
procedure AssignCompressionTypes(); |
|
Assing the registered list of TtiCompress names to a stringList |
property DefaultCompressionType: string; [rw] |
||
|
Factory pattern - Create a descendant of the TtiCompress at runtime |
|
| | | ||
TObject |
Factory pattern - Create a descendant of the TtiCompress at runtime.