关于字符串转换成十六进制的问题

Question

在网上看到用SPCOMM编串口通信的代码有这么一段
 sbuf[1]:=byte($f0); //帧头
 sbuf[2]:=byte($01); //命令号
 sbuf[3]:=byte($ff);
 sbuf[4]:=byte($ff);
 sbuf[5]:=byte($01);
 sbuf[6]:=byte($f0); //帧尾可是，我要发送的数据，是要在文本框里填f0 f5 f6这种的字符串，如何把这个字符串转换成十六进制？转出来的也要是f0 f5 f6这种格式的

Answer 1

var 
  tempstr:tstringlist;
  i:integer;
  sbuf:array [0..5] of byte;   tempstr:=Tstringlist.creat;
  try
  tempstr.Delimiter:=#32;//---#32表示为空格；
  tempstr.DelimitedText:=edit1.text;
  //-----上面的代码是将字符串分开成一个字符串列表；分隔符为空格符；
  for i:=0 to tempstr.count-1 do
    sbuf[i]:=strtoint('$'+tempstr.strings[i]);//---将字符转换成BYTE整数；
  ......
  
  finally
    freeandnil(tempstr);
  end;