如何开发串口程序之十六进制转字符串

开发环境介绍：

Delphi7

+Apdcomport，TurboPower的第一流串口通讯控件，开源

+SUDT Serial Null，串口模拟器，在串口资源如化石搬宝贵的今天，尤其必要，使用方法非常简单，使用其一为接收，其一为发送，即可进行测试。

复杂一点的写法：

procedure TServerFrmMain.btHex2CharClick(Sender: TObject);
var
    i,j,iLength:integer;
    buf:array [0..256] of char;
    s:String;
    sMessage:string;
begin
  sMessage:=mmCommand.text;

                       { 23 23 55 53 1E 61 00 02 4D 00 0D 0A  $DA
                         1  2  3  4  5  6  7  8  9  10 11 12

                       j 0  1                              11
                       }
  try
          try
                       j:=0;
                       iLength:=length(sMessage) div 2-1;     //-2 is a bugfixed for $DA is saved by sqlserver string
                       while j< iLength do
                        begin
                        s:='$'+sMessage[j*2+1]+sMessage[j*2+2];
                        Buf[j]:=Char(strToInt(s));
                        Inc(j);
                        end ;
          except
             on  E:Exception  do ShowMessage(E.Message);
          end
  finally
     mmCommand.Text:=Buf;
  end;
end;

简洁一点的写法：

procedure TForm1.btSendClick(Sender: TObject);
   function Hex2String(sHex:string):String;
   var s:string;
   begin
      while sHex<>'' do
         begin
           s:=s+chr(strtoint('$'+copy(sHex,1,2)));
           delete(sHex,1,2);
         end;
      result:=s;
   end;
var s:string;
begin
   s:= edit1.Text;
   if ckTran2Hex.Checked then
      s:= Hex2String(s);
   myComport.PutString(s);
end;

第一篇发文，顺道测试一下，感觉很好。