/*
 Delphi Object and Component Reference
#{bmc bm9.BMP} StrLCopy example
The following example uses an edit control and a button on a form in a cross-platform application. When the button is clicked, the first X bytes of the edit control are copied into a buffer, where X is a predefined number.
*/
const MAX_BUFFER = 10;

void __fastcall TForm1::Button1Click(TObject *Sender)
{
  char szBuffer[MAX_BUFFER+1];
  StrLCopy(szBuffer, Edit1->Text.c_str(), MAX_BUFFER);
  Application->MessageBox(szBuffer, "StrLCopy example", TMessageButtons() << smbOK, smsInformation, smbOK, smbCanc);
}

