//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "SysUtilsStrLower.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
	: TForm(Owner)
{
}
//---------------------------------------------------------------------------
// BeginExample: SysUtilsStrLower
// Routine: SysUtils.StrLower
// Routine: SysUtils.StrUpper

// BeginCode
/*
The following example uses an edit box, two labels, and a
button on a form. When the button is clicked, the text in
the edit control is displayed in lower case in label1’s
caption and upper case in label2's caption.
*/

void __fastcall TForm1::Button1Click(TObject *Sender)
{
  Label1->Caption = StrLower(Edit1->Text.c_str());
  Label2->Caption = StrUpper(Edit1->Text.c_str());
}
// EndCode
// EndExample: SysUtilsStrLower
//---------------------------------------------------------------------------
