这段代码展示了如何使用Delphi解析从四方电子称接收到的16进制数据。通过将16进制字符串转换为ASCII字符，程序能够识别并处理重量信息，包括提取小数点和数值部分。
// 四方电子称接口代码
procedure TMyComm.ReceiveData_SF(Sender: TObject; Buffer: Pointer;
BufferLength: Word);
function HexStrToStr(const S:string):string;
var
t:Integer;
ts:string;
M,Code:Integer;
begin
t:=1;
Result:='';
while t<=Length(S) do
begin
while (t<=Length(S)) and (not (S[t] in ['0'..'9','A'..'F','a'..'f'])) do
inc(t);
&nb
procedure TMyComm.ReceiveData_SF(Sender: TObject; Buffer: Pointer;
最低0.47元/天 解锁文章
扫一扫
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
