UnicodeString str = "";
str = Edit1->Text;
//*************** BytesOf()***********
DynamicArray<unsigned char> b;
b = str.BytesOf();
Memo1->Clear();
//Memo1->Lines->Add("数组长度" + IntToStr(b.Length));
Memo1->Lines->Add(IntToStr(str.Length()));
for(int i=0;i<b.Length;i++)
{
Memo1->Lines->Add(IntToHex(b[i],01));
}
/*************************************/