
(*
 Delphi Object and Component Reference
#{bmc bm18.BMP} {bmc bm9.BMP} GetCharsetValues example
The following uses the GetCharsetValues procedure to fill a string list with the names of all the available character set constants. This string list can then be used to allow the user to select a character set.
Here is the callback that adds the character sets to the string list:
*) 
void TForm1::AddCharacterSet(AnsiString S)
{
  CharSetList->Add(S);
}
Here is the code that creates the string list, fills it, and sorts the character set names.
CharSetList = new TStringList();
GetCharsetValues(AddCharacterSet);
CharSetList->Sort(); 
