UnicodeString.BytesOf()

	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));
	}
	/*************************************/