//---------------------------------------------------------------------------
# Include <VCL. h>
# Pragma hdrstop
# Include "charandstring. H"
//---------------------------------------------------------------------------
# Pragma package (smart_init)
# Pragma resource "*. DFM"
Tform1 * form1;
//---------------------------------------------------------------------------
_ Fastcall tform1: tform1 (tcomponent * owner)
: Tform (owner)
{
}
//---------------------------------------------------------------------------
Void _ fastcall tform1: button1click (tobject * sender)
{
// Convert string to Char
String STR = This-> edit1-> text;
Int Len = Str. Length ();
Char * CP = new char [Len + 1];
Strpcopy (CP, STR );
// Convert Char to string
STR = strpas (CP );
This-> edit2-> text = STR;
}
//---------------------------------------------------------------------------