
(*
 Delphi Object and Component Reference
#{bmc bm9.BMP} StrUpper example
The following example uses an edit box, a label, and a button on a form. When the button is clicked, the text in the edit control is displayed in upper case in the label’s caption.
VCL example
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  Label1->Caption = StrUpper(Edit1->Text.c_str());
}
CLX example
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  Label1->Caption = StrUpper(WideCharToString(Edit1->Text.c_bstr()).c_str());
} 
