кусок моей статистики, грызи.
delphi Код:
if FromServer and (connectname=Name) and (pck[1]=#$64) then
case pck[2] of
#$3F:
case pck[14] of
#$03: begin inc(aa); s3na4.caption:=vartostr(aa); sss3na4.caption:=vartostr(Round((aa/((aa+aaa)/100)))); end;
#$04: begin inc(bb); s4na5.caption:=vartostr(bb); sss4na5.caption:=vartostr(Round((bb/((bb+bbb)/100)))); end;
#$05: begin inc(cc); s5na6.caption:=vartostr(cc); sss5na6.caption:=vartostr(Round((cc/((cc+ccc)/100)))); end;
#$06: begin inc(dd); s6na7.caption:=vartostr(dd); sss6na7.caption:=vartostr(Round((dd/((dd+ddd)/100)))); end;
#$07: begin inc(ee); s7na8.caption:=vartostr(ee); sss7na8.caption:=vartostr(Round((ee/((ee+eee)/100)))); end;
#$08: begin inc(ff); s8na9.caption:=vartostr(ff); sss8na9.caption:=vartostr(Round((ff/((ff+fff)/100)))); end;
#$09: begin inc(gg); s9na10.caption:=vartostr(gg); sss9na10.caption:=vartostr(Round((gg/((gg+ggg)/100)))); end;
#$0A: begin inc(hh); s10na11.caption:=vartostr(hh); sss10na11.caption:=vartostr(Round((hh/((hh+hhh)/100)))); end;
#$0B: begin inc(qq); s11na12.caption:=vartostr(qq); sss11na12.caption:=vartostr(Round((qq/((qq+qqq)/100)))); end;
#$0C: begin inc(ww); s12na13.caption:=vartostr(ww); sss12na13.caption:=vartostr(Round((ww/((ww+www)/100)))); end;
#$0D: begin inc(rr); s13na14.caption:=vartostr(rr); sss13na14.caption:=vartostr(Round((rr/((rr+rrr)/100)))); end;
#$0E: begin inc(tt); s14na15.caption:=vartostr(tt); sss14na15.caption:=vartostr(Round((tt/((tt+ttt)/100)))); end;
#$0F: begin inc(yy); s15na16.caption:=vartostr(yy); sss15na16.caption:=vartostr(Round((yy/((yy+yyy)/100)))); end;
#$10: begin inc(uu); s16na17.caption:=vartostr(uu); sss16na17.caption:=vartostr(Round((uu/((uu+uuu)/100)))); end;
#$11: begin inc(oo); s17na18.caption:=vartostr(oo); sss17na18.caption:=vartostr(Round((oo/((oo+ooo)/100)))); end;
#$12: begin inc(pp); s18na19.caption:=vartostr(pp); sss18na19.caption:=vartostr(Round((pp/((pp+ppp)/100)))); end;
#$13: begin inc(ss); s19na20.caption:=vartostr(ss); sss19na20.caption:=vartostr(Round((ss/((ss+sss)/100)))); end;
end;
#$41:
case pck[14] of
#$03: begin inc(aaa); ss3na4.caption:=vartostr(aaa); sss3na4.caption:=vartostr(Round((aa/((aa+aaa)/100)))); end;
#$04: begin inc(bbb); ss4na5.caption:=vartostr(bbb); sss4na5.caption:=vartostr(Round((bb/((bb+bbb)/100)))); end;
#$05: begin inc(ccc); ss5na6.caption:=vartostr(ccc); sss5na6.caption:=vartostr(Round((cc/((cc+ccc)/100)))); end;
#$06: begin inc(ddd); ss6na7.caption:=vartostr(ddd); sss6na7.caption:=vartostr(Round((dd/((dd+ddd)/100)))); end;
#$07: begin inc(eee); ss7na8.caption:=vartostr(eee); sss7na8.caption:=vartostr(Round((ee/((ee+eee)/100)))); end;
#$08: begin inc(fff); ss8na9.caption:=vartostr(fff); sss8na9.caption:=vartostr(Round((ff/((ff+fff)/100)))); end;
#$09: begin inc(ggg); ss9na10.caption:=vartostr(ggg); sss9na10.caption:=vartostr(Round((gg/((gg+ggg)/100)))); end;
#$0A: begin inc(hhh); ss10na11.caption:=vartostr(hhh); sss10na11.caption:=vartostr(Round((hh/((hh+hhh)/100)))); end;
#$0B: begin inc(qqq); ss11na12.caption:=vartostr(qqq); sss11na12.caption:=vartostr(Round((qq/((qq+qqq)/100)))); end;
#$0C: begin inc(www); ss12na13.caption:=vartostr(www); sss12na13.caption:=vartostr(Round((ww/((ww+www)/100)))); end;
#$0D: begin inc(rrr); ss13na14.caption:=vartostr(rrr); sss13na14.caption:=vartostr(Round((rr/((rr+rrr)/100)))); end;
#$0E: begin inc(ttt); ss14na15.caption:=vartostr(ttt); sss14na15.caption:=vartostr(Round((tt/((tt+ttt)/100)))); end;
#$0F: begin inc(yyy); ss15na16.caption:=vartostr(yyy); sss15na16.caption:=vartostr(Round((yy/((yy+yyy)/100)))); end;
#$10: begin inc(uuu); ss16na17.caption:=vartostr(uuu); sss16na17.caption:=vartostr(Round((uu/((uu+uuu)/100)))); end;
#$11: begin inc(ooo); ss17na18.caption:=vartostr(ooo); sss17na18.caption:=vartostr(Round((oo/((oo+ooo)/100)))); end;
#$12: begin inc(ppp); ss18na19.caption:=vartostr(ppp); sss18na19.caption:=vartostr(Round((pp/((pp+ppp)/100)))); end;
#$13: begin inc(sss); ss19na20.caption:=vartostr(sss); sss19na20.caption:=vartostr(Round((ss/((ss+sss)/100)))); end;
end;
end;