,delphi 232通讯,接收到的16进制数据,怎么转换成10进制,然后在edit.text中显示,edit.text是字符型?

2024-12-23 04:24:51
推荐回答(1个)
回答1:

//如果十六进制非字符串, 无须转换, 直接赋值即可 
var 
 i: Integer; 
begin 
 i := $FF; 
 Edit1.Text:=(IntToStr(i)); 
end; 
 
 
//如果十六进制是字符串, 用 StrToInt 即可 
var 
 s: string; 
 i: Integer; 
begin 
 s := '$FF'; 
 i := StrToInt(s); 
 Edit1.Text:=(IntToStr(i)); 
end; 
//如果你接收的数据里没有$, 加上就得了嘛
var 
 s: string; 
 i: Integer; 
begin 
 s := 'FF'; 
 i := '$'+StrToInt(s); 
 Edit1.Text:=(IntToStr(i)); 
end;