unit1.pas

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

table3[200]:='11154113';
table3[201]:='21154121';
table3[202]:='11154212';
table3[203]:='11154311';
table3[204]:='41161112';
table3[205]:='41161211';
table3[206]:='31162112';
table3[207]:='31162211';
table3[208]:='21163112';
table3[209]:='21163211';
table3[210]:='42111116';
table3[211]:='52111124';
table3[212]:='62111132';
table3[213]:='42111215';
table3[214]:='52111223';
table3[215]:='62111231';
table3[216]:='42111314';
table3[217]:='52111322';
table3[218]:='42111413';
table3[219]:='52111421';
table3[220]:='42111512';
table3[221]:='42111611';
table3[222]:='32112116';
table3[223]:='42112124';
table3[224]:='52112132';
table3[225]:='32112215';
table3[226]:='42112223';
table3[227]:='52112231';
table3[228]:='32112314';
table3[229]:='42112322';
table3[230]:='32112413';
table3[231]:='42112421';
table3[232]:='32112512';
table3[233]:='32112611';
table3[234]:='22113116';
table3[235]:='32113124';
table3[236]:='42113132';
table3[237]:='22113215';
table3[238]:='32113223';
table3[239]:='42113231';
table3[240]:='22113314';
table3[241]:='32113322';
table3[242]:='22113413';
table3[243]:='32113421';
table3[244]:='22113512';
table3[245]:='22113611';
table3[246]:='12114116';
table3[247]:='22114124';
table3[248]:='32114132';
table3[249]:='12114215';
table3[250]:='22114223';
table3[251]:='32114231';
table3[252]:='12114314';
table3[253]:='22114322';
table3[254]:='12114413';
table3[255]:='22114421';
table3[256]:='12114512';
table3[257]:='12115124';
table3[258]:='22115132';
table3[259]:='12115223';
table3[260]:='22115231';
table3[261]:='12115322';
table3[262]:='12115421';
table3[263]:='12116132';
table3[264]:='12116231';
table3[265]:='51211115';
table3[266]:='61211123';
table3[267]:='11211164';
table3[268]:='51211214';
table3[269]:='61211222';
table3[270]:='11211263';
table3[271]:='51211313';
table3[272]:='61211321';
table3[273]:='11211362';
table3[274]:='51211412';
table3[275]:='51211511';
table3[276]:='42121115';
table3[277]:='52121123';
table3[278]:='62121131';
table3[279]:='41212115';
table3[280]:='42121214';
table3[281]:='61212131';
table3[282]:='41212214';
table3[283]:='51212222';
table3[284]:='52121321';
table3[285]:='41212313';
table3[286]:='42121412';
table3[287]:='41212412';
table3[288]:='42121511';
table3[289]:='41212511';
table3[290]:='32122115';
table3[291]:='42122123';
table3[292]:='52122131';
table3[293]:='31213115';
table3[294]:='32122214';
table3[295]:='42122222';
table3[296]:='31213214';
table3[297]:='41213222';
table3[298]:='42122321';
table3[299]:='31213313';
table3[300]:='32122412';
table3[301]:='31213412';
table3[302]:='32122511';
table3[303]:='31213511';
table3[304]:='22123115';
table3[305]:='32123123';
table3[306]:='42123131';
table3[307]:='21214115';
table3[308]:='22123214';
table3[309]:='32123222';
table3[310]:='21214214';
table3[311]:='31214222';
table3[312]:='32123321';
table3[313]:='21214313';
table3[314]:='22123412';
table3[315]:='21214412';
table3[316]:='22123511';
table3[317]:='21214511';
table3[318]:='12124115';
table3[319]:='22124123';
table3[320]:='32124131';
table3[321]:='11215115';
table3[322]:='12124214';
table3[323]:='22124222';
table3[324]:='11215214';
table3[325]:='21215222';
table3[326]:='22124321';
table3[327]:='11215313';
table3[328]:='12124412';
table3[329]:='11215412';
table3[330]:='12124511';
table3[331]:='12125123';
table3[332]:='22125131';
table3[333]:='11216123';
table3[334]:='12125222';
table3[335]:='11216222';
table3[336]:='12125321';
table3[337]:='11216321';
table3[338]:='12126131';
table3[339]:='51221114';
table3[340]:='61221122';
table3[341]:='11221163';
table3[342]:='51221213';
table3[343]:='61221221';
table3[344]:='11221262';
table3[345]:='51221312';
table3[346]:='11221361';
table3[347]:='51221411';
table3[348]:='42131114';
table3[349]:='52131122';
table3[350]:='41222114';
table3[351]:='42131213';
table3[352]:='52131221';
table3[353]:='41222213';
table3[354]:='51222221';
table3[355]:='41222312';
table3[356]:='42131411';
table3[357]:='41222411';
table3[358]:='32132114';
table3[359]:='42132122';
table3[360]:='31223114';
table3[361]:='32132213';
table3[362]:='42132221';
table3[363]:='31223213';
table3[364]:='41223221';
table3[365]:='31223312';
table3[366]:='32132411';
table3[367]:='31223411';
table3[368]:='22133114';
table3[369]:='32133122';
table3[370]:='21224114';
table3[371]:='22133213';
table3[372]:='32133221';
table3[373]:='21224213';
table3[374]:='31224221';
table3[375]:='21224312';
table3[376]:='22133411';
table3[377]:='21224411';
table3[378]:='12134114';
table3[379]:='22134122';
table3[380]:='11225114';
table3[381]:='12134213';
table3[382]:='22134221';
table3[383]:='11225213';
table3[384]:='21225221';
table3[385]:='11225312';
table3[386]:='12134411';
table3[387]:='11225411';
table3[388]:='12135122';
table3[389]:='11226122';
table3[390]:='12135221';
table3[391]:='11226221';
table3[392]:='51231113';
table3[393]:='61231121';
table3[394]:='11231162';
table3[395]:='51231212';
table3[396]:='11231261';
table3[397]:='51231311';
table3[398]:='42141113';
table3[399]:='52141121';
table3[400]:='41232113';
table3[401]:='51232121';
table3[402]:='41232212';
table3[403]:='42141311';
table3[404]:='41232311';
table3[405]:='32142113';
table3[406]:='42142121';
table3[407]:='31233113';
table3[408]:='32142212';
table3[409]:='31233212';
table3[410]:='32142311';
table3[411]:='31233311';
table3[412]:='22143113';
table3[413]:='32143121';
table3[414]:='21234113';
table3[415]:='31234121';
table3[416]:='21234212';
table3[417]:='22143311';
table3[418]:='21234311';
table3[419]:='12144113';
table3[420]:='22144121';
table3[421]:='11235113';
table3[422]:='12144212';
table3[423]:='11235212';
table3[424]:='12144311';
table3[425]:='11235311';
table3[426]:='12145121';
table3[427]:='11236121';
table3[428]:='51241112';
table3[429]:='11241161';
table3[430]:='51241211';
table3[431]:='42151112';
table3[432]:='41242112';
table3[433]:='42151211';
table3[434]:='41242211';
table3[435]:='32152112';
table3[436]:='31243112';
table3[437]:='32152211';
table3[438]:='31243211';
table3[439]:='22153112';
table3[440]:='21244112';
table3[441]:='22153211';
table3[442]:='21244211';
table3[443]:='12154112';
table3[444]:='11245112';
table3[445]:='12154211';
table3[446]:='11245211';
table3[447]:='51251111';
table3[448]:='42161111';
table3[449]:='41252111';
table3[450]:='32162111';
table3[451]:='31253111';
table3[452]:='22163111';
table3[453]:='21254111';
table3[454]:='43111115';
table3[455]:='53111123';
table3[456]:='63111131';
table3[457]:='43111214';
table3[458]:='53111222';
table3[459]:='43111313';
table3[460]:='53111321';
table3[461]:='43111412';
table3[462]:='43111511';
table3[463]:='33112115';
table3[464]:='43112123';
table3[465]:='53112131';
table3[466]:='33112214';
table3[467]:='43112222';
table3[468]:='33112313';
table3[469]:='43112321';
table3[470]:='33112412';
table3[471]:='33112511';
table3[472]:='23113115';
table3[473]:='33113123';
table3[474]:='43113131';
table3[475]:='23113214';
table3[476]:='33113222';
table3[477]:='23113313';
table3[478]:='33113321';
table3[479]:='23113412';
table3[480]:='23113511';
table3[481]:='13114115';
table3[482]:='23114123';
table3[483]:='33114131';
table3[484]:='13114214';
table3[485]:='23114222';
table3[486]:='13114313';
table3[487]:='23114321';
table3[488]:='13114412';
table3[489]:='13114511';
table3[490]:='13115123';
table3[491]:='23115131';
table3[492]:='13115222';
table3[493]:='13115321';
table3[494]:='13116131';
table3[495]:='52211114';
table3[496]:='62211122';
table3[497]:='12211163';
table3[498]:='52211213';
table3[499]:='62211221';
table3[500]:='12211262';
table3[501]:='52211312';
table3[502]:='12211361';
table3[503]:='52211411';
table3[504]:='43121114';
table3[505]:='53121122';
table3[506]:='42212114';
table3[507]:='43121213';
table3[508]:='53121221';
table3[509]:='42212213';
table3[510]:='52212221';
table3[511]:='42212312';
table3[512]:='43121411';
table3[513]:='42212411';
table3[514]:='33122114';
table3[515]:='43122122';
table3[516]:='32213114';
table3[517]:='33122213';
table3[518]:='43122221';
table3[519]:='32213213';
table3[520]:='42213221';
table3[521]:='32213312';
table3[522]:='33122411';
table3[523]:='32213411';
table3[524]:='23123114';
table3[525]:='33123122';
table3[526]:='22214114';
table3[527]:='23123213';
table3[528]:='33123221';
table3[529]:='22214213';
table3[530]:='32214221';
table3[531]:='22214312';
table3[532]:='23123411';
table3[533]:='22214411';
table3[534]:='13124114';
table3[535]:='23124122';
table3[536]:='12215114';
table3[537]:='13124213';
table3[538]:='23124221';
table3[539]:='12215213';
table3[540]:='22215221';
table3[541]:='12215312';
table3[542]:='13124411';
table3[543]:='12215411';
table3[544]:='13125122';
table3[545]:='12216122';
table3[546]:='13125221';
table3[547]:='12216221';
table3[548]:='61311113';
table3[549]:='11311154';
table3[550]:='21311162';
table3[551]:='61311212';
table3[552]:='11311253';
table3[553]:='21311261';
table3[554]:='61311311';
table3[555]:='11311352';
table3[556]:='11311451';
table3[557]:='52221113';
table3[558]:='62221121';
table3[559]:='12221162';
table3[560]:='51312113';
table3[561]:='61312121';
table3[562]:='11312162';
table3[563]:='12221261';
table3[564]:='51312212';
table3[565]:='52221311';
table3[566]:='11312261';
table3[567]:='51312311';
table3[568]:='43131113';
table3[569]:='53131121';
table3[570]:='42222113';
table3[571]:='43131212';
table3[572]:='41313113';
table3[573]:='51313121';
table3[574]:='43131311';
table3[575]:='41313212';
table3[576]:='42222311';
table3[577]:='41313311';
table3[578]:='33132113';
table3[579]:='43132121';
table3[580]:='32223113';
table3[581]:='33132212';
table3[582]:='31314113';
table3[583]:='32223212';
table3[584]:='33132311';
table3[585]:='31314212';
table3[586]:='32223311';
table3[587]:='31314311';
table3[588]:='23133113';
table3[589]:='33133121';
table3[590]:='22224113';
table3[591]:='23133212';
table3[592]:='21315113';
table3[593]:='22224212';
table3[594]:='23133311';
table3[595]:='21315212';
table3[596]:='22224311';
table3[597]:='21315311';
table3[598]:='13134113';
table3[599]:='23134121';
table3[600]:='12225113';
table3[601]:='13134212';
table3[602]:='11316113';
table3[603]:='12225212';
table3[604]:='13134311';
table3[605]:='11316212';
table3[606]:='12225311';
table3[607]:='11316311';
table3[608]:='13135121';
table3[609]:='12226121';
table3[610]:='61321112';
table3[611]:='11321153';
table3[612]:='21321161';
table3[613]:='61321211';
table3[614]:='11321252';
table3[615]:='11321351';
table3[616]:='52231112';
table3[617]:='12231161';
table3[618]:='51322112';
table3[619]:='52231211';
table3[620]:='11322161';
table3[621]:='51322211';
table3[622]:='43141112';
table3[623]:='42232112';
table3[624]:='43141211';
table3[625]:='41323112';
table3[626]:='42232211';
table3[627]:='41323211';
table3[628]:='33142112';
table3[629]:='32233112';
table3[630]:='33142211';
table3[631]:='31324112';
table3[632]:='32233211';
table3[633]:='31324211';
table3[634]:='23143112';
table3[635]:='22234112';
table3[636]:='23143211';
table3[637]:='21325112';
table3[638]:='22234211';
table3[639]:='21325211';
table3[640]:='13144112';
table3[641]:='12235112';
table3[642]:='13144211';
table3[643]:='11326112';
table3[644]:='12235211';
table3[645]:='11326211';
table3[646]:='61331111';
table3[647]:='11331152';
table3[648]:='11331251';
table3[649]:='52241111';
table3[650]:='51332111';
table3[651]:='43151111';
table3[652]:='42242111';
table3[653]:='41333111';
table3[654]:='33152111';
table3[655]:='32243111';
table3[656]:='31334111';
table3[657]:='23153111';
table3[658]:='22244111';
table3[659]:='21335111';
table3[660]:='13154111';
table3[661]:='12245111';
table3[662]:='11336111';
table3[663]:='11341151';
table3[664]:='44111114';
table3[665]:='54111122';
table3[666]:='44111213';
table3[667]:='54111221';
table3[668]:='44111312';
table3[669]:='44111411';
table3[670]:='34112114';
table3[671]:='44112122';
table3[672]:='34112213';
table3[673]:='44112221';
table3[674]:='34112312';
table3[675]:='34112411';
table3[676]:='24113114';
table3[677]:='34113122';
table3[678]:='24113213';
table3[679]:='34113221';
table3[680]:='24113312';
table3[681]:='24113411';
table3[682]:='14114114';
table3[683]:='24114122';
table3[684]:='14114213';
table3[685]:='24114221';
table3[686]:='14114312';
table3[687]:='14114411';
table3[688]:='14115122';
table3[689]:='14115221';
table3[690]:='53211113';
table3[691]:='63211121';
table3[692]:='13211162';
table3[693]:='53211212';
table3[694]:='13211261';
table3[695]:='53211311';
table3[696]:='44121113';
table3[697]:='54121121';
table3[698]:='43212113';
table3[699]:='44121212';
table3[700]:='43212212';
table3[701]:='44121311';
table3[702]:='43212311';