关于MSCOMM控件怎么显示结果为十六进制？

[iq34126824]

void __fastcall TForm1::MSComm1Comm(TObject *Sender)
{
AnsiString str; file://声明一个AnsiString类型的变量
OleVariant s;
if(MSComm1->CommEvent==comEvReceive)
// 接收缓冲区中是否收到Rthreshold个字符。
{
if(MSComm1->InBufferCount)// 是否有字符驻留在接收缓冲区等待被取出
{
s=MSComm1->Input;//接收数据
str=s.AsType(varString); //把接收到的OleVariant变量转换成AnsiString类型
Memo1->Text=Memo1->Text+str;//把接收到的数据显示在Memo1中。
}
}
}
这样的代码，最后的结果显示在Memo1中为16进制，，请问怎么操作

[BCBPLC]

void __fastcall TForm1::MSComm1Comm(TObject *Sender)
{
// COM1:接收事件，格式与InputMode一致,
// 当无新来字符时，即使有未取字符，不会再次发生接收事件
// 接收的字符边界是乱的
String ss="接收<-: ";
OleVariant buf;
int bl;
while (buf=MSComm1->Input,
bl=buf.ArrayHighBound()+1,bl!=0) // 要反复取字符串，直至空
{
for (int i=0;i<bl;i++)
{
int c=(unsigned char)buf.GetElement(i);
ss=ss+IntToHex(c,2)+" ";
}
}
Memo1->Lines->Add(ss);
}
//---------------------------------------------------------------------------
我编的片段。

[BCBPLC]

你的变体类型转成asString用错了。