Result:=''; {清空结果存储器空间} for i:=1 to len do {逐位转换} begin schar:=AStr[i]; {读对应位的字符串} {将字符串转化为16进制字符串，并以空格间隔} Result:=Result +IntToHex(Ord(schar),2)+' '; ssss:=ssss+result;

end; if IntToHex(Ord(schar),2)<> '00' then begin

huaishu:=inttostr(strtoint(huaishu)+1); {如果不等于原值，错误计数器累加1} end else if IntToHex(Ord(schar),2) ='00' then begin

haoshu:=inttostr(strtoint(haoshu)+1); {如果正确计数器累加1} end else end; end;

if strtoint(hangStaticText0.Caption) >=strtoint(edit5.Text) then begin

bilvStaticText4.Caption:= floattostr( strtofloat(huaishu) strtofloat(haoshu)); {比率q是实践检验值}

memo2.Text:= ssss; {填充数据总和}

zhengqueStaticText2.Caption:=floattostr( strtofloat(haoshu));

cuowuStaticText3.Caption:=floattostr( strtofloat(huaishu)); Timer9.Enabled:=true; end; end;

三、数据流提取与拼接

在电磁干扰严重的情况下，往往采取分布式数据接收模式，不同地理和环境接受的云图数据，同样会发生同一个经度范围的数据有好坏之分，解决单一使用每一个数据都存在的局部数据损坏，利用数据修补是一种有效的可行方法。在进行云图原始数据修改操作时，为了提高数据读取、处理和存储速度，特设计内存操作函数function shujuliu_addtofile(mStream1,mStream2:TMemoryStream): Boolean。

7