unit1.dfm

《Delphi 7应用编程150例》源码（全）

        DD5027507150BB51065150519B51E65231527C52C75313535F53AA53F6544254
        8F54DB5528557555C2560F565C56A956F75744579257E0582F587D58CB591A59
        6959B85A075A565AA65AF55B455B955BE55C355C865CD65D275D785DC95E1A5E
        6C5EBD5F0F5F615FB36005605760AA60FC614F61A261F56249629C62F0634363
        9763EB6440649464E9653D659265E7663D669266E8673D679367E9683F689668
        EC6943699A69F16A486A9F6AF76B4F6BA76BFF6C576CAF6D086D606DB96E126E
        6B6EC46F1E6F786FD1702B708670E0713A719571F0724B72A67301735D73B874
        14747074CC7528758575E1763E769B76F8775677B37811786E78CC792A798979
        E77A467AA57B047B637BC27C217C817CE17D417DA17E017E627EC27F237F847F
        E5804780A8810A816B81CD8230829282F4835783BA841D848084E3854785AB86
        0E867286D7873B879F8804886988CE8933899989FE8A648ACA8B308B968BFC8C
        638CCA8D318D988DFF8E668ECE8F368F9E9006906E90D6913F91A89211927A92
        E3934D93B69420948A94F4955F95C99634969F970A977597E0984C98B8992499
        9099FC9A689AD59B429BAF9C1C9C899CF79D649DD29E409EAE9F1D9F8B9FFAA0
        69A0D8A147A1B6A226A296A306A376A3E6A456A4C7A538A5A9A61AA68BA6FDA7
        6EA7E0A852A8C4A937A9A9AA1CAA8FAB02AB75ABE9AC5CACD0AD44ADB8AE2DAE
        A1AF16AF8BB000B075B0EAB160B1D6B24BB2C2B338B3AEB425B49CB513B58AB6
        01B679B6F0B768B7E0B859B8D1B94AB9C2BA3BBAB5BB2EBBA7BC21BC9BBD15BD
        8FBE0ABE84BEFFBF7ABFF5C070C0ECC167C1E3C25FC2DBC358C3D4C451C4CEC5
        4BC5C8C646C6C3C741C7BFC83DC8BCC93AC9B9CA38CAB7CB36CBB6CC35CCB5CD
        35CDB5CE36CEB6CF37CFB8D039D0BAD13CD1BED23FD2C1D344D3C6D449D4CBD5
        4ED5D1D655D6D8D75CD7E0D864D8E8D96CD9F1DA76DAFBDB80DC05DC8ADD10DD
        96DE1CDEA2DF29DFAFE036E0BDE144E1CCE253E2DBE363E3EBE473E4FCE584E6
        0DE696E71FE7A9E832E8BCE946E9D0EA5BEAE5EB70EBFBEC86ED11ED9CEE28EE
        B4EF40EFCCF058F0E5F172F1FFF28CF319F3A7F434F4C2F550F5DEF66DF6FBF7
        8AF819F8A8F938F9C7FA57FAE7FB77FC07FC98FD29FDBAFE4BFEDCFF6DFFFFFF
        FE002646696C65207772697474656E2062792041646F62652050686F746F7368
        6F70A820352E32FFEE000E41646F626500644000000001FFDB00840001010101
        0101010101010101010101010101010101010101010101010101010101010101
        0101010101010102020202020202020202020303030303030303030301010101
        0101010101010102020102020303030303030303030303030303030303030303
        0303030303030303030303030303030303030303030303030303030303FFC000
        11080258032003011100021101031101FFDD00040064FFC401A2000000060203
        0100000000000000000000070806050409030A0201000B010000060301010100
        0000000000000000060504030702080109000A0B100002010304010303020303
        0302060975010203041105120621071322000831144132231509514216612433
        175271811862912543A1B1F02634720A19C1D13527E1533682F192A244547345
        46374763285556571AB2C2D2E2F2648374938465A3B3C3D3E3293866F3752A39
        3A48494A58595A6768696A767778797A85868788898A9495969798999AA4A5A6
        A7A8A9AAB4B5B6B7B8B9BAC4C5C6C7C8C9CAD4D5D6D7D8D9DAE4E5E6E7E8E9EA
        F4F5F6F7F8F9FA110002010302040403050404040606056D0102031104211205
        31060022134151073261147108428123911552A162163309B124C1D14372F017
        E18234259253186344F1A2B226351954364564270A7383934674C2D2E2F25565
        7556378485A3B3C3D3E3F3291A94A4B4C4D4E4F495A5B5C5D5E5F52847576638
        768696A6B6C6D6E6F667778797A7B7C7D7E7F7485868788898A8B8C8D8E8F839
        495969798999A9B9C9D9E9F92A3A4A5A6A7A8A9AAABACADAEAFAFFDA000C0301
        0002110311003F0024BEFA45D605F5EF7EEBDD7BDFBAF75EF7EEBDD7BDFBAF75
        EF7EEBDD7BDFBAF75EF7EEBDD7BDFBAF75EF7EEBDD7BDFBAF75EF7EEBDD7BDFB
        AF75EF7EEBDD7BDFBAF75EF7EEBDD7BDFBAF75EF7EEBDD7BDFBAF75EF7EEBDD7
        BDFBAF75EF7EEBDD7BDFBAF75EF7EEBDD7BDFBAF75EF7EEBDD7BDFBAF75EF7EE
        BDD787BF75B02A7AE5EF5D5FAF7BF75EEBB0403EEFC475A3D67520FBAD33D586
        7AC805CD87BDF0EAD4E9F31D4665751A49FA7B62570A38E7A531475A63A1068F
        14DE35014DEDC716FF0061ECB1E7153D19245C3A5EE1B1F24718256C01E3FAFF
        00B1F65B3C819BA5F0C640A742463E958AA9641F503FDE3D95CAD9343D2D45F9
        74ABA5A3B5BD3F5FF78F68DDFE7D2A44F974A0A7A2E012BFF15FF8D0E7DA767E
        94AA70E9E60A237E4716E0FF0087FC45BDB0CFF3E9E54E9C5692FC01C037FA7E
        3DB45FE7D3813E5D65FB507FB03FDB7D6DFD7FA7BD6BF9F5BD1F2EB89A5F49BA
        817BD85B9E7F1EF7ABE7D7B4638750E5A5FF0069D207D481F8F760FD50AF4D75
        149E93FEC7FD7FF7C7DBCAFD34C9F2E93D534EA49516B8FA806E7FDB7B52AC47
        49DD3A4D55D2917E2FF517FF007DF9F6A91BA4AEBC7A4A5653DAFC7D3F3FE1F8
        F6AD1BA48EBD256B29EC58F36BF1C7D3DAC46E923AF1E92F5915AE7FD73FEC7F
        3FEBFB548DD2571D272A63FAFF00BEE3DA9439E9338E99674FF7BFF7DFEDFDBE
        0F4C374D532F37FF007DFEFAFEDE5E9A231D4171637BFD7DDBAA7518F37FF5FD
        BA3AA9EA3BFD7FD71FF1AFF88F7BEA9D607FC7BB2F5AEB19F76EB47AC06F7F7E
        EB59FCBAE3EF7D6BAF7BF75AEBDEFDD7BAF7BF75EEBDEFDD7BAF7BF75EEBDEFD
        D7BAF7BF75EEBDEFDD7BAF7BF75EEBDEFDD7BAF7BF75EEBDEFDD7BAF7BF75EEB
        DEFDD7BAF7BF75EEBDEFDD7BAF7BF75EEBDEFDD7BAF7BF75EEBDEFDD7BAF7BF7
        5EEBDEFDD7BAF7BF75EEBDEFDD7BAF7BF75EEBDEFDD7BAF7BF75EEBDEFDD7BAF
        7BF75EEBDEFDD7BAF7BF75EEBDEFDD7BAF7BF75EEBDEFDD7BAF7BF75EEBDEFDD
        7BAF7BF75EEBDEFDD7BAF7BF75EEBFFFD024BEFA45D605F5EF7EEBDD7BDFBAF7
        5EF7EEBDD7BDFBAF75EF7EEBDD7BDFBAF75EF7EEBDD7BDFBAF75EF7EEBDD7BDF
        BAF75EF7EEBDD7BDFBAF75EF7EEBDD7BDFBAF75EF7EEBDD7BDFBAF75EF7EEBDD
        7BDFBAF75EF7EEBDD7BDFBAF75EF7EEBDD7BDFBAF75EF7EEBDD7BDFBAF75EF7E
        EBDD7BDFBAF75EF7EEBDD7607BD75603AEFDFBAB75D13EFDD549EBC013EEE31C
        78755A57A9314649FF005FDF890074E2AF4ED4F4C6EB707EBEDA66E3D2958F87
        4BAC2D3A074F4F375BF1FE3ECBEE18D0E7A308540231D0C78DA189E28C98F512
        07FAC3FC07B21964604E7A358D31D2C6868512C153FE27EBFD3DA292427CFA56
        8807974AFA3A41E916B7D2E7FA7E3FC3DA277E3D2C44E1D29E92905C01F523EA
        47FBD7B48EFD2A44F974A0A6A4201BAFFAC7FA9FF8A7B4EEF9E3D2854E9E61A6
        1A41B7D781FEF478B7B60BE7A78253CBA9B1D28FAFD7FD7F6D97EAE17ACDF6C3
        4DC7FAC411F51FD3DEB5E7ADE9EB83528E069B13F9FF008A7BDEBF9F5E2BD419
        E9C26A66217FC4F007BBAB57CBAA15AD4D3A42676BA588F8E05F400DAE5B7008
        FC027D995B461B2C73D269495E031D049579A9639E5219EF7BEAFAF1ECF12D54
        A8E1D16BCA4123A8EB9FA9540D380F11B9E47E07F8DFDF8DA256887BBA64CA70
        5B874C75DBBB0C974762ADCDC58581FF00037F6FA585C1C818E93493C20D09CF
        4CEB98C66443086755604FA5EC09FC71CF3EDD6B69A1F8971D262F1BFC2DD345
        57899880EA587E2E2FFEDAFEDC5A802A31D27703D7A4E5545CB716FF007DFF00
        11ED4A1C0E9330E93D511FD47F8DBFDE3DA953C3A4CC32474D12A7278BFE2DED
        F538E993D36C8BFEDC7FC4FB7067A6C8A1EA238E7FD7FF0088F7753D54F51A45
        B8E2F727F1F5FA7FC6BDDC74D9EB03FE3FD8FF00BEFF0078F765F3EB5D61245B
        DDBAD135C0EB01B7BF0EB469F9F5D7BDF55EBDEFDD7BAF7BF75EEBDEFDD7BAF7
        BF75EEBDEFDD7BAF7BF75EEBDEFDD7BAF7BF75EEBDEFDD7BAF7BF75EEBDEFDD7
        BAF7BF75EEBDEFDD7BAF7BF75EEBDEFDD7BAF7BF75EEBDEFDD7BAF7BF75EEBDE
        FDD7BAF7BF75EEBDEFDD7BAF7BF75EEBDEFDD7BAF7BF75EEBDEFDD7BAF7BF75E
        EBDEFDD7BAF7BF75EEBDEFDD7BAF7BF75EEBDEFDD7BAF7BF75EEBDEFDD7BAF7B
        F75EEBDEFDD7BAF7BF75EEBDEFDD7BAF7BF75EEBDEFDD7BAFFD124BEFA45D605
        F5EF7EEBDD7BDFBAF75EF7EEBDD7BDFBAF75EF7EEBDD7BDFBAF75EF7EEBDD7BD
        FBAF75EF7EEBDD7BDFBAF75EF7EEBDD7BDFBAF75EF7EEBDD7BDFBAF75EF7EEBD
        D7BDFBAF75EF7EEBDD7BDFBAF75EF7EEBDD7BDFBAF75EF7EEBDD7BDFBAF75EF7
        EEBDD7BDFBAF75EF7EEBDD7BDFBAF75D8F7A3D59479F5DFBF756EBDEFDD7BAE6
        91963C0F7BAD3EDEB616BD384144CE7807DD1A4038F4E2C75E94145886761E92
        7FE27FE2BC7B4F24E0039E94A435231D29A9F0AECF19F19BA91C01C7FC6FDA66
        B800115C74AD6024834E97D88C2A874BA0B9B5FF00D61ECB27B826B43D2F8A20
        3CAA7A13B1D4A1551557802DECA657A9249E8C235F974B0A4A41E9B8FF00636F
        F7AF689DF8F4AD12B4E959474A2FC0E38B9FF61FEBFB46EFD2B45E18E94B4B4B
        C29FF1FF006FFEBFB4AEDD2A44E9FA9E985C5F9FF523F27FC7DB0CDD2855E9DE
        2A7B5BD371F91FD3FD87B60B74E85EA6253AD81B13F8B7F8FF00ADEE9ABAB850
        3ACBE003E8A39E081EF55F9E3AB53E5D37D54F0539646FD4AA485078BDBFD85A
        E7DBAA8CC2A0F5A2BD24AAE5794492313A47200FA0E7FDE7DAD4A0000E3D3445
        3ECE833DD79010D249656B59AEC07078FEBF5F671B7C05A419E8BEE9C04200CF
        40C8C84461A8A892E6CCC1750E4807D881A13A9117A272C19598F481CA6E62D1
        C9146FA74DFD3FD073C7D7D9945642AA4F45D2DD02081D03B94CA54CB50FFB87
        9BFE791CFF004FC7B3B8E14441DB9E83373752B4874B5075069F2B594F207499
        8106FF0053EF6D146E28CBD34975321AEAE94D0EE29A56579A43AD47041FC8FE
        BF83ED13D9AA8A28C74BD2F35E49CF4A0A2CA3D61376BF3637B7F4FC7B432C02
        3E03A7D64D7D4899435C81FEBFFBEFAFB6D718EB4E389E99A64B13EDE53D30C3
        3D34CAB627FDF5BDBE3A68F0E9BA5F4FD7EBCFB7173D367A885C9163EEFD531D
        4690FD7FC38F775E1D54F5149BFBB75527C875D7BF755EBDEFDD7BAF7BF75EEB
        DEFDD7BAF7BF75EEBDEFDD7BAF7BF75EEBDEFDD7BAF7BF75EEBDEFDD7BAF7BF7
        5EEBDEFDD7BAF7BF75EEBDEFDD7BAF7BF75EEBDEFDD7BAF7BF75EEBDEFDD7BAF
        7BF75EEBDEFDD7BAF7BF75EEBDEFDD7BAF7BF75EEBDEFDD7BAF7BF75EEBDEFDD
        6E98EBDEFDD7B8F0EBDEFDD7A9D7BDFBAF53875EB7BF75EA75EF7EEBD43D7BDF
        BAD75EF7EEBDD7BDFBAF75EF7EEBDD7BDFBAF75EF7EEBDD7BDFBAF75EF7EEBDD
        7BDFBAF75EF7EEBDD7FFD224BEFA45D605F5EF7EEBDD7BDFBAF75EF7EEBDD7BD
        FBAF75EF7EEBDD7BDFBAF75EF7EEBDD7BDFBAF75EF7EEBDD7BDFBAF75EF7EEBD
        D7BDFBAF75EF7EEBDD7BDFBAF75EF7EEBDD7BDFBAF75EF7EEBDD7BDFBAF75EF7
        EEBDD7BDFBAF75EF7EEBDD7BDFBAF75EF7EEBDD7BDFBAF75EF7EEBDD763DEBAB
        81D78FBF7561D763DFBAF0C9EA4A45AADFEFBFDF1F7AAD3AB85E1D3BD3509600
        817BFF00BEFAFB65A4038F4EAA74A8C7D02A1BB0B9E073F4E39FA7B492CB5E07
        1D2945A7DBD2CA869916D64E7F3FF13ED0C8C4F9F4A94014E94F4D08500E8D44
        FD38E41E3FDE3DA5662715E95A0F974A9C65312D72081C7B4B2B638F4AE34E1D
        2F2829FE9E9FC7D79FF6DECBA46E96C6BD2BE8E9C702DFEC7FC7FA7B46EDD2C4
        5F2E9554B4C2CB703F1FEDBFC78BFB46EDD2B45E1D2969E0B69B81636B103EBF
        F23F6999B8F4A5569D3E53C0BFD2DC0038FA7B4ECC7A7D54713D394710F480A7
        FA1FF1FEB7FF000F6D93D3A070C63A98B00FE9F5FF006CA7FE45EE85BA7028EB
        2983495B727FAFFB7E4FBAEAEB74E901978AA20C8B8914B4728053F00FF80FF6
        FECCE131BC2B4C30E9A61462698E9A6ADD21A790B954041FA91C1E3DB912B348
        147AF547202E7A0877755C2D44C04885416B8B8FA5BF07D88EC23612D687A27B
        A71A08AE7A2ED9DCBC50C72244CA0588B03FEBFF00C4FB155B5B9620B71E83D7
        570AA08071D0215B9194D4B956362791FEDFD8816345450467A08CD7321918A9
        C74D123991CBB7D4DFFDE7DDBFC1D25249A93C7AC7EDB383D7BAC88D6239F7AF
        975604E08E23A7DA2AB788828C45CF201FF7DF5F69658C1C11D2F865C0A74A05
        AF9185FF00DEFF00DEBE9ED19880F2E94F884F0EBB355E4FD4A2FF00E1FD3DD3
        C3A75526BD6191350FA7E3FDF0F7E07CBAA30E9AEA22B8FF0089FEBFEC7FC3DB
        CA7A69874DAC8578F6E8C8C74D91C7A892FE7FE47EEEBD50F517DDBA6FAF7BF7
        5EEBDEFDD7BAF7BF75EEBDEFDD7BAF7BF75EEBDEFDD7BAF7BF75EEBDEFDD7BAF
        7BF75EEBDEFDD7BAF7BF75EEBDEFDD7BAF7BF75EEBDEFDD7BAF7BF75EEBDEFDD
        7BAF7BF75EEBDEFDD7BAF7BF75BA7AF5EF7EEBD4AF5EF7EEBDD7BDFBAD75DDBF
        AFBD57AB01EBD7ADEFDD6C0EBDEFDD7BEC1D7BDFBAF75EFC7BF75EE03AF73EF7
        D6A84F9F5EF7AEB7C30475EF7EEBC7D3AF7FBC7BDF5AF90EBDEF5D7A95E1D75E
        F7D6BAF7BF75AEBDEFDD7BAF7BF75EEBDEFDD7BAF7BF75EEBDEFDD7BAF7BF75E
        EBDEFDD7BAFFD324BEFA45D605F5EF7EEBDD7BDFBAF75EF7EEBDD7BDFBAF75EF
        7EEBDD7BDFBAF75EF7EEBDD7BDFBAF75EF7EEBDD7BDFBAF75EF7EEBDD7BDFBAF
        75EF7EEBDD7BDFBAF75EF7EEBDD7BDFBAF75EF7EEBDD7BDFBAF75EF7EEBDD7BD
        FBAF75EF7EEBDD7BDFBAF75EF7EEBDD7BDFBAF75D81EFDD580F5EBBF7AEADD7B
        DFBAF75CD05CFBD75751D38C2A45B8BFE7DD09E3D3A31D29B1B66B7FAE38F696
        5C74FA67A56D247C8E39FF007DF8F689CF1E9428CF4AAA38BF4FF8FF00BE36F6
        91CF1E9520A9F974ABA2841B7F4FA58FF4FF0089F69246E95C63A58D0C1FA780
        3E963FE1C7FC57DA291B8F4B635E9674115CAFD0FF00BC7FADCFB4321E96C638
        74AFA385781F5239E7E9ED1B93D2C403A545243CF23FA1B8B7FB6FF5BDA476E9
        520E9470456D23EB6B5EFF00E3FF001BF6959B8F4A1470E9E618ED6B8FA7D6FF
        00F116BFD7DB24F4F81D394717D3FA7F43FD9FF8AFB6C9E9D1E9D4A58FFD63CF
        E7FDF7D3DD2B4EAFA4923A4AE6376E3B095CB4752819881EA53C8BFE38BFF5F6
        B6DEC26B98BC54341D3724D1C4C15C749FDC5B97173D1AD44434BAAF0C4D9813
        F4B7E79F6AAD6CA65934374D4B2C6054745737C6FF009A9E19234A8B37AAC037
        3606C01B7D7E9EC6BB6ED48EC0F87D076FAFFC35235F45C33BD8192A957844E4
        DCDAD723D8B6DF6A863A332F410BCDEA4AB4486ADD07F3662B6762D2497BFE3D
        9888E35A6941D12BDDCF25753F4D8C4B12C7927EA7DF9AB5A9E9375C7DEBAF75
        EF7523AF75E1EE9D581A753698DDD47F8FBAB8AA93D3D09EE2BD2AE25BA003EB
        C7FBD7B2F63D198514F9F59D200083FD3FE47EDA66EB5A7A93E2622C0703FC3F
        1EDB2475E20F4DF511D94F1FEFAFEEEADD3457A6492D737FA7B503A64F4DF369
        E6DFD3DBAB5AF4DB7508FD7DDCF1E9AEBDEF5D7BAF7BF75EEBDEFDD7BAF7BF75
        EEBDEFDD7BAF7BF75EEBDEFDD7BAF7BF75EEBDEFDD7BAF7BF75BEBBB7BF57ADE
        93D776FCFBD75EA0EBDA7FAFFBEFF5FDFBAF75E0A4FF00ADEF7D7BE47875ED07
        DFABD6A83D7AEC21FF008D7BF75B183D77A3FDF1F7EEB58EBB09F822F7FF007C
        6FEF46BD6FECEBBD03FDF7F4F7EEBD9CE3AF69FA9FF6DC71EF5E5D7BAF5BFC07
        D2C6DEF59AF5AEBAD201BFBDD4D3AF75E37FC7D6FF00F11FEDBDE875B1F3EB89
        B5F8F7B1D6C75D7BDF5BEBDEFDD7BAF7BF75EEBDEFDD7BAF7BF75EEBDEFDD7BA
        F7BF75EFB7AF7BF75EC75C7DEFAA7CFAF7BF75AEBDEFDD7BAF7BF75EEBDEFDD7
        BAF7BF75BFB7AE405EFF00D7F07DE89A75EA79F5D10471EF75EBD427AEAC7DFB
        AF50F5FFD424BEFA45D605F5EF7EEBDD7BDFBAF75EF7EEBDD7BDFBAF75EF7EEB
        DD7BDFBAF75EF7EEBDD7BDFBAF75EF7EEBDD7BDFBAF75EF7EEBDD7BDFBAF75EF