急。帮我看下这个问题

[andyzhou1101]

给串口发送数据

比如
s := #$08+#$f7+#$01+#$03+#$03+#$07;

如果我要发送变量，即上面的命令中某个16进制字符是通过变量转变的出来的

var
i:integer;

i应该怎么写，才能有#$08这样的效果。

急

[浩南_哥]

s:='#$'+IntToHex(i,2);

[bdmh]

[Quote=引用 1 楼 m617105 的回复:]
Delphi(Pascal) code

s:='#$'+IntToHex(i,2);
[/Quote]
+1

[纯冰糖]

procedure TForm1.BitBtn57Click(Sender: TObject);
var
  s:string;
begin
  s:='#$'+sysUtils.IntToHex(10,2);
  Caption:=s;
end;

[sundayzhao]

s:=chr(8)就和#$08一样了。

#$08+#$f7+#$01+#$03+#$03+#$07

上述语句可以表示为
s:=chr(8)+chr(247)+chr(1)+chr(3)+chr(7)就可以了。

[andyzhou1101]

[Quote=引用 1 楼 m617105 的回复:]
Delphi(Pascal) code

s:='#$'+IntToHex(i,2);
[/Quote]

不好意思 这个没有用 我之前就这么做的

[andyzhou1101]

[Quote=引用 1 楼 m617105 的回复:]
Delphi(Pascal) code

s:='#$'+IntToHex(i,2);
[/Quote]

不好意思 这个没有用 我之前就这么做的

[beiguofengguang]

不可能没用吧，感觉s:='#$'+IntToHex(i,2);这样就行

[纯冰糖]

用串口调试工具先调试一下，看下数据是否正确

[andyzhou1101]

我的 s := #$08+#$f7+#$01+#$03+#$03+#$07;

中 #$是没引号的

加不加引号都没用 ，奇了怪了 到底该怎么表示

[andyzhou1101]

高手解决下。分不是问题。

[andyzhou1101]

[Quote=引用 8 楼 rouqing 的回复:]
用串口调试工具先调试一下，看下数据是否正确
[/Quote]

都不知道怎么表示变量字符。怎么测试

[浩南_哥]

没搞明白你要发送数据的格式。没有例子吗？

[haitao]

[Quote=引用 4 楼 sundayzhao 的回复:]
s:=chr(8)就和#$08一样了。

#$08+#$f7+#$01+#$03+#$03+#$07

上述语句可以表示为
s:=chr(8)+chr(247)+chr(1)+chr(3)+chr(7)就可以了。
[/Quote]

如果发送的二进制数据，应该就是这样写

[dinoalex]

上面早有答案了.. CHR就是了..

var
s1,s2: string;
begin
s1 := #$08+#$f7+#$01+#$03+#$03+#$07;
showmessage(s1);
s2:= chr(8)+chr(247)+chr(1)+chr(3)+chr(3)+chr(7);
showmessage(s2);
end;

都是显示同样的东西