service.dfm

这是《Delphi程序设计基础》由李文池写的书的示例代码

      379AAD12EC3A132E70BE1FE9BAAEB0D3633ABE8B87D8C82368E2F0D55B45592F
      53CBD3E2B72E72EAAFADB9B2245E694FA4C7C555CE5280667C24E70C8C6438F9
      11264C48665427B2EABB4DF6EFA953348A3CE66E73E631AB0D3F300964C76EE7
      B85DA154EC3B2A24EA5DA3DC7139730E2E461A9E9388ADAAB47D9246CB91BCD6
      2CB2462F46C0E61C91EAFA84DDF66CB70E919BC4973D3E1AA172F342D273B478
      7371BB819D3DFF000E371C51A8EB7F1569120F1FD43024D439B32B4D9B18E6E5
      E43F104C71C51A1E809E0AE8B6E88CE4CD6F2AF2572967626A9A46BEDEA5361D
      CB48DD9904805D478AAD29BC4A15FC9BA5F2C9D4E4D2B54851314DDE1CCB6C90
      A9D814F4DEA99E5883591E89F0C74949B50D5A1560CD64C5B76941F0557DE7DA
      2839A7CDF0B24D4F1BF49644D89AC96044729B25EFFBAA1A65D50F50E71E5FD3
      750E5593335DC58733518176CE8388DADF44D1548743E7D83915F51932337477
      970F054334C66ECA023A2B6819B6502699919C59706539793880811A1B8EEC79
      D6AEB83464C2C4C9703CD6551F40F9C3C06A2F50DEC4A9C0B71DA507AEB23B41
      2B4036D1826FD36B5EA28002B6DDBAA400576D00256A400568002B52028B1BBD
      495BBC44EE978ECED62DB7CD51D26AB2950031E5E4C58D3E347215832380CF18
      DCFDD9252FE2268E29BAE008C56AC0B6CCE68D4F2B963079724E01A7E9F34B91
      1708B397977F11E9B5CDAB9E36146E39624D7814A6DC24585CD8DFA45AF5BD38
      903656AC4005680772D70956018C5D9FBB0721DC003BC3B4AA01F45775FA4D56
      35E35248CE4B1B9DFBBE6D95318D081B2B560738680FABBE1AB5B92B4CFE997F
      BEF56EADF953F2AF523CFD9FD18FEBB495CECF7E5E987F3A7F1ACF63F511C5D6
      3F1DF951E30CDB4EDE9AFA3A9F0D404B505012F504D01E2B9A8A96489F9B0433
      E6C70CCCA61D3B48C9D5716070AC9265C64AA9746BABF001C5620D7CE7519377
      29DC7DCF44828D9AAE6E543997CC7AAF34723E5EABAA681EAD99A422E469FCC7
      8EAB0A77A8C2D1F0B953DBDC4464FF0048AE0CEDAAD391EB2B518CA89F07CD11
      B9AF253190E535959E0495FA007740C7F69AFA7B136EDA6F03E0EFD84EFB8AC4
      BDE4DD25B4FE5FC712295CAC9BE4E506D87BC9403622E7CD50ABF257897EE669
      B67DDED6CAB76D22E4AD64740056806CAD00056A4005680879ACB75878B84BDD
      98FF00228B9F9EA52AB32BB3CA8C6E4BEABCC1AB4CB831F1638366FA91A8D849
      AEB8DBE0797275243E4E1410272E60A7ACCB2306C9C93B47783A14F55564844B
      28395F57CAD67074F6D41A2C89D7BB5C746B388DB635875572DC3A2DBE06F323
      92F3B96B4F9F96B15CFABE5D8B640F39AE37B1AC19768C4E87CBFA872F736C63
      0E26CD9638DB8B294717093B6CC7AAB26C246BF42D6B9DF3B5A91268BF038846
      1907D13D09E0A54BA464F9839253179B33B53971A4870E06E3C9761676702E15
      7C06AF164D0F4EE45D7573F9473A7CF518182808C403B2FC206E6F0D564CB22A
      3429A48F1E69F0B11BBB99EFDFC8369DBBC1ACEA48D73DE87A8E7E9699FA5E6B
      624900E1CB10B70B383BEF5A45946CF1ED0B5D4D2F599F174DFC2D50CC261959
      3B2CA9E70BF86B68B3367A873C61E8BCCBCBF8DA8E9ED0C1AF32897516DD1CAA
      BE79F09AB26419ECCD7BE1968DA6E0EBB039CCCAC68CC6DA73768094EE217A81
      ABC503CDB9A79C9398CBC9998E904D2B71446216403A9BC35D11B62A50A49950
      4D0C98D17739511169C0B370F4EDA995A29291E9FA77C63E658B05609E319185
      1C662208BBB5C79C7674551DB2B986B94B9D3BDC99B49CCC94834FD4A5058B9B
      0009B58556941524738E878BCABA907E5A62C241B655FA4A76902ACA5420C6A4
      CF3CB94C5786767E3319DEB6EBABA7545A0E85969F92258C026EE7781F46C3A6
      B2AF1A1DF075449BA917F0DBE6A9CC8BD012B562002B40015A000AD4800AD000
      C28002A6E7ABA0500056A400568016516FDF50002B5201E15DB7B836ECD85F6F
      8768A875EC03656AC400568012B5202C6C4C9CBC88F1B1A369A794F0C71A8B96
      27A05527714155F22D18B6E8862DE035CFF7D6B134D09607D4BF0E9ADC97A67F
      4CBFDE7AEEEADF953F2AF523C8DA7D18FEBB493CE4FF00FF004130FE65FE359E
      CBEA238BABFD07E5478CBBF68F8CD7D0D4F8AA03C46A2A49CA802A124EBC19D0
      E3869CE267E1B16C3CC0A1C0E21668E446043C6DD20D79DBCD9EA715CCF6FA5F
      53D0F765C624ED573B5AD59208F98B58832F4EC52AF1E9B8109C78A464F33BDB
      93D95EA5AE3B7D3E6DACEF81E9DEEB56E317A6BDE7DACCEEA8D26B7CC3A76011
      C632B215E6516FF0A2EDBEC3B2DC2A7657A1B8792DD11E774AB6EEDECCCF4C2B
      5E09F6E36568002B40015A90015A000AD014B938CFA8E64D86B22C1C4151A773
      60B18278EC7AF6D6F61713CFDDCF8D083AF6B1A6695A5CBCBDCB84A618DB9BA9
      BFF88EE3A11BEA9AEA93A1C70E279DE2EA2D0E6308E4EEC303C32DED76E8E1AC
      6B53771A175CAD9FCD316A2DAC6037AD6A783D9E39F6954DE6AB380B6CDB683F
      1EDF1F2327235E8BD6F3437063C682E817A4B6CAC250364CD4EB1CE5EF1E5B6D
      470E38B4EC6985E7C94EC92E77007AAB0944D119DD0B9AB5AC7C58F23224EEF1
      94F7704C86DC4C4EC24D52858BCC3C7D6B3A59B233F2C64445C761CDD4C9F441
      AAB7425710B98B1F9834DC1382F0A2AE68F589B67E14617E88F09ACDB2D42CB4
      6CE7C0D1B0321A4658A500A894FE12ADF683E1A22195B16BD8AFCCB9990E5DF4
      95BA4A23F32E456F0898C99538B89F0DF56973F38B70E3E249DDC8DFEDAE7A4F
      82B471A154CCF45A2CFAB7318D1B4391D74C9E362992FB881F50F554A40F36E6
      9E5C7D0B589B0B2903C51129DEA7493D35BC0A90B0312468A48C42CC788189D8
      760D75C08A92B1B5BF77492452C226663C321717E127A0568CA489DA2C9DFEA0
      78E44841078637D808AA3895023D2FD735EEE6145964470C8176C6A075D63289
      28F43D379EA14C96D333B0D1A5C7B22C8E3B23C55CF22477E24F27C70E9385CC
      9A5ADDB2141CA58F7126AF6990D983C2CD55C9F34461BFC4BF5D599D76645DB2
      061B45C786A0E9058500D9504023778280064E91BFAE8C03C005EDD3B6A68006
      16A86D2E606BBB00016DDBAA52070AD4800AD00057A6940015A90095A100955E
      137BF15FB3D56E9FE1515E248D95AB10015A000AD01C05D183A12ACA6EAC0D88
      3559C14951F22549A754070553EDEDF857EC5B52589F4E7C3E6B726E99FD32FF
      0079EBAFAAFE54FCABD48F276BF463FAED1FE707BE8537F52FF1ACB69F511C7D
      57E83F2A3C7588B9F1D7BD53E341E2A8A93415E8282BD050E8A015013390707D
      7798B50D51D6F160A0C6C6665B8EF24DAE55BA195058F81EBC8EA173B0FB2E83
      B7CB0CC6FCAD7967D08056A40D941D5BE8002B40015A90352F6519BEA827E6A0
      2B7372F1B4CD2531F2E3BE5E78765BED61C4760AEBB2B81E36EA559141A37C3D
      D572A455C8C59E2C390F781A4168C0BF4F82AB7A456C7166639DA033EB89A741
      0E3C70611EEBBC845813D759D99559D728963A2E0E772FE9595241949959FA84
      AB06363A1BB9EF365D8574DDE073A653731F29EABA3672E999ED02EA93A17748
      F7A8DF63E1AE49C8DA2CF56F85DCB71E4F2564C3ADA4991878E0BA63A6D3C2BB
      6F6AE6948D932B8CDA366EA18F0424AE8B1C2F22C07CE12279A2D59390A965CA
      5A8E8B99AAC104D98618DD83C90B1B1EF14F676567291ADB3D6F53D1C6A96C69
      499311807761B5C10360F1556A6943CF3E2A6B9A2699A6C3A001B24DDC3BD5BA
      2D5B4119C8F1CD5B98F50C084E242CAB15882A3793D1C7E1AEDB7139E466342C
      E90EAE2192558A1CD6B64806CA788D8DFC356B912227AE722F38E97A2EA799CB
      B9480E2C48DEA39A9BD16D7DFD559D09650E8F0E97ABEB5A9E9BAB66C4F83A84
      84E36A0EDB2363B1578AB48B28CCAF35E9B97CA99A7404CC8B38480B43342788
      01D1635BC6454CE7AAE4E3329CE474328E2065FA7FCD5AA905C43C728D3F7723
      05127992B6F1E23562685FE3F3269FA642712285CE52A9032221B58F59354922
      2856E9D9B3BE6C72EA1C4A92CAA599BCEB5EB9E4883E89D4754E5F5E5BC4C45C
      A8CC0D076509DBC56D959374339B3C1B58C4C8C4D50F783F0A66BC64755EB54C
      E9B2CD1C6098D6FBEC2F43B8E325F61A86AA49C95A4924692572F2392CEEC6E4
      93BC935118A8AA20DD469855880196A400568002B400709B6DDFD340015A9001
      5A004AD481B206CF0EEA8A804AD4800A9A20015A90015A10095A006D407D25C8
      8F6E4ED37FA65FEF3D6FD53F2A7E55EA4797B67FC31FD768F735BDF439BC6BFC
      6B1DAFC671F54FA2FCA8F2066DA7C75EE1F23406F4143A0D491427E269593909
      DE0B247BBBC72156FE33594AEC63CCDADEDE73E48EE569593027786D247BBBC4
      2196FE31530BB19721776D3873457E449DD40F21FA2A4D68DF032846AD235FF0
      E74F6C6E55826716973DDF31F6DEE25368CFE52AD7CE6E679A6CFD1B636B25A4
      8D215AE73AC02B40015A90015A000AD01173CF062C84EE2003E26363FBE8564F
      8195E60C8D233F995D72B21B8A09124C7287B3C280767E5AF4E11F74F066F892
      E1C2E7DE79E623847547D274502D8D1F1703BC4058D79D76B53B2092448CEF84
      1A7F2F36431972B37BC462B231E2B6CF38EDAD22A88A26DB316CBCAFCA1362E7
      A66BEA3A91FC5081B8963653700F5522DBE66B7226575FE73CDD5F9872398B31
      78B25EEB1AFF002916BD6B45817850DDE8BCD1CC29818326065A4187242629F8
      CD89E3D9B6BCDDC3A1D71A12F97B49870727267CEC85931E5BA4650DC0E2E915
      C719F12FA68BEE55E5DC46CD90AC4992B8F778A74177206DB93D756B925D8653
      B6EBC0B3D63E2F6A3A4E9F9316204EF10F02093FC4E1F0ECA98851678F6A7ACE
      ADCC79ED9AE0B3C209663E6A9AEB822B22A714E0CD967DEAF23860595A3E9237
      5EBB208E4B8995B92D8B2EAAA90A70F0B02A3AC0EBA8B916459AD38973939B16
      36165B6D13C9D9563D446EA4626C54F2FF0031BE998CF8DDC439304A6EE24176
      56E82B5AA81563E356D3E5E38D11A4CD94F12CB26DEECF52D5F2903FAB4F9FA9
      C18906A11B24F8719581EDD964F0D5E05594E0A24D086B48AC40037F09BEEABD
      4825C8F361E748638D4CB7B7036EB1E91421933172066C53E26470800193BDE9
      0CA36015471204BADCED811624AC38C9BC4FD2003547042859E9F971DA45CD93
      D60953DD711B95F1544A222CB8D25DE5C08DDD8B35AC4B6FB2F647CC0560950F
      4A0EA89256AC586CAEFEAD96DB7E8F10E9AAC134B8BA92C165AB1036C0804EFE
      9B500056A401C26DB77F4D1004AD00056A40D900ED1BA8002B400320A03B1944
      7E274122D88284900DC11D1D5BEA249B5C1D00C95AB0008A000AD0804AD4806D
      424FA23925EDCA1A68FE593FBCF5D1D4FF002A7E55EA4791B7FA31FD768E7343
      DF45987847F1AC76DF1A393A97D17E5479213DA3E335ED1F28206840F6227799
      31A7D66028DF02D18D5D095AA6460C1EB9ACEAF82BAAE91A56A09A541A3B3B24
      44F765E599B87CE6DDC3C5B2BE5B7371CA6DBE2AA7DFEC6C285B4A3C1B55A929
      723951F2F4BD4394E39F134AD5E73A7EA1A54C8E218E62A5A39216DB1ECB1BF0
      B7C956DBDDCB34E3C994DEEDF3DA929F16956A67399CBA44D89135A4C8956043
      BEC5D82FF1AFA2B93A42A7C86C6CE6BD43D8307062C2C1C7C384011634691460
      0B0E1450A3F757CE49D5D4FD0231A2A0E15A82C015A10015A01B2B52002B4057
      6BA08D2E7237D85BED0A95CCA5CF859E5999106D4DE7C805523717E0DF7EBF15
      7B308FBA7CFC9F13D3F923590FACE365CF343245040C908BDEE4EE03C35E6DD8
      F13D08F2325CD9AD738F32F31E4E91A44F3C796D2777EACA6DC2A761B8EAA9A7
      0291E6566B9F01F56D0F18656A7A840B34BDA990B76813F2D45A5536B889FF00
      0FBE15681AACF234F94D3C311E1664371C5F577D6924675A1B8CBF83306069D3
      AC3218B065955C8C8D8CA07426DDD5E65F8D4E8B53301AAE29D3759F568DCC98
      A3640876F12F5D7993AA3D5B31A9698EFAD6146B3E033C225601546C06FD0691
      954E895A335AFF002EF354DA8CD9595A7642027F1242BD8B7D61E0AE9B6725C8
      A45109E5C42F82B2595FB5DE2EE702BBED2382722BB2555556D752DE6A8E81D7
      5DF0898F32AA595A39830B7129B097AEAF280A503CD97225091CCC380D8923A6
      ACA007256D1258808924499361E1DCC6AD90863D8783A1CE9C333CF8D29DA663
      B0061BB6D434454B4D2B2E79352874C9245CB4947758D20DADC4DB00AA49D0AB
      216B5A367685AC4BA7EA58ED8D3ACCA385C589BEDE21E0151985099AAE8999DD
      C99792DDD2A5863CDB848A46F07A6AC99529B0DD7BA961763C6C6EA7AED57488
      341FA7F4C83961B52CB99866C8C3B88AFB81A34115F019828BA2808080DD3559
      208D768176D3632769AE467A36F913CAD0D002B4200207CD52002B401AE3E39C
      59A6926E1994AA4100DBC46E0B337500BBBC35475A92462B5A103656F63D1D55
      000205EDD3D553500150360D82800286E4DF7F4500256A400568002B52002BB2
      A1000AD4825E9FA61D4658B171AC9924BB4D2CF22470AC6A010DC4D6B70F68B6
      DACA7732717C89A12BF4CAFF00F76D3BF39BEE567F70FC32FD8653D97939EDCA
      5A68F049FDE7AF4FA9FE54FCABD48F1AC7D1887CC6F7D2261E2AC76FF19C9D41
      FF0013F2A3CA8F9C7C75EC1F2C72E6840E43298E5571BD4DE8D13174752DD22E
      3CB6CC830B1F58C2CA913233B44CB97B953931A9559D1CF60DC13C4AF71E0EAF
      0B73B3966AAE28FAED875483B6A33795AED266ABAA6A9A8E7E2EA1ABC38FA7E3
      696AC34AD1B15C4A124716EF6491005361E6851F275CEDB692725292A50AEF7A
      942307183CD297699DD2E36D479EF4884B102391F298817DB129700F55C802F5
      DDBD952070F44B79AE54F5F2B5E21F62015A000AD490015A000AD0005680AED6
      915B4E9558D83708FF004C55A2F899DDF859E59CCDA963432E660C285A40DC22
      4EB0457BD6FE13C09732B397B1398A668E0D314B488E1D186E5B1BDCD79F7571
      3BA2F813BF52F3472FF374D9D0989F5474649E64DC4916E207C155712917C4CF
      EB7AE732EB392EF9F9391932ADC18EF7BDE967826754B88CE8FCE5CC7A263B62
      61DF1C1712329D8C4AF5D4B6612448D579FB9C75B27D775799506D4891FABA2D
      58CED54BDB7467B47211E55E6AE5AC1875193BBD6F01385157FC4703AEBCDBF6
      0F56C5D1FD7F48D474FC76CBC0B664024513E0A76A78D7A5C2F470D7164A1DAE
      EA266ADAE6A1A8686BA5E0E4F798D242DF8F29BCAAB6DAAC7AEB682382F4CF06
      CBD29519E28272D3C2DC288C769B9E8AEEB6CF366F88F656B18B2E8ADA764E19
      8F5384F0A4AA2C58576C24551986978385654042F9D18DF7AD94CBD4093BF322
      B22930CDE696DC87AAB4520761C09BBE3199E38D976B313607C556CC43617779
      52472DDD648E2362A7E978AA1B203D3F30C13C2DC2625491644963D92248A7B3
      F2561701EAD8FCE1A17394F1E9DCEAAA995DD18303568B73330B2995BAEB320A
      6D474ED4B4D9E1E4FE6553EAA581D2F505F31E1BEFE2AB45868C9EB583069BAE
      4D1E3B09E181C2C6EBB45CEEBD744195073F50D47201C69D148B86B0DCB6EAAD
      012138A5448D2FC56BB5FC1549108D7E821FDDD1ADEC8BB42F45CD8136FF0034
      57038ACD53D2B6FDD2C0AD49700AD000C0EEBEC1B8500D95A92002B4036C97BF
      41B5AF4071FB4CCC401724D80B017EA02A12A2246CAD58800AD000568002B520
      02B40015A007845F6EEE9B6FA307619A4C6C98F220622585964898806CC84106
      C6E3CE155A36A8C11CAD5C1CB5083DD394DEDCA7A6F8A4FEF3D75F52FCA9F957
      A91E359FA510B5F7BE9530F1565617BC72EFFE933CBC9ED1F1D7AA7CC50E5E84
      50ED4D406AECBB5491E2A0A9C67663DA624F86941CCBAF85F8872799F56CF6B5
      B1208F1D05BA6662C48F1775FB6BC9EA13E48FAFE856A90A9E9C56BCC3E806CA
      D000568002B40015A92002B4043D4A0EF70664E92A48F936FF000A1125C0F26E
      64D3B35752C99A1843C67CD36DE2D5EE597EE9E0497122E8B89AE634B17019B1
      FBF17578F602BD37AE5B9CCEA5C89B1E5E061EA530D5543E4007D4DD3738FE6F
      0D4B473E63D1793BE1768FCC9851EAD165AA643A1EF6143DA8D8EE0E2FB2B82E
      5CCAE877DBE28ABD6BE0364096579F32155BDD589ED5875EDACE37B8871303CD
      BF09B2743C78F5097371DF1266089DD376C06D9C476F457741D514E4172E72AE
      958D987BDE638F1E48D4B43931496616DBC2C6B9F711E05D5DA1EF3C898F38D2