unit1.dfm

《Delphi7编程100例》代码,书配资料

      81C51DF0F1696B7B4A383CB58B7353F9D470781A5B4F10EBA95ECB2F7906D08D
      3FB533E20E391FC61B678CF0E4EFC808C731AEB49A10B27C92DC70437FDBC597
      330C177610A7E0DB5F66A411DF323081BB1A71CD4729B63FAE8B67F5052E9FDC
      E69B77E8FB79A8111717FFC49C037F84AFAF64FD00DF8C3E85DF913F173DE593
      E3A13DA8DE6EC30F8FF1443BF20A4F2CC71F37C531D644DC304EEE12976F2E20
      36BF5032270DF5A51D8D93F029FB10BFE2636F33609B67F9A4D85FA6C7AD6ED0
      809FDB388976B05FF3C9FD1E1F85671D7A1FFF7107AF9EEED2AE66DBC1E99FEE
      6D8A330FA45DA00C85E79F06366CECCC669ED11C71EAC51F9FD4E58F3E91CE11
      57F83384C2E553C0C2DD0B9E6423EE670137F8C63F253E4FBC0957EDC43F81DE
      369EE2EAE97A61CE1B46DCE0DF03C345FB301D93F6E8DB669BB8F4553BE3F1BE
      E086A7E485CB7642ECBD1271F8E3972DF6FBC7A7E9D9C7643F8FD9AFF742EE4B
      D187FE13D628CBAFB5DA22E6FF7D72E9FCA9D74F9CE1475BFF04597F1B9630E7
      314BCDD5647919C7A5292C23653FD66A2F84C37488CB78F8F90F249A5CD34B14
      B9FC84A5172D2F71698265F3674B435A02B4653BF0C625ABF1128D64FDC7A64A
      59F2E372C1CB9ABC97C5652A7E5559E473C94C14CB041E97B86CD968AC735516
      787BD23994EB75B6253A955B2E1D4DEACC725F457B3B9DCB2558D5EF41B5ABE7
      EFE7E69729A11DA72F920C4B8ABCFC9CE5C7CB768D575CE6E425262F072B1F95
      C5E5403CCEBC38D296AA662934F0DA58C5F1913F1B27D97FE96BD4A77FF9A796
      39B82CC2A510FC384EC672F9E1672E1B72898F38242DAD69598ACB32C4C18FE3
      6494659AE7153FCBF14B394196E35594E57215F924CFB8C8CB6A99C8CBEEA5DC
      1725FB2ADADBE99C6F93B9F6BC9776F5A2FCCCFEC6FEC5F2A9BF88C7968E3C5B
      96C518815F0FE324FBEFBCE32465E71D273537334566F8A7F1D944B0C4C1653A
      232CABEDE283AF15C2D20A9757B484E1E793B614899703F285A03D104323BC38
      D03E2C8CE540EE7BE0120A7F7E3E69CB2A5C42C11816C99657CAE5285BCEC1B2
      4BFC80329634642F65B59CC6653C23E473298B4B4B23ECB5E112505CD6421915
      592C61C665432EE369E98C4B5D9023119F3F3F9FB47281C5F2E27223E3260F7E
      2E5B992CC2AC6CA9EB7CB2CDE5CE6CEF84CE07602F973C2BCBA4555FD5EA8C36
      C325E728AB3A6AADB393E5B2F02C75643AD7D76FADCE6C937BD2B9B97E9BDB55
      B36CADCEC1CFE3F6E87CC5B945435FA04FB9DC6FCBA0ECC79EB85C4AE2722A7D
      CFBEF002E793EAFBA6C80CFFFC38A9E539A569F9C51E16C7328D963EB48461F9
      E1DA99699417068F3D099318FCE9C57F8C33CD96D624C3E5469064A21E4196CB
      19CC33592DD339D928478CB0BCA4722BB22C57720C7D996D64C113E519F7F24D
      E5763A8FEBF665F5F35EEA88B273B60DB6D7D8A6666C937B969D5367EAABB1A1
      36F42F0DC54780D947F54212EBC82DFE69CCA02CCB645FE6F2AC7D4418CBF69B
      A290C63C92FB88B05BC27CF7CD137F7DDE2F61FE29962FDF084B98952A08C39A
      0D6F7FC03221A8F094A8AEE1A7C3281DD3F9A3DA403A7F74FEE8C68F305DECC6
      D362D89D5FAA539ECE1F2F853F78E7B7F7EDA0244CDFFA83B07B04D3AFC1305C
      DEA57585A19DF7B74994EF303A7F685980F366B58DAE7DE0FCD7F963F2DC978C
      1FBC8CDECBCF2EC33B8CE8C2CE1FD11516E9FCD1F9A3EA81EA11DAC7A1FF1D6B
      426ED75B78CCDFAF1CF987FCED017D3EA49F907FD0D91EE0E7C3FC09912795D3
      F12B235F75603CAAE8CF07F93364F647896AE49591E7C69A0C79FD79C3384766
      7F46562F0710464E96692F83BC74FC31867F849162F1C2F9F3E7DEFAC5DF5DFE
      DD4F70B402EAE1BA6917D74FBBB8966AA29DAFFBB85E2A29CB070C61F19B5B9B
      D8C6B076E148B1F29B4333D1EAD9C3C5C68D4BC0225EA913B136AE2E157D7C13
      75D6DF105B75294B0CD30F7652AF3E9F709EF34759C3C0ED10FA8236CEFDE33C
      1BD7A9C4E8632E18F1905E59876B796CB73871FD9BE2D97C9E65CD42D08BF709
      78EB86785C1B967EF1BAC95F63B788BFF478F0DD007D623FECB57B2CF059135E
      E53E0C6FA94D21D601D73A52FDB84E6734453EC5AFC59B1147B8255ED9277C7B
      51FEAC21DB1EBF093861EFBCFAED271EEBF639E1B19C7988BEE33A99F71FC7D8
      DDCFB7C7EB67C88F6B698DF13EBE8388A7369E6D15C418A00E78EED8B87EA9B8
      F3F1E9620BDF46E66DD3D6F465AFD87ABA55DCB97C1A63FEB2B55F8EF9DCD2B1
      796F0FE78F5B2516FB836D0F613DB1BDA88FE4C6293F2E56F2C398492CE0E81C
      B70B3F3591CE950CB37CAC9770EE3D90F3E57D3CA50C3FEEFE1EDB5966A01E2E
      0E36209B9E2F37BF1D16AB5F15C5CD6F6623CA50363D5FAE7F5B18DEACE74DE2
      AD7F57587BF6E7CB3BC2433DCE72DE241E65D93F3C1EED64DEACE74BCA50D6F7
      37C6235EA56D8DB725D59D4FEBF0D6BE0EFACD8147D9543F9663F6CE8147B914
      6FE54BA481EAECCAA5F3DC20B9146FF98BA220CD7AFE905C8A77E9F3A2B83407
      9EC94136C5BBF859515C44FAACFA518694E22D018F342B9EE452BCD3CF8A8234
      2B9EE452BCC54F8B8234131EC64FC9A578C78175FCE9EC789421A578C790469A
      F59C29398FC773DDE9A7C3E2D81360828E8650C7D3C245C8A6E7CB95EB6BC5A1
      BB83B96819B2DDF9720FF383CCF5E5CDCB8BC526B6D26F7F81F90BE6256DC9E6
      2F98FBA4E7CBAD47E55C88F325233CEDCA2D628D04DE1E9F8A7DBA3971BE2406
      F3389F33E23CA989C4C7107C6CCFFEFC463D38E713863D5600BEB6E1041EF523
      5E284FB86D4296E9FB1BE3662FBE551FEDF5F634C5834F7E3478AE7EFDF516BF
      575E692F4D3ECBE44DFAEF25C7C37587D9AB3698B1A9A92D4DD81BF0629BDE2B
      5EA88F1EDA34E7FB6DC8EB3BA1DF7EE3D978B03FFD8DE7BA1D5C5FB2EFCF7AFE
      651BEE619D2F3D5FAE5F395DEC7EB635DB7C03F3C9FE57BB05655F95F3E541AD
      4C73AFCB363E45B2FDF98CC4CF4CA12F78BD88C5F1D9DEBE81EB057F5D3D2D6E
      63146489214CEA350F96CAA22C31221E6C54DEBC21FDD4E1CD56B7DED79DFFE6
      F71DFDD8F9EF47E43F8C5D1C177DFF99254E593FFE71BCDEF3F89C19F3F7EBFC
      A171753F42ADA166D758DD1AED8B5E8F5D3B7B048B11B8FB3E075136BDBE1CE1
      951A7BA1743D768457F99066FD498EF3537F7D39C2EB3E0C6FC6F5D85A3CBC66
      6844025E6BE25A66904BE7CFF18DF033AE779A1C3027F1F0F64CBC553BB7AED9
      984619508A370CE98DB219DD29479AC0FB0C6FDB04CD82676B7B416E020F8F15
      0F49BCAF320B05B9093CBE05F31968162CF2520E94C563DE7EE1E1D502F6D6C9
      59F128074AF51BE0D16ED2ACFA496E020F6FDE1C8066C2C3798332A4E78537F3
      F560463FBB360CE9D27FD630BDBEE418BB73F57431BC867B873312655F91EBCB
      437F863D3FE7CF9D3BB37862A9DC0C641F1DE76EA01BA0FD382377189D073A0F
      741EE83CD079E0C7E001AE3EF26EDA0E5EF8300FF14E0D57CAE92B86BC43C059
      DCBC3FCEF089412C62F378AF3F62108BF6557E335EDD71670EAFDE689F7CD5FA
      6AAEE6CA8F585C01D9173CD86978A8D38887B459AE9A52DE9719CF5699C28ED7
      D4DE5956A03C2F9FBEED63679BF07CDECCF150B7AF241E7467DDCF4A6CCB597B
      E7C0B2B697E2CD89233B4AFD06E3FADD2B1EFA1AEF74C6F6F232E1B16F24FAD1
      FEB9895836C6077BB1CA4ADBED6E30562BDBDC15AEF0708513E71EAEF672D597
      79BB5CFD05B5DE855BC34B2C3B2741E7FD3ABF118FE791CD27D8F57B7F7D2EDA
      78B419EF48D24662F163BABCFB3F0FD1579BD8854C2C62F3D8EEFACFB993C0EA
      13BA108B36C6BBF8A8F7B6BB6B26F986D1577BC743FBC5F82CFF7B3CB6CD59A9
      D4758C17774CCC81E5CB967E110FED31EA3A4B3CE831C69B6397832FEF39E0ED
      87CDDEDE3DE3C1FE1F2D1EC7957976A2F936E3FD17F02AE338F2DB1EAB0FC4FA
      38283C9E8F6624E9C630EAC71D4F7B184B8549BCF587F8AE12ECF5E3C4AC718E
      7DAC4F62F1BCC1B19FE7A49957A6715EA40CB1ECFC1176A0ECE7F9EDC770FDDC
      D9D879A0F340E781CE039D07F6C3033D7C2C6AFBF1BA3D41CAA74867A56DBC34
      9D3B90A90BC35D7CD860183EE65559FB6C7930C27A013188456C1EEFF5470C62
      D1B6FDFAC94F1DDE7C1EE8FC379FDF24D5F94F9E982FECFC379FDF2445FF6DE1
      831AFB75BF8C58BB5F6CEFDBF98358764EDAC7F3DB7EE3FD58CE97BCA5BA5FFD
      4DF7433B3CF5C4D942D605EF4DED9BFF3ABCD92A20E1EEEA2371C88C87FBEF3F
      DC83C67DCCD83FB08F629637A4785EE9C6754FE2F11CC7FB3FC4675AF9C6D2B2
      3CA63553B97ECA7BDD7DACE9EA7CB9F384D74A7822906BC63390D6AA79FF6E1B
      1F113B88F3E51F638FEC9B27CFBCFDDB33EFBDFD26BF2CCD84BF4F36CE6E6061
      994EF1BF211D865702E42E70C9AF49C780370DB0A03CC280C61FD33771233195
      230F7FBB61D199F9376FE06B7F219D612AA3D7C9DEBC75B392C7F2F963D9A94C
      DD315F7B308BCCF6333C5EC2D683DF0EBE845387CB746F07F977BFD829D6F0CA
      8B26991E2A9D3FFA7903370A9A7895475EFE589ED2A685F411EB661ADF5EF355
      8FB3E05847853D6D64BA363AE9A5AE8D4EFAA429E5A0DBE8CD2B978A6DBEAAC5
      7DAD7A07AF76BBF3C9A56C1B27FFCEDD15E3A7DC165E4BB77377D98E77919E93
      230FF1373EB91831D7AEAE986C0F5FC6264EEA03EA40229FCF23BEC9DC9A94F1
      7C3EBE8E72FB35E5783EC537AE5E84BE2BF8BA2B5F893AD659F93E5CBB5AEA4F
      7CF26F5EBB58AC5D5BADE8ECF919A73FC84FBFDDB9BADCC82BD99DDBCB869FFA
      43F9B9701B3EEADD6B879F936F9BC6FAA3ED6DF9C927FFB69159BF8ED7CADEC3
      24085FDC1D3C28A977F766C1F49C3CD3FB9C3481977CBBB7F1B265CAE3957B0C
      7372BBF82A30F9B76F8DCF8137518F94A51CC3B4AC3ED2A917F97CDE3A8E29D3
      CBC8783E1FDF84CE75E5783EC5B76E801F650F510EE34ACF85B263089F90B6C1
      3FAD8DEE4077F2F26BC0397FE5CAA12FF835D4D41F395EA5D91792518E8E0F2A
      E4979F87F872F32CF8FC2A735B99EE5C3FE9D9EE5C3FE993A694833ED7776D74
      D2FB5D1B9DF44953CA41B7D13B98EFED60ACEEE34BDBA25D7CD860FD5A751E28
      1DC9DFC33987BC94DBE12BE8713EE131D37372E461FEE68D31E64DCCE3983E20
      0E42E12BDCE51C00443EA531243E1F1767D93EBD29BE717D36994DF0F771EE62
      395EE75C193CAF9B1D589C1980B66EAD4C3DD76FDF86DD5CCC79B056DCA9F173
      5A16792933CBB99EE7E03ECEA929D67E1FB32E06F8B2FB2CB87DBE2AA0A5CC3A
      D649669F8F021FF3D75DCE4731D7B4F928E69BF5F3D172BE9B9F8F022733B7EC
      71CE999B8FDADC9232ED7D5FCE47F3E5E4FCBA750336A1FCC1FD3B988F36F705
      9B8F86F9B6E6DC6DE6A3F41FED6B3D1FA53E9099AD8D62EC782EF3D1F6734BF9
      7B80316088F149C769F8EFB146FADBA57317DE5E3CF7B75C37FD8F38E64B07C4
      C7872FF825EC7949F2C263482CA6FBB479E21E9BF1FDC0941EC2DB4F4C61CB97
      3ADEAFB0C32D3DD9F9A1F383EF53AF627B38A87147E39AF7CF5EE21E8F7EDE0F
      BD89412CAF97D25497B3869217E69FE31CF7F6D2B9DF2E9D7CF7DDF34B275EFF
      1B7E998F27C0FF808C7F1B4E807C52701593F7E58F966726CA519E05325CB9B2
      82EFB36CCF4D94973EC2D18DC37942D9452CC9CB396D43C9C93FC26A2B9FF211
      2F8755BDD38DA7FE71A38F447E8BF306A6BB7B4EDC1C16D3D232A71D5386247F
      513FD9A9BC5942D52365B6F084ECDAB5B568B36C6F13FAF6F5A7AE31BFFEE685
      B7FE860D999F95E3EC6E73B8593491DD6AC5BF3BDFDF6924F1AD0E560BA3EF42
      A8E310AA2296BFBD543411EF3A9396BE39DD48E23BFEF5B122A5632E4D8DE2E8
      57478B2612DF31F03591F816BF5E2C9A48FA5DFCF662D144F2CBCA772BC52A88
      618EC477E7FB9BA80FD020A19016EAE3901FC9ACF23592B1F2D90854710496B2
      32CE42DF7B2233222DF9D9B8D878D82858E1AC5056142B810EA6F3E8181A4B63
      66E287B1397E56FCBEE0CFAA8FE74707D84F7BD92858E1397B6BFDF9FDCD437F
      823A7EF7CCA9377002E3898C7DFF5F2389C44720B7B1AB631D3B2FB89D91839D
      3D968F6D3CDC9A67CD01E977EE62E587DB8438A882F8A34C8F8F5F62BB90F86C
      0B0FF0F8131EAF18AD60BCB9EECD734BA72E9E7BEBFC8933D4E2DF21E723104B
      ED71C3EDE778A03347CF366D6390F8B6BEDA2896BF5E292E7D7DA94A5F5D2A16
      BF582C561E5F2A36B05E432CE343FAE92F4E23CFD36271E4D99162E1D142B17E
      0BF7E4C0ABC62F2B7DC835CA9DCF778A3B58DF6BC50B2F74BCF059E707DBDBD5
      DA0FD85017DB19DA3DDBB3B5D3C70BC5424A0F90766F01ED0CFB05B06ECA76CF
      F6BC70BF4C679EA78BD74F63DDAA5C9F66FF60BB671B9DA4D5C8A73E97ED97EC
      AB137DB35FAC864F88ADE0335D9EF889ABD547DBB16F1A1F78EC135CFC0C5720
      F21D7B322A8E3EC0C3DE5DDFECFA10CE3836FEBEE8B124E99B6AA7C71E0E8A63
      0FAA74F46EAF387A9BE780B26FB2DDB33D1FBDBD9BA19DE2D275AE291F6CDFDC
      FC62A3B8F4E94A71F1E9A5093AFE10E7CDFBE3F3A6F88E3FC264EDA1A7C5E2F0
      DD23C5E1EBDD79F3A568939C97BCE87EF132E890F44DB6676BA73716ACADB2BD
      8A5EBBBA50BC76C59D37D1EE99F7DA271902DFD227DD79B36BEBE5954FE78739
      FC90F4CD97E1BC692FDEE38B5173C4F5657C4A92735FF2E9257D5C239E205C29
      F3933F5B20C3120FD2F5624485C6F76CA7D80291B7E9A59ABCDAE60B9436B1FC
      DAF1767E3890F680797505976D57ED19738A2D4F68B39B9F6EE3855920DEA640
      FF507BB674E679221F0969EC47EC1F6CF794CD52E0E362D5EBE7CE2E9E2B3F72
      C0652226FD15C85695F6F26F8847BBBEC3E346DFECE20B3758A4E29773BE0C84
      E5A7F865192E05E14B2C857F7708E5BE873CD318277D5B6211CFE86B62828809
      BCF863BEC941B64E26E863B290D7CFF454792A87219E25A7FEE4F7447BE28FF9
      2CEF5BE917E4289BC84D94CB7C5F9EE215393C4A168E7DB966BBF8159A7DF40D
      653C95FE97CEAC03B38D3A9A8DC1A7E6572F57C6BD9F4B59F0B31E52A22FCC5F
      630CE30F058F50E75677A99C1D43D6EB0C1D2BB29FA1AD187ED0B582C17289CD
      72C1F705BE1A441B552E65E9C328AFB89773B2D4D3CB12AB522790B363A68398
      6F65F26B4588EBF71D1E55643BB7765FB6D771BCB48F7A1A0FF9C0FFA27F43B4
      A521741962C96980F7F20C9E82B0EC65842D4CDC66C9ED4C46D8A639C47B7BF4
      A35CF9E3E2351E1FFC036884FE4CFA3D6C230D41DFB36FE3AB6EC0D28FE581B1
      24C949E67BCA04B98164D7256A7AC6F27E9F94457EFF55312BD7C9C2B68A8ED4
      4F4439F07B1AE0DD49FAD1278595E7CAA4CEC1BE520EFE09181559DA2EFB1452
      CE6429E389BE72E552563ACA9F92FD9EFA7AD99DAA2CEAAEF4A57CAA90654336
      91F775C4C72A4CBF5CD943C80E50AEE8BB6D6B23D157682B05EB22EA19E24384
      94FD1EB224C815DF5216FCE137C0B63EF3E184BC9363B941B6CFB2C2AF8FEDAE
      C5B7CC03EF04317D2C577C83AFF23AD901DA761FDB10B9E5D8DA7D08ED587DC0
      426C3D84DCC09F8FA4C0730EFB9FC186C71BD80A89772BDF83EED8B6DAC79653
      233C22D52761B9CC88DB93F13575FD2837C2A37B233CDE36BAB7528CEEAF82D6
      8A117CC8C7954496866DA0FEBCC0F24C0E8FDF8D1E42EE21F241433E8A031F1A
      C1571602CB9FCBA8E7088F208EBC2CB6F58EE06F6E9B34C2D7E7F9480FE52BB2
      B06F846DDF6599A15C93853EE89F434F90AFC8C22FDE46963726C8A3CF0D1D55
      64E147F986FE31923CCB2161EC1CE2797DD2842CDAF44824399415CB87ACC933
      74ED8AF516E582FC90E5301E64469FE23C04E298EACF83264BFF91C8CF7A61C8
      F2290B5F5908B909592C9B5AFD839F32469427B17C12E578EEE0398DE7C4F0EB
      4B96BCAC43D625FD4ADF043D87FC7A35CEA9439CD7FD3934CA528E75C97224E3
      CAA3DC10F3302F5BBC82E75FDE1EE52DD1F80E7D5CA2DAE5032F5549E1FDDA0A
      75A398AE66BCE9F6AADD6AC58E176113433FA6D5CA228F3B6524C73095356C94
      9F865E46F18A2C6C4A65742C7E1FB691F5FCF49D1D07DFC95EFBA276A26F94A3
      4C42BE5CC6A523C328471F25725677CECF261BFCE9772CD561A4E592AF8D5CAE
      DC4A19D4D593D35BED2CFA0AFA57786BE4546645672CAF449F48CE95653238A6
      8C11F8F5A36F63BAF2EB42C8917F8F3FDB76EF2E8DE3AB4CB887E72F40BCCC9E
      E56FED83D3D9DD6E3E9D7191C7565A136F8E47183E4F71E5A5A1F219A679E971
      1B9E54263DAEC3F0E98C8BBCBCD29A78733CC2F0798A2B2F0D95CF30CD4B8FDB
      F0A432E9711D864F675CE4E595D6C49BE31186CF535C7969A87C86695E7ADC86
      2795498FF92EFA348DC73E9D7191E7555A136F8E47183E4F71E5A5A1F219A679
      E9718EE73F638C79EBDCD2D91367CA0782B0978C91B7DEE022DD3F22539B09B9
      68D5D1ABE5039D9C469CA876F44AF9A0ABBB57B7CD7675D7D55D37DE3EFF36D0
      F5BBE7EFF3FD6AE75DDD7575B75F6DA9C369DF96BA7ED7DE572F5BBB52DD75E1