請教一下，現已知將 指令FFh 07h F8h 以BYTE送出為  #$FF+#$07+#$F8
若指令為一個 STRING的變數,如何轉成BYTE送出,在前面加上＃＄不對
要如何改才對呢

var
CmdStr: string;
begin
//....
CmdStr := #$FF#$07#$F8;
SendCmd(CmdStr);
//....
end;


===================引 用 itsgero2798 文 章===================
請教一下，現已知將 指令FFh 07h F8h 以BYTE送出為 #$FF #$07 #$F8
若指令為一個 STRING的變數,如何轉成BYTE送出,在前面加上＃＄不對
要如何改才對呢

------
------------------------
博采眾家之長,奉獻綿薄之力
------------------------

抱歉，我問的不夠清楚，我要的是

var
CmdStr: string;
begin
//....
SendCmd( #$ CmdStr ); //這樣好像不行
//....
end;

很抱谦，你的问题描述还是不清楚，你要输入什么输出什么呢？

------
------------------------
博采眾家之長,奉獻綿薄之力
------------------------

其實我輸入是一段字串，先轉成ASCII 再作 XOR計算出 CHECKSUM再輸出，
所以每輸入不同的的字串會計算出不同的CHECKSUM，計算出來的CHECKSUM再轉成
ASCII CODE以byte輸出，如下，計算出來為string 如何以byte由rs232送出

function checksum( s : string ) : String;
var
i, j, xorValue : Integer;
HexArray : array[1..250] of Integer;
begin
xorValue := 0;
i := Length(s);
for j := 1 to i do
begin
HexArray[j] := Ord( Copy(s, j, 1)[1] );
end;
for j := 1 to i do
begin
xorValue := XorValue Xor HexArray[j] ;
end;
result := InttoHex( XorValue, 2);
end;

你把你的RS232发送接口函数贴出来吧。

另外你的代码可以优化如下：

[code delphi]
function checksum( s : string ) : String;
var
i, xorValue : Integer;
begin
xorValue := 0;
for i := 1 to Length(s) do
xorValue := xorValue xor Byte(s[i]);
Result := IntToHex(xorValue, 2);
end;
[/code]

------
------------------------
博采眾家之長,奉獻綿薄之力
------------------------

謝謝大大指教，我使用的發送的function如下

procedure TForm1.Send( s : string );
var
lrc:LongWord;
begin
if (hComm=0) then exit; //檢查Handle值
WriteFile(hComm,PChar( s )^,Length( s ), lrc, nil); // 送出資料
end;

你可以直接以String类型发送，如果一定要一位一位的转成byte类型来发送，就直接用byte(s[i])，String串中的每一位Char你都可以直接转成byte类型的。

===================引 用 itsgero2798 文 章===================
謝謝大大指教，我使用的發送的function如下

procedure TForm1.Send( s : string );
var
lrc:LongWord;
begin
if (hComm=0) then exit; //檢查Handle值
WriteFile(hComm,PChar( s )^,Length( s ), lrc, nil); // 送出資料
end;

------
------------------------
博采眾家之長,奉獻綿薄之力
------------------------

謝謝h@visli大大