(1) 提取的A级原始数据填充码

(2) 提取的B级原始数据填充码 提取和统计特定数据程序和过程。

procedure TForm1.SpeedButton4Click(Sender: TObject); var

haoshu,huaishu,ssss,astr,result:string;

bbb,YUNTUSize,jj,jishu,kaishi,jiesu,len,k,i,hh,xunhuan:integer;

5

neirong, pc:PChar; schar:char;

buffer:array[0..2] of Char; {定义个字符缓冲区} begin

edit16.Text:='2296'; edit17.Text:='2551'; edit18.Text:='0'; haoshu:='0'; huaishu:='0';

cuowuStaticText3.Caption:='0'; zhengqueStaticText2.Caption:='0'; Memo2.Lines.Text:=''; ssss:='';

kaishi:=strtoint(edit16.Text); jiesu:=strtoint(edit17.Text);

For xunhuan:=1 to strtoint(edit5.Text) do begin

hangStaticText0 .Caption:= inttostr(xunhuan); ProgressBar2.Max:=strtoint(edit5.Text); {数据长度} ProgressBar2.Position:=strtoint(hangStaticText0.Caption); kaishi:=strtoint(edit16.Text)+53866; jiesu:=strtoint(edit17.Text)+53866; pc:=mStream1.Memory; {定义个字符缓} for k:=kaishi to jiesu do begin

edit16.Text:=inttostr(kaishi); edit17.Text:=inttostr(jiesu); ProgressBar1.Position:=0;

ProgressBar1.Position:=K; {指示运行进度} Astr:=pc[k]; {对应的内容}

len:=length(AStr); {测试字符串长度}

6