-\r
-/****************************************************************************\r
- * Just a wrapper to embed an AnsiString into a TObject\r
- ****************************************************************************/\r
-__fastcall TObjectString::TObjectString( char * String )\r
-{\r
- FString = AnsiString( String );\r
-}\r
-//---------------------------------------------------------------------------\r
-AnsiString __fastcall TObjectString::String()\r
-{\r
- return FString;\r
-}\r
-\r
-\r
-/****************************************************************************\r
- * A TCheckListBox that automatically disposes any TObject\r
- * associated with the string items\r
- ****************************************************************************/\r
-__fastcall TCleanCheckListBox::~TCleanCheckListBox()\r
-{\r
- for( int i = 0 ; i < Items->Count ; i++ )\r
- {\r
- if( Items->Objects[i] != NULL )\r
- delete Items->Objects[i];\r
- }\r
-}\r
-\r
-\r