unit1.~pas

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

table3[703]:='34122113';
table3[704]:='44122121';
table3[705]:='33213113';
table3[706]:='34122212';
table3[707]:='33213212';
table3[708]:='34122311';
table3[709]:='33213311';
table3[710]:='24123113';
table3[711]:='34123121';
table3[712]:='23214113';
table3[713]:='24123212';
table3[714]:='23214212';
table3[715]:='24123311';
table3[716]:='23214311';
table3[717]:='14124113';
table3[718]:='24124121';
table3[719]:='13215113';
table3[720]:='14124212';
table3[721]:='13215212';
table3[722]:='14124311';
table3[723]:='13215311';
table3[724]:='14125121';
table3[725]:='13216121';
table3[726]:='62311112';
table3[727]:='12311153';
table3[728]:='22311161';
table3[729]:='62311211';
table3[730]:='12311252';
table3[731]:='12311351';
table3[732]:='53221112';
table3[733]:='13221161';
table3[734]:='52312112';
table3[735]:='53221211';
table3[736]:='12312161';
table3[737]:='52312211';
table3[738]:='44131112';
table3[739]:='43222112';
table3[740]:='44131211';
table3[741]:='42313112';
table3[742]:='43222211';
table3[743]:='42313211';
table3[744]:='34132112';
table3[745]:='33223112';
table3[746]:='34132211';
table3[747]:='32314112';
table3[748]:='33223211';
table3[749]:='32314211';
table3[750]:='24133112';
table3[751]:='23224112';
table3[752]:='24133211';
table3[753]:='22315112';
table3[754]:='23224211';
table3[755]:='22315211';
table3[756]:='14134112';
table3[757]:='13225112';
table3[758]:='14134211';
table3[759]:='12316112';
table3[760]:='13225211';
table3[761]:='12316211';
table3[762]:='11411144';
table3[763]:='21411152';
table3[764]:='11411243';
table3[765]:='21411251';
table3[766]:='11411342';
table3[767]:='11411441';
table3[768]:='62321111';
table3[769]:='12321152';
table3[770]:='61412111';
table3[771]:='11412152';
table3[772]:='12321251';
table3[773]:='11412251';
table3[774]:='53231111';
table3[775]:='52322111';
table3[776]:='51413111';
table3[777]:='44141111';
table3[778]:='43232111';
table3[779]:='42323111';
table3[780]:='41414111';
table3[781]:='34142111';
table3[782]:='33233111';
table3[783]:='32324111';
table3[784]:='31415111';
table3[785]:='24143111';
table3[786]:='23234111';
table3[787]:='22325111';
table3[788]:='21416111';
table3[789]:='14144111';
table3[790]:='13235111';
table3[791]:='12326111';
table3[792]:='11421143';
table3[793]:='21421151';
table3[794]:='11421242';
table3[795]:='11421341';
table3[796]:='12331151';
table3[797]:='11422151';
table3[798]:='11431142';
table3[799]:='11431241';
table3[800]:='11441141';
table3[801]:='45111113';
table3[802]:='45111212';
table3[803]:='45111311';
table3[804]:='35112113';
table3[805]:='45112121';
table3[806]:='35112212';
table3[807]:='35112311';
table3[808]:='25113113';
table3[809]:='35113121';
table3[810]:='25113212';
table3[811]:='25113311';
table3[812]:='15114113';
table3[813]:='25114121';
table3[814]:='15114212';
table3[815]:='15114311';
table3[816]:='15115121';
table3[817]:='54211112';
table3[818]:='14211161';
table3[819]:='54211211';
table3[820]:='45121112';
table3[821]:='44212112';
table3[822]:='45121211';
table3[823]:='44212211';
table3[824]:='35122112';
table3[825]:='34213112';
table3[826]:='35122211';
table3[827]:='34213211';
table3[828]:='25123112';
table3[829]:='24214112';
table3[830]:='25123211';
table3[831]:='24214211';
table3[832]:='15124112';
table3[833]:='14215112';
table3[834]:='15124211';
table3[835]:='14215211';
table3[836]:='63311111';
table3[837]:='13311152';
table3[838]:='13311251';
table3[839]:='54221111';
table3[840]:='53312111';
table3[841]:='45131111';
table3[842]:='44222111';
table3[843]:='43313111';
table3[844]:='35132111';
table3[845]:='34223111';
table3[846]:='33314111';
table3[847]:='25133111';
table3[848]:='24224111';
table3[849]:='23315111';
table3[850]:='15134111';
table3[851]:='14225111';
table3[852]:='13316111';
table3[853]:='12411143';
table3[854]:='22411151';
table3[855]:='12411242';
table3[856]:='12411341';
table3[857]:='13321151';
table3[858]:='12412151';
table3[859]:='11511134';
table3[860]:='21511142';
table3[861]:='11511233';
table3[862]:='21511241';
table3[863]:='11511332';
table3[864]:='11511431';
table3[865]:='12421142';
table3[866]:='11512142';
table3[867]:='12421241';
table3[868]:='11512241';
table3[869]:='11521133';
table3[870]:='21521141';
table3[871]:='11521232';
table3[872]:='11521331';
table3[873]:='12431141';
table3[874]:='11522141';
table3[875]:='11531132';
table3[876]:='11531231';
table3[877]:='11541131';
table3[878]:='36112112';
table3[879]:='36112211';
table3[880]:='26113112';
table3[881]:='26113211';
table3[882]:='16114112';
table3[883]:='16114211';
table3[884]:='45212111';
table3[885]:='36122111';
table3[886]:='35213111';
table3[887]:='26123111';
table3[888]:='25214111';
table3[889]:='16124111';
table3[890]:='15215111';
table3[891]:='14311151';
table3[892]:='13411142';
table3[893]:='13411241';
table3[894]:='12511133';
table3[895]:='22511141';
table3[896]:='12511232';
table3[897]:='12511331';
table3[898]:='13421141';
table3[899]:='12512141';
table3[900]:='11611124';
table3[901]:='21611132';
table3[902]:='11611223';
table3[903]:='21611231';
table3[904]:='11611322';
table3[905]:='11611421';
table3[906]:='12521132';
table3[907]:='11612132';
table3[908]:='12521231';
table3[909]:='11612231';
table3[910]:='11621123';
table3[911]:='21621131';
table3[912]:='11621222';
table3[913]:='11621321';
table3[914]:='12531131';
table3[915]:='11622131';
table3[916]:='11631122';
table3[917]:='11631221';
table3[918]:='14411141';
table3[919]:='13511132';
table3[920]:='13511231';
table3[921]:='12611123';
table3[922]:='22611131';
table3[923]:='12611222';
table3[924]:='12611321';
table3[925]:='13521131';
table3[926]:='12612131';
table3[927]:='12621122';
table3[928]:='12621221';
table6[0]:='21111155';
table6[1]:='31111163';
table6[2]:='11111246';
table6[3]:='21111254';
table6[4]:='31111262';
table6[5]:='11111345';
table6[6]:='21111353';
table6[7]:='31111361';
table6[8]:='11111444';
table6[9]:='21111452';
table6[10]:='11111543';
table6[11]:='61112114';
table6[12]:='11112155';
table6[13]:='21112163';
table6[14]:='61112213';
table6[15]:='11112254';
table6[16]:='21112262';
table6[17]:='61112312';
table6[18]:='11112353';
table6[19]:='21112361';
table6[20]:='61112411';
table6[21]:='11112452';
table6[22]:='51113114';
table6[23]:='61113122';
table6[24]:='11113163';
table6[25]:='51113213';
table6[26]:='61113221';
table6[27]:='11113262';
table6[28]:='51113312';
table6[29]:='11113361';
table6[30]:='51113411';
table6[31]:='41114114';
table6[32]:='51114122';
table6[33]:='41114213';
table6[34]:='51114221';
table6[35]:='41114312';
table6[36]:='41114411';
table6[37]:='31115114';
table6[38]:='41115122';
table6[39]:='31115213';
table6[40]:='41115221';
table6[41]:='31115312';
table6[42]:='31115411';
table6[43]:='21116114';
table6[44]:='31116122';
table6[45]:='21116213';
table6[46]:='31116221';
table6[47]:='21116312';
table6[48]:='11121146';
table6[49]:='21121154';
table6[50]:='31121162';
table6[51]:='11121245';
table6[52]:='21121253';
table6[53]:='31121261';
table6[54]:='11121344';
table6[55]:='21121352';
table6[56]:='11121443';
table6[57]:='21121451';
table6[58]:='11121542';
table6[59]:='61122113';
table6[60]:='11122352';
table6[61]:='21122162';
table6[62]:='61122212';
table6[63]:='11122253';
table6[64]:='21122261';
table6[65]:='61122311';
table6[66]:='11122352';
table6[67]:='11122451';
table6[68]:='51123113';
table6[69]:='61123121';
table6[70]:='11123162';
table6[71]:='51123212';
table6[72]:='11123261';
table6[73]:='51123311';
table6[74]:='41124113';
table6[75]:='51124121';
table6[76]:='41124212';
table6[77]:='41124311';
table6[78]:='31125113';
table6[79]:='41125121';
table6[80]:='31125212';
table6[81]:='31125311';
table6[82]:='21126113';
table6[83]:='31126121';
table6[84]:='21126212';
table6[85]:='21126311';
table6[86]:='11131145';
table6[87]:='21131153';
table6[88]:='31131161';
table6[89]:='11131244';
table6[90]:='21131252';
table6[91]:='11131343';
table6[92]:='21131351';
table6[93]:='11131442';
table6[94]:='11131541';
table6[95]:='61132112';
table6[96]:='11132153';
table6[97]:='21132161';
table6[98]:='61132211';
table6[99]:='11132252';
table6[100]:='11132351';
table6[101]:='51133112';
table6[102]:='11133161';
table6[103]:='51133211';
table6[104]:='41134112';
table6[105]:='41134211';
table6[106]:='31135112';
table6[107]:='31135211';
table6[108]:='21136112';
table6[109]:='21136211';
table6[110]:='11141144';
table6[111]:='21141152';
table6[112]:='11141243';
table6[113]:='21141251';
table6[114]:='11141342';
table6[115]:='11141441';
table6[116]:='61142111';
table6[117]:='11142152';
table6[118]:='11142251';
table6[119]:='51143111';
table6[120]:='41144111';
table6[121]:='31145111';
table6[122]:='11151143';
table6[123]:='21151151';
table6[124]:='11151242';
table6[125]:='11151341';
table6[126]:='11152151';
table6[127]:='11161142';
table6[128]:='11161241';
table6[129]:='12111146';
table6[130]:='22111154';
table6[131]:='32111162';
table6[132]:='12111245';
table6[133]:='22111253';
table6[134]:='32111261';
table6[135]:='12111344';
table6[136]:='22111352';
table6[137]:='12111443';
table6[138]:='22111451';
table6[139]:='12111542';
table6[140]:='62112113';
table6[141]:='12112154';
table6[142]:='22112162';
table6[143]:='62112212';
table6[144]:='12112253';
table6[145]:='22112261';
table6[146]:='62112311';
table6[147]:='12112352';
table6[148]:='12112451';
table6[149]:='52113113';
table6[150]:='62113121';
table6[151]:='12113162';
table6[152]:='52113212';
table6[153]:='12113261';
table6[154]:='52113311';
table6[155]:='42114113';
table6[156]:='52114121';
table6[157]:='42114212';
table6[158]:='42114311';
table6[159]:='32115113';
table6[160]:='42115121';
table6[161]:='32115212';
table6[162]:='32115311';
table6[163]:='22116113';
table6[164]:='32116121';
table6[165]:='22116212';
table6[166]:='22116311';
table6[167]:='21211145';
table6[168]:='31211153';
table6[169]:='41211161';
table6[170]:='11211236';
table6[171]:='21211244';
table6[172]:='31211252';
table6[173]:='11211335';
table6[174]:='21211343';
table6[175]:='31211351';
table6[176]:='11211434';
table6[177]:='21211442';
table6[178]:='11211533';
table6[179]:='21211541';
table6[180]:='11211632';
table6[181]:='12121145';
table6[182]:='22121153';
table6[183]:='32121161';
table6[184]:='11212145';
table6[185]:='12121244';
table6[186]:='22121252';
table6[187]:='11212244';
table6[188]:='21212252';
table6[189]:='22121351';
table6[190]:='11212343';
table6[191]:='12121442';
table6[192]:='11212442';
table6[193]:='12121541';
table6[194]:='11212541';
table6[195]:='62122112';
table6[196]:='12122153';
table6[197]:='22122161';
table6[198]:='61213112';
table6[199]:='62122211';
table6[200]:='11213153';
table6[201]:='12122252';
table6[202]:='61213211';
table6[203]:='11213252';
table6[204]:='12122351';
table6[205]:='11213351';
table6[206]:='52123112';
table6[207]:='12123161';
table6[208]:='51214112';
table6[209]:='52123211';
table6[210]:='11214161';
table6[211]:='51214211';
table6[212]:='42124112';
table6[213]:='41215112';
table6[214]:='42124211';
table6[215]:='41215211';
table6[216]:='32125112';
table6[217]:='31216112';
table6[218]:='32125211';
table6[219]:='31216211';
table6[220]:='22126112';
table6[221]:='22126211';
table6[222]:='11221136';
table6[223]:='21221144';
table6[224]:='31221152';
table6[225]:='11221235';
table6[226]:='21221243';
table6[227]:='31221251';
table6[228]:='11221334';
table6[229]:='21221342';
table6[230]:='11221433';
table6[231]:='21221441';
table6[232]:='11221532';
table6[233]:='11221631';
table6[234]:='12131144';
table6[235]:='22131152';
table6[236]:='11222144';
table6[237]:='12131243';
table6[238]:='22131251';
table6[239]:='11222243';
table6[240]:='21222251';
table6[241]:='11222342';
table6[242]:='12131441';
table6[243]:='11222441';
table6[244]:='62132111';
table6[245]:='12132152';
table6[246]:='61223111';
table6[247]:='11223152';
table6[248]:='12132251';
table6[249]:='11223251';
table6[250]:='52133111';
table6[251]:='51224111';
table6[252]:='42134111';
table6[253]:='41225111';
table6[254]:='32135111';
table6[255]:='31226111';
table6[256]:='22136111';
table6[257]:='11231135';
table6[258]:='21231143';
table6[259]:='31231151';
table6[260]:='11231234';
table6[261]:='21231242';
table6[262]:='11231333';
table6[263]:='21231341';
table6[264]:='11231432';
table6[265]:='11231531';
table6[266]:='12141143';
table6[267]:='22141151';
table6[268]:='11232143';
table6[269]:='12141242';
table6[270]:='11232242';
table6[271]:='12141341';
table6[272]:='11232341';
table6[273]:='12142151';
table6[274]:='11