unit1.~pas

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

table0[123]:='11143331';
table0[124]:='11151116';
table0[125]:='21151124';
table0[126]:='31151132';
table0[127]:='11151215';
table0[128]:='21151223';
table0[129]:='31151231';
table0[130]:='11151314';
table0[131]:='21151322';
table0[132]:='11151413';
table0[133]:='21151421';
table0[134]:='11151512';
table0[135]:='11152124';
table0[136]:='11152223';
table0[137]:='11152322';
table0[138]:='11161115';
table0[139]:='31161131';
table0[140]:='21161222';
table0[141]:='21161321';
table0[142]:='11161511';
table0[143]:='32111135';
table0[144]:='42111143';
table0[145]:='52111151';
table0[146]:='22111226';
table0[147]:='32111234';
table0[148]:='42111242';
table0[149]:='22111325';
table0[150]:='32111333';
table0[151]:='42111341';
table0[152]:='12111416';
table0[153]:='22111424';
table0[154]:='12111515';
table0[155]:='22112135';
table0[156]:='32112143';
table0[157]:='42112151';
table0[158]:='12112226';
table0[159]:='22112234';
table0[160]:='32112242';
table0[161]:='12112325';
table0[162]:='22112333';
table0[163]:='12112424';
table0[164]:='12112523';
table0[165]:='12113135';
table0[166]:='22113143';
table0[167]:='32113151';
table0[168]:='12113234';
table0[169]:='22113242';
table0[170]:='12113333';
table0[171]:='12113432';
table0[172]:='12114143';
table0[173]:='22114151';
table0[174]:='12114242';
table0[175]:='12115151';
table0[176]:='31211126';
table0[177]:='41211134';
table0[178]:='51211142';
table0[179]:='31211225';
table0[180]:='41211233';
table0[181]:='51211241';
table0[182]:='21211316';
table0[183]:='31211324';
table0[184]:='41211332';
table0[185]:='21211415';
table0[186]:='31211423';
table0[187]:='41211431';
table0[188]:='21211514';
table0[189]:='31211522';
table0[190]:='22121126';
table0[191]:='32121134';
table0[192]:='42121142';
table0[193]:='21212126';
table0[194]:='22121225';
table0[195]:='32121233';
table0[196]:='42121241';
table0[197]:='21212225';
table0[198]:='31212233';
table0[199]:='41212241';
table0[200]:='11212316';
table0[201]:='12121415';
table0[202]:='22121423';
table0[203]:='32121431';
table0[204]:='11212415';
table0[205]:='21212423';
table0[206]:='11212514';
table0[207]:='12122126';
table0[208]:='22122134';
table0[209]:='32122142';
table0[210]:='11213126';
table0[211]:='12122225';
table0[212]:='22122233';
table0[213]:='32122241';
table0[214]:='11213225';
table0[215]:='21213233';
table0[216]:='31213241';
table0[217]:='11213324';
table0[218]:='12122423';
table0[219]:='11213423';
table0[220]:='12123134';
table0[221]:='22123142';
table0[222]:='11214134';
table0[223]:='12123233';
table0[224]:='22123241';
table0[225]:='11214233';
table0[226]:='21214241';
table0[227]:='11214332';
table0[228]:='12124142';
table0[229]:='11215142';
table0[230]:='12124241';
table0[231]:='11215241';
table0[232]:='31221125';
table0[233]:='41221133';
table0[234]:='51221141';
table0[235]:='21221216';
table0[236]:='31221224';
table0[237]:='41221232';
table0[238]:='21221315';
table0[239]:='31221323';
table0[240]:='41221331';
table0[241]:='21221414';
table0[242]:='31221422';
table0[243]:='21221513';
table0[244]:='21221612';
table0[245]:='22131125';
table0[246]:='32131133';
table0[247]:='42131141';
table0[248]:='21222125';
table0[249]:='22131224';
table0[250]:='32131232';
table0[251]:='11222216';
table0[252]:='12131315';
table0[253]:='31222232';
table0[254]:='32131331';
table0[255]:='11222315';
table0[256]:='12131414';
table0[257]:='22131422';
table0[258]:='11222414';
table0[259]:='21222422';
table0[260]:='22131521';
table0[261]:='12131612';
table0[262]:='12132125';
table0[263]:='22132133';
table0[264]:='32132141';
table0[265]:='11223125';
table0[266]:='12132224';
table0[267]:='22132232';
table0[268]:='11223224';
table0[269]:='21223232';
table0[270]:='22132331';
table0[271]:='11223323';
table0[272]:='12132422';
table0[273]:='12132521';
table0[274]:='12133133';
table0[275]:='22133141';
table0[276]:='11224133';
table0[277]:='12133232';
table0[278]:='11224232';
table0[279]:='12133331';
table0[280]:='11224331';
table0[281]:='11225141';
table0[282]:='21231116';
table0[283]:='31231124';
table0[284]:='41231132';
table0[285]:='21231215';
table0[286]:='31231223';
table0[287]:='41231231';
table0[288]:='21231314';
table0[289]:='31231322';
table0[290]:='21231413';
table0[291]:='31231421';
table0[292]:='21231512';
table0[293]:='21231611';
table0[294]:='12141116';
table0[295]:='22141124';
table0[296]:='32141132';
table0[297]:='11232116';
table0[298]:='12141215';
table0[299]:='22141223';
table0[300]:='32141231';
table0[301]:='11232215';
table0[302]:='21232223';
table0[303]:='31232231';
table0[304]:='11232314';
table0[305]:='12141413';
table0[306]:='22141421';
table0[307]:='11232413';
table0[308]:='21232421';
table0[309]:='11232512';
table0[310]:='12142124';
table0[311]:='22142132';
table0[312]:='11233124';
table0[313]:='12142223';
table0[314]:='22142231';
table0[315]:='11233223';
table0[316]:='21233231';
table0[317]:='11233322';
table0[318]:='12142421';
table0[319]:='11233421';
table0[320]:='11234132';
table0[321]:='11234231';
table0[322]:='21241115';
table0[323]:='31241123';
table0[324]:='41241131';
table0[325]:='21241214';
table0[326]:='31241222';
table0[327]:='21241313';
table0[328]:='31241321';
table0[329]:='21241412';
table0[330]:='21241511';
table0[331]:='12151115';
table0[332]:='22151123';
table0[333]:='32151131';
table0[334]:='11242115';
table0[335]:='12151214';
table0[336]:='22151222';
table0[337]:='11242214';
table0[338]:='21242222';
table0[339]:='22151321';
table0[340]:='11242313';
table0[341]:='12151412';
table0[342]:='11242412';
table0[343]:='12151511';
table0[344]:='12152123';
table0[345]:='11243123';
table0[346]:='11243222';
table0[347]:='11243321';
table0[348]:='31251122';
table0[349]:='31251221';
table0[350]:='21251411';
table0[351]:='22161122';
table0[352]:='12161213';
table0[353]:='11252213';
table0[354]:='11252312';
table0[355]:='11252411';
table0[356]:='23111126';
table0[357]:='33111134';
table0[358]:='43111142';
table0[359]:='23111225';
table0[360]:='33111233';
table0[361]:='13111316';
table0[362]:='23111324';
table0[363]:='33111332';
table0[364]:='13111415';
table0[365]:='23111423';
table0[366]:='13111514';
table0[367]:='13111613';
table0[368]:='13112126';
table0[369]:='23112134';
table0[370]:='33112142';
table0[371]:='13112225';
table0[372]:='23112233';
table0[373]:='33112241';
table0[374]:='13112324';
table0[375]:='23112332';
table0[376]:='13112423';
table0[377]:='13112522';
table0[378]:='13113134';
table0[379]:='23113142';
table0[380]:='13113233';
table0[381]:='23113241';
table0[382]:='13113332';
table0[383]:='13114142';
table0[384]:='13114241';
table0[385]:='32211125';
table0[386]:='42211133';
table0[387]:='52211141';
table0[388]:='22211216';
table0[389]:='32211224';
table0[390]:='42211232';
table0[391]:='22211315';
table0[392]:='32211323';
table0[393]:='42211331';
table0[394]:='22211414';
table0[395]:='32211422';
table0[396]:='22211513';
table0[397]:='32211521';
table0[398]:='23121125';
table0[399]:='33121133';
table0[400]:='43121141';
table0[401]:='22212125';
table0[402]:='23121224';
table0[403]:='33121232';
table0[404]:='12212216';
table0[405]:='13121315';
table0[406]:='32212232';
table0[407]:='33121331';
table0[408]:='12212315';
table0[409]:='22212323';
table0[410]:='23121422';
table0[411]:='12212414';
table0[412]:='13121513';
table0[413]:='12212513';
table0[414]:='13122125';
table0[415]:='23122133';
table0[416]:='33122141';
table0[417]:='12213125';
table0[418]:='13122224';
table0[419]:='32213141';
table0[420]:='12213224';
table0[421]:='22213232';
table0[422]:='23122331';
table0[423]:='12213323';
table0[424]:='13122422';
table0[425]:='12213422';
table0[426]:='13123133';
table0[427]:='23123141';
table0[428]:='12214133';
table0[429]:='13123232';
table0[430]:='12214232';
table0[431]:='13123331';
table0[432]:='13124141';
table0[433]:='12215141';
table0[434]:='31311116';
table0[435]:='41311124';
table0[436]:='51311132';
table0[437]:='31311215';
table0[438]:='41311223';
table0[439]:='51311231';
table0[440]:='31311314';
table0[441]:='41311322';
table0[442]:='31311413';
table0[443]:='41311421';
table0[444]:='31311512';
table0[445]:='22221116';
table0[446]:='32221124';
table0[447]:='42221132';
table0[448]:='21312116';
table0[449]:='22221215';
table0[450]:='41312132';
table0[451]:='42221231';
table0[452]:='21312215';
table0[453]:='31312223';
table0[454]:='41312231';
table0[455]:='21312314';
table0[456]:='22221413';
table0[457]:='32221421';
table0[458]:='21312413';
table0[459]:='31312421';
table0[460]:='22221611';
table0[461]:='13131116';
table0[462]:='23131124';
table0[463]:='33131132';
table0[464]:='12222116';
table0[465]:='13131215';
table0[466]:='23131223';
table0[467]:='33131231';
table0[468]:='11313116';
table0[469]:='12222215';
table0[470]:='22222223';
table0[471]:='32222231';
table0[472]:='11313215';
table0[473]:='21313223';
table0[474]:='31313231';
table0[475]:='23131421';
table0[476]:='11313314';
table0[477]:='12222413';
table0[478]:='22222421';
table0[479]:='11313413';
table0[480]:='13131611';
table0[481]:='13132124';
table0[482]:='23132132';
table0[483]:='12223124';
table0[484]:='13132223';
table0[485]:='23132231';
table0[486]:='11314124';
table0[487]:='12223223';
table0[488]:='22223231';
table0[489]:='11314223';
table0[490]:='21314231';
table0[491]:='13132421';
table0[492]:='12223421';
table0[493]:='13133132';
table0[494]:='12224132';
table0[495]:='13133231';
table0[496]:='11315132';
table0[497]:='12224231';
table0[498]:='31321115';
table0[499]:='41321123';
table0[500]:='51321131';
table0[501]:='31321214';
table0[502]:='41321222';
table0[503]:='31321313';
table0[504]:='41321321';
table0[505]:='31321412';
table0[506]:='31321511';
table0[507]:='22231115';
table0[508]:='32231123';
table0[509]:='42231131';
table0[510]:='21322115';
table0[511]:='22231214';
table0[512]:='41322131';
table0[513]:='21322214';
table0[514]:='31322222';
table0[515]:='32231321';
table0[516]:='21322313';
table0[517]:='22231412';
table0[518]:='21322412';
table0[519]:='22231511';
table0[520]:='21322511';
table0[521]:='13141115';
table0[522]:='23141123';
table0[523]:='33141131';
table0[524]:='12232115';
table0[525]:='13141214';
table0[526]:='23141222';
table0[527]:='11323115';
table0[528]:='12232214';
table0[529]:='22232222';
table0[530]:='23141321';
table0[531]:='11323214';
table0[532]:='21323222';
table0[533]:='13141412';
table0[534]:='11323313';
table0[535]:='12232412';
table0[536]:='13141511';
table0[537]:='12232511';
table0[538]:='13142123';
table0[539]:='23142131';
table0[540]:='12233123';
table0[541]:='13142222';
table0[542]:='11324123';
table0[543]:='12233222';
table0[544]:='13142321';
table0[545]:='11324222';
table0[546]:='12233321';
table0[547]:='13143131';
table0[548]:='11325131';
table0[549]:='31331114';
table0[550]:='41331122';
table0[551]:='31331213';
table0[552]:='41331221';
table0[553]:='31331312';
table0[554]:='31331411';
table0[555]:='22241114';
table0[556]:='32241122';
table0[557]:='21332114';
table0[558]:='22241213';
table0[559]:='32241221';
table0[560]:='21332213';
table0[561]:='31332221';
table0[562]:='21332312';
table0[563]:='22241411';
table0[564]:='21332411';
table0[565]:='13151114';
table0[566]:='23151122';
table0[567]:='12242114';
table0[568]:='13151213';
table0[569]:='23151221';
table0[570]:='11333114';
table0[571]:='12242213';
table0[572]:='22242221';
table0[573]:='11333213';
table0[574]:='21333221';
table0[575]:='13151411';
table0[576]:='11333312';
table0[577]:='12242411';
table0[578]:='11333411';
table0[579]:='12243122';
table0[580]:='11334122';
table0[581]:='11334221';
table0[582]:='41341121';
table0[583]:='31341311';
table0[584]:='32251121';
table0[585]:='22251212';
table0[586]:='22251311';
table0[587]:='13161113';
table0[588]:='12252113';
table0[589]:='11343113';
table0[590]:='13161311';
table0[591]:='12252311';
table0[592]:='24111125';
table0[593]:='14111216';
table0[594]:='24111224';
table0[595]:='14111315';
table0[596]:='24111323';
table0[597]:='34111331';
table0[598]:='14111414';
table0[599]:='24111422';
table0[600]:='14111513';
table0[601]:='24111521';
table0[602]:='14112125';
table0[603]:='24112133';
table0[604]:='34112141';
table0[605]:='14112224';
table0[606]:='24112232';
table0[607]:='14112323';
table0[608]:='24112331';
table0[609]:='14112422';
table0[610]:='14112521';
table0[611]:='14113133';
table0[612]:='24113141';
table0[613]:='14113232';
table0[614]:='14113331';
table0[615]:='14114141';
table0[616]:='23211116';
table0[617]:='33211124';
table0[618]:='43211132';
table0[619]:='23211215';
table0[620]:='33211223';
table0[621]:='23211314';
table0[622]:='33211322';
table0[623]:='23211413';
table0[624]:='33211421';
table0[625]:='23211512';