unit1.~pas

VC实现等值线编成的COM组件的源程序代码

table0[626]:='14121116';
table0[627]:='24121124';
table0[628]:='34121132';
table0[629]:='13212116';
table0[630]:='14121215';
table0[631]:='33212132';
table0[632]:='34121231';
table0[633]:='13212215';
table0[634]:='23212223';
table0[635]:='33212231';
table0[636]:='13212314';
table0[637]:='14121413';
table0[638]:='24121421';
table0[639]:='13212413';
table0[640]:='23212421';
table0[641]:='14121611';
table0[642]:='14122124';
table0[643]:='24122132';
table0[644]:='13213124';
table0[645]:='14122223';
table0[646]:='24122231';
table0[647]:='13213223';
table0[648]:='23213231';
table0[649]:='13213322';
table0[650]:='14122421';
table0[651]:='14123132';
table0[652]:='13214132';
table0[653]:='14123231';
table0[654]:='13214231';
table0[655]:='32311115';
table0[656]:='42311123';
table0[657]:='52311131';
table0[658]:='32311214';
table0[659]:='42311222';
table0[660]:='32311313';
table0[661]:='42311321';
table0[662]:='32311412';
table0[663]:='32311511';
table0[664]:='23221115';
table0[665]:='33221123';
table0[666]:='22312115';
table0[667]:='23221214';
table0[668]:='33221222';
table0[669]:='22312214';
table0[670]:='32312222';
table0[671]:='33221321';
table0[672]:='22312313';
table0[673]:='23221412';
table0[674]:='22312412';
table0[675]:='23221511';
table0[676]:='22312511';
table0[677]:='14131115';
table0[678]:='24131123';
table0[679]:='13222115';
table0[680]:='14131214';
table0[681]:='33222131';
table0[682]:='12313115';
table0[683]:='13222214';
table0[684]:='23222222';
table0[685]:='24131321';
table0[686]:='12313214';
table0[687]:='22313222';
table0[688]:='14131412';
table0[689]:='12313313';
table0[690]:='13222412';
table0[691]:='14131511';
table0[692]:='13222511';
table0[693]:='14132123';
table0[694]:='24132131';
table0[695]:='13223123';
table0[696]:='14132222';
table0[697]:='12314123';
table0[698]:='13223222';
table0[699]:='14132321';
table0[700]:='12314222';
table0[701]:='13223321';
table0[702]:='14133131';
table0[703]:='13224131';
table0[704]:='12315131';
table0[705]:='41411114';
table0[706]:='51411122';
table0[707]:='41411213';
table0[708]:='51411221';
table0[709]:='41411312';
table0[710]:='41411411';
table0[711]:='32321114';
table0[712]:='42321122';
table0[713]:='31412114';
table0[714]:='41412122';
table0[715]:='42321221';
table0[716]:='31412213';
table0[717]:='41412221';
table0[718]:='31412312';
table0[719]:='32321411';
table0[720]:='31412411';
table0[721]:='23231114';
table0[722]:='33231122';
table0[723]:='22322114';
table0[724]:='23231213';
table0[725]:='33231221';
table0[726]:='21413114';
table0[727]:='22322213';
table0[728]:='32322221';
table0[729]:='21413213';
table0[730]:='31413221';
table0[731]:='23231411';
table0[732]:='21413312';
table0[733]:='22322411';
table0[734]:='21413411';
table0[735]:='14141114';
table0[736]:='24141122';
table0[737]:='13232114';
table0[738]:='14141213';
table0[739]:='24141221';
table0[740]:='12323114';
table0[741]:='13232213';
table0[742]:='23232221';
table0[743]:='11414114';
table0[744]:='12323213';
table0[745]:='22323221';
table0[746]:='14141411';
table0[747]:='11414213';
table0[748]:='21414221';
table0[749]:='13232411';
table0[750]:='11414312';
table0[751]:='14142122';
table0[752]:='13233122';
table0[753]:='14142221';
table0[754]:='12324122';
table0[755]:='13233221';
table0[756]:='11415122';
table0[757]:='12324221';
table0[758]:='11415221';
table0[759]:='41421113';
table0[760]:='51421121';
table0[761]:='41421212';
table0[762]:='41421311';
table0[763]:='32331113';
table0[764]:='42331121';
table0[765]:='31422113';
table0[766]:='41422121';
table0[767]:='31422212';
table0[768]:='32331311';
table0[769]:='31422311';
table0[770]:='23241113';
table0[771]:='33241121';
table0[772]:='22332113';
table0[773]:='23241212';
table0[774]:='21423113';
table0[775]:='22332212';
table0[776]:='23241311';
table0[777]:='21423212';
table0[778]:='22332311';
table0[779]:='21423311';
table0[780]:='14151113';
table0[781]:='24151121';
table0[782]:='13242113';
table0[783]:='23242121';
table0[784]:='12333113';
table0[785]:='13242212';
table0[786]:='14151311';
table0[787]:='11424113';
table0[788]:='12333212';
table0[789]:='13242311';
table0[790]:='11424212';
table0[791]:='12333311';
table0[792]:='11424311';
table0[793]:='13243121';
table0[794]:='11425121';
table0[795]:='41431211';
table0[796]:='31432112';
table0[797]:='31432211';
table0[798]:='22342112';
table0[799]:='21433112';
table0[800]:='21433211';
table0[801]:='13252112';
table0[802]:='12343112';
table0[803]:='11434112';
table0[804]:='11434211';
table0[805]:='15111116';
table0[806]:='15111215';
table0[807]:='25111223';
table0[808]:='15111314';
table0[809]:='15111413';
table0[810]:='15111512';
table0[811]:='15112124';
table0[812]:='15112223';
table0[813]:='15112322';
table0[814]:='15112421';
table0[815]:='15113132';
table0[816]:='15113231';
table0[817]:='24211115';
table0[818]:='24211214';
table0[819]:='34211222';
table0[820]:='24211313';
table0[821]:='34211321';
table0[822]:='24211412';
table0[823]:='24211511';
table0[824]:='15121115';
table0[825]:='25121123';
table0[826]:='14212115';
table0[827]:='24212123';
table0[828]:='25121222';
table0[829]:='14212214';
table0[830]:='24212222';
table0[831]:='14212313';
table0[832]:='24212321';
table0[833]:='14212412';
table0[834]:='15121511';
table0[835]:='14212511';
table0[836]:='15122123';
table0[837]:='25122131';
table0[838]:='14213123';
table0[839]:='24213131';
table0[840]:='14213222';
table0[841]:='15122321';
table0[842]:='14213321';
table0[843]:='15123131';
table0[844]:='14214131';
table0[845]:='33311114';
table0[846]:='33311213';
table0[847]:='33311312';
table0[848]:='33311411';
table0[849]:='24221114';
table0[850]:='23312114';
table0[851]:='33312122';
table0[852]:='34221221';
table0[853]:='23312213';
table0[854]:='33312221';
table0[855]:='23312312';
table0[856]:='24221411';
table0[857]:='23312411';
table0[858]:='15131114';
table0[859]:='14222114';
table0[860]:='15131213';
table0[861]:='25131221';
table0[862]:='13313114';
table0[863]:='14222213';
table0[864]:='15131312';
table0[865]:='13313213';
table0[866]:='14222312';
table0[867]:='15131411';
table0[868]:='13313312';
table0[869]:='14222411';
table0[870]:='15132122';
table0[871]:='14223122';
table0[872]:='15132221';
table0[873]:='13314122';
table0[874]:='14223221';
table0[875]:='13314221';
table0[876]:='42411113';
table0[877]:='42411212';
table0[878]:='42411311';
table0[879]:='33321113';
table0[880]:='32412113';
table0[881]:='42412121';
table0[882]:='32412212';
table0[883]:='33321311';
table0[884]:='32412311';
table0[885]:='24231113';
table0[886]:='34231121';
table0[887]:='23322113';
table0[888]:='33322121';
table0[889]:='22413113';
table0[890]:='23322212';
table0[891]:='24231311';
table0[892]:='22413212';
table0[893]:='23322311';
table0[894]:='22413311';
table0[895]:='15141113';
table0[896]:='25141121';
table0[897]:='14232113';
table0[898]:='24232121';
table0[899]:='13323113';
table0[900]:='14232212';
table0[901]:='15141311';
table0[902]:='12414113';
table0[903]:='13323212';
table0[904]:='14232311';
table0[905]:='12414212';
table0[906]:='13323311';
table0[907]:='15142121';
table0[908]:='14233121';
table0[909]:='13324121';
table0[910]:='12415121';
table0[911]:='51511112';
table0[912]:='51511211';
table0[913]:='42421112';
table0[914]:='41512112';
table0[915]:='42421211';
table0[916]:='41512211';
table0[917]:='33331112';
table0[918]:='32422112';
table0[919]:='33331211';
table0[920]:='31513112';
table0[921]:='32422211';
table0[922]:='31513211';
table0[923]:='24241112';
table0[924]:='23332112';
table0[925]:='24241211';
table0[926]:='22423112';
table0[927]:='23332211';
table0[928]:='21514112';
table3[0]:='51111125';
table3[1]:='61111133';
table3[2]:='41111216';
table3[3]:='51111224';
table3[4]:='61111232';
table3[5]:='41111315';
table3[6]:='51111323';
table3[7]:='61111331';
table3[8]:='41111414';
table3[9]:='51111422';
table3[10]:='41111513';
table3[11]:='51111521';
table3[12]:='41111612';
table3[13]:='41112125';
table3[14]:='51112133';
table3[15]:='61112141';
table3[16]:='31112216';
table3[17]:='41112224';
table3[18]:='51112232';
table3[19]:='31112315';
table3[20]:='41112323';
table3[21]:='51112331';
table3[22]:='31112414';
table3[23]:='41112422';
table3[24]:='31112513';
table3[25]:='41112521';
table3[26]:='31112612';
table3[27]:='31113125';
table3[28]:='41113133';
table3[29]:='51113141';
table3[30]:='21113216';
table3[31]:='31113224';
table3[32]:='41113232';
table3[33]:='21113315';
table3[34]:='31113323';
table3[35]:='41113331';
table3[36]:='21113414';
table3[37]:='31113422';
table3[38]:='21113513';
table3[39]:='31113521';
table3[40]:='21113612';
table3[41]:='21114125';
table3[42]:='31114133';
table3[43]:='41114141';
table3[44]:='11114216';
table3[45]:='21114224';
table3[46]:='31114232';
table3[47]:='11114315';
table3[48]:='21114323';
table3[49]:='31114331';
table3[50]:='11114414';
table3[51]:='21114422';
table3[52]:='11114513';
table3[53]:='21114521';
table3[54]:='11115125';
table3[55]:='21115133';
table3[56]:='31115141';
table3[57]:='11115224';
table3[58]:='21115232';
table3[59]:='11115323';
table3[60]:='21115331';
table3[61]:='11115422';
table3[62]:='11116133';
table3[63]:='21116141';
table3[64]:='11116232';
table3[65]:='11116331';
table3[66]:='41121116';
table3[67]:='51121124';
table3[68]:='61121132';
table3[69]:='41121215';
table3[70]:='51121223';
table3[71]:='61121231';
table3[72]:='41121314';
table3[73]:='51121322';
table3[74]:='41121413';
table3[75]:='51121421';
table3[76]:='41121512';
table3[77]:='41121611';
table3[78]:='31122116';
table3[79]:='41122124';
table3[80]:='51122132';
table3[81]:='31122215';
table3[82]:='41122223';
table3[83]:='51122231';
table3[84]:='31122314';
table3[85]:='41122322';
table3[86]:='31122413';
table3[87]:='41122421';
table3[88]:='31122512';
table3[89]:='31122611';
table3[90]:='21123116';
table3[91]:='31123124';
table3[92]:='41123132';
table3[93]:='21123215';
table3[94]:='31123223';
table3[95]:='41123231';
table3[96]:='21123314';
table3[97]:='31123322';
table3[98]:='21123413';
table3[99]:='31123421';
table3[100]:='21123512';
table3[101]:='21123611';
table3[102]:='11124116';
table3[103]:='21124124';
table3[104]:='31124132';
table3[105]:='11124215';
table3[106]:='21124223';
table3[107]:='31124231';
table3[108]:='11124314';
table3[109]:='21124322';
table3[110]:='11124413';
table3[111]:='21124421';
table3[112]:='11124512';
table3[113]:='11125124';
table3[114]:='21125132';
table3[115]:='11125223';
table3[116]:='21125231';
table3[117]:='11125322';
table3[118]:='11125421';
table3[119]:='11126132';
table3[120]:='11126231';
table3[121]:='41131115';
table3[122]:='51131123';
table3[123]:='61131131';
table3[124]:='41131214';
table3[125]:='51131222';
table3[126]:='41131313';
table3[127]:='51131321';
table3[128]:='41131412';
table3[129]:='41131511';
table3[130]:='31132115';
table3[131]:='41132123';
table3[132]:='51132131';
table3[133]:='31132214';
table3[134]:='41132222';
table3[135]:='31132313';
table3[136]:='41132321';
table3[137]:='31132412';
table3[138]:='31132511';
table3[139]:='21133115';
table3[140]:='31133123';
table3[141]:='41133131';
table3[142]:='21133214';
table3[143]:='31133222';
table3[144]:='21133313';
table3[145]:='31133321';
table3[146]:='21133412';
table3[147]:='21133511';
table3[148]:='11134115';
table3[149]:='21134123';
table3[150]:='31134131';
table3[151]:='11134214';
table3[152]:='21134222';
table3[153]:='11134313';
table3[154]:='21134321';
table3[155]:='11134412';
table3[156]:='11134511';
table3[157]:='11135123';
table3[158]:='21135131';
table3[159]:='11135222';
table3[160]:='11135321';
table3[161]:='11136131';
table3[162]:='41141114';
table3[163]:='51141122';
table3[164]:='41141213';
table3[165]:='51141221';
table3[166]:='41141312';
table3[167]:='41141411';
table3[168]:='31142114';
table3[169]:='41142122';
table3[170]:='31142213';
table3[171]:='41142221';
table3[172]:='31142312';
table3[173]:='31142411';
table3[174]:='21143114';
table3[175]:='31143122';
table3[176]:='21143213';
table3[177]:='31143221';
table3[178]:='21143312';
table3[179]:='21143411';
table3[180]:='11144114';
table3[181]:='21144122';
table3[182]:='11144213';
table3[183]:='21144221';
table3[184]:='11144312';
table3[185]:='11144411';
table3[186]:='11145122';
table3[187]:='11145221';
table3[188]:='41151113';
table3[189]:='51151121';
table3[190]:='41151212';
table3[191]:='41151311';
table3[192]:='31152113';
table3[193]:='41152121';
table3[194]:='31152212';
table3[195]:='31152311';
table3[196]:='21153113';
table3[197]:='31153121';
table3[198]:='21153212';
table3[199]:='21153311';