Variant类型转换成byte数组时出错，急求解决啊

[roy456myth]

正在工地调试，急求大家帮忙啊。。。。
var
StrF:String;
i_Count,i:Integer;
ValueF:Variant;
Rev: Array of byte;
RevF:Array[0..30] of byte;
BChar:Array[0..1] of Char;
F,R:real;
begin

StrF:='';
Comm5.Output:=commandtext;
Sleep(2000);
i_Count:=Comm5.InBufferCount;
sleep(500);
ValueF:=Comm5.Input; //ValueF的值为 ：020001+3781.0+2452.A
sleep(500);

for i:=0 to i_Count-1 do begin
RevF[i]:=Valuef[i]; //在这里出错了
BChar[0]:=Chr(RevF[i]);
StrF:=StrF+StrPas(BChar);
end;


检测到错误类EVariantinvalidArgError,错误信息 ‘Invalid argument’

[roy456myth]

有人帮忙看看没

[看那山瞧那水]

无效值转成数值出错，要先检查再转

function VarToInt(const V:Variant):Integer;
begin
if TVarData(V).VType <> varNull then
Result:=V
else
Result:=0;
end;

[xxfly]

如果用的是MSComm，可以直接用 Array Of Byte;

Procedure TCommMSComm.OnComm(Sender: TObject);
Var
lAryBuf: Array Of Byte;
lBufLength: Integer;
Begin
Case FCommBase.CommEvent Of
comEvReceive:
Begin
lBufLength := FCommBase.InBufferCount;
lAryBuf := FCommBase.Input;

If Assigned(FOnRecvData) Then
OnRecvData(lAryBuf, lBufLength);

End;
end;
End;

[newfang]

楼主是把那玩意做为一个字符串来使用的？
那就先做一下类型强转就可以了吧。

RevF[i]:=string(Valuef)[i];