
(*
 Delphi Object and Component Reference
#{bmc bm9.BMP} UpCase example
The following code uppercases every other character in the text of an edit control when the user clicks the button.
*) 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  // Get string from TEdit control 
  AnsiString s = Edit1->Text;
  for (int i = 0; i < s.Length(); i += 2)
  {
    s[i] := UpCase(s[i]);
    Edit1->Text = s;
  }
} 
