16,748
社区成员
发帖
与我相关
我的任务
分享
if FileExists('C:\Program Files\LIDA\AutoCZ.txt') then //liubo
begin
mjjsjk[0]:=StrToInt(ascjm); //将 sTemp中的字符串转化为整型,赋值给数组
mgbcs:=1;
//如果五次内数字一样则该值为重量
while mgbcs<=2 do
begin
ascjm; //调用ascjm函数
mjjsjk[mgbcs]:=StrToInt(ascjm); //将 sTemp中的字符串转化为整型,赋值给数组
kzl:=mjjsjk[mgbcs];
//显示目前的是第几次重量为多少
Application.MessageBox(PChar('目前重量:'+floattostr(kzl/1000)),PChar(' 系统提示:'+'('+inttostr(mgbcs)+')'),64);
//如果前后两次重量不相等
if kzl<>mjjsjk[mgbcs-1] then
begin
mjjsjk[mgbcs-1]:= mjjsjk[mgbcs]; //后一次重量赋给前一次
mjjsjk[mgbcs]:=0;
end
else
begin
mgbcs:=mgbcs+1; //次数加1
end;
end;
Result:=Roundex(kzl/1000,3); // kzl/1000四舍五入转化并保留三位小数
end
else
begin
Application.MessageBox('磅单数据丢失!','提示',64);
Exit;
end;