做了个读取电子称的，但是不会分析结果,该怎么处理

做了个读取电子称的，但是不会分析结果
返回的结果 有时是：'000=25.0'
也会是 '0=25.000'， '000=25.0'




其实真正的重量是 0.52，我想要的写个 把 '000=25.0' 转换成0.52，
不知道有没有现场的函数呢 
在线等，可以的话 马上给分


[解决办法]
var
s : string;
r : double;
i,l : integer;
begin
s := '000=25.0 ';
i := pos( '= ',s);//等号位置
l := length(s);//字串长度
s := copy(s,i+1,l-i);
r := strTofloat(s);
end;