service.~dfm

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

      FA0C2EACB9D714D22DB29F1BF50E2418DAB4DAEC5A0E14F0E6EA939520CB91D9
      585180BB706FED3378EBAB6906EE2A761E7F52BA96DDD7866EC03E12C6D3FC44
      D467503BBC7C16527F99E54B7EC06BB7A83F77CE71F438FF00F4F692B5E49F46
      015A000AD000568002B52002B40015A000AD00056A4005680065A02AE6C5C9C3
      C8F59C1E210B6DC9C643C3C5D3C42FD3578CA872EE2C67E2B99678D98BAD8482
      589A6871C83DDB8BF7646EE2ACDCCF39C1A7C4D64471E78C413A77E8A2C146DF
      9455932D124C10C58B184888546EADF595DA9D5048262E64206D3BECDBC56302
      F2E0428385B265B76F23C3562B526E3998200EB661B0D4161C31716C26D4A964
      2481518303736B5FC1D5515010755202EC0375AA2A4508B9916265C6D06446AE
      8DB4B1DE0D4C599491471697A7614C6432BCCEBFE186370BE2ADA2CE7903A8E5
      CEE86467B000D88DF5D36954E79A3C779A355D75F50915E61EA80ECB1ED57427
      4215BA94785A465EAF944B712E346471B3EF6E9D97AACAE1DB636AEB566CB1F1
      62C781218D42220B055DD589E925408AD0900AD4800AD080196806CAD4801968
      002B40032D481B2B403986BFF50BD1B1BFD5359DDF858A9E7D3EA79E741C9C29
      238E5C0392E90C83B3246C242E6F6F38127A6BA6DB55F3179DA6A0A47A2E4E74
      585CCFA64AD32C529D1D1604660BDE3916E100F658F80D7CFF00468D5CBFDE76
      6F7FC3C866793E348B52D3E5900EEDF50C88240C40DE8C42EDD9BFA2BD6B8E9B
      8CBD994E582AC57959A9E4187D539BB9970CA98CA3AB088802DBCEE1E3AF9FFF
      00D236ECDB7D9567A7D265F14712C32397257CDD41F52CDB61E6DD638F8C970B
      7BECE802B863D52CC6D4636A3EFC799D91D85C949A6F81C8F43D256657459B24
      888E39BF98C8458F175ECD959CFACDD717C69EF1D56FA4417C4C938F811C28B1
      4104504502F0C2BE73A8EAF05724F793955CA4DD4EDB5B5B71E0B923AE849059
      89B740D82B9A32A9D9EEAEC32DAF440CB2DC10C19196FD44115F59D025FC67C9
      F5D55BD529BBA15F427866851ADCBD81FF0033FB8D5ECEF3F267E6F523E61BFE
      38818AD76947FBA7AC91CB7DFB850DBB47C75D48F1984848371B08DD52413E4C
      DC1CC8922D53061CF5885A33328620780EFAE6BBB484F8B477EDFA95DB4A916D
      0A6D414E3AE2E2C298B8A9E6C310E15FD95A59B1187230DC6F2E5D7593A969F0
      5DC0E76D617EBE3A803C4D7FE15E7F505EEF9CFA4E8AF9791FFF000F6A2B5E41
      F46095A10015A90015A000AD00056A400568002B40015A000AD4800AD000CB40
      449B1241277F8B21C7C906FC6BB9ADD0E371150D54CE76D48ABD7B9B358C0685
      F1D7B9CE896EEC76C0E9D36B0D87C06B6B691C376D389A4E58E734D6A05EEA26
      56B7E3F10DAADD6BE0AB4ED1CDAD434F14C3CDE3BDF749F5AB91C68690B99818
      25860CC208B16FA755344C9E6516BDF6741AA974C033A8F0D55964C665C9EAD9
      5A5B8D4ACE541893355577EDABBB666EE1165CB50BB4DAFD352AD994EE15595A
      9E1C6E434ABE117DB5B46D9CB3BA6079B79D96366C7C52CC483B813B7E6AE8B7
      1A22F62B328747D265D4045A86616B35C9C77FE22B3948F56CD84B8B34A22545
      E151603701599D4095A90015A000AD00D95A90015A000AD080196A40D95A000A
      D00056802C753DF0B6FB1FDC6AB73E164A3CEE60DFA73207FF00AF90DBFCB4B1
      F51FFB4EA9BFFAFE7351CE38B1666B9A3C328057DD01B6DC58802C4115E374AB
      8E0E5DF70ECB96D4DC6BD902BB46CB8F4FE56C3D4A48DE45C5D536AC6471F6E0
      2A386E08DE6BD1BF2A6EA98A3CFB71FE1E1E234DF0FF0051C6CBE7AD4E6C672F
      0E5639605978086502EA57AC579DFF00A8B696DA3DCCEDE932A5E67A1CA88CE0
      9505813626BE1AAD559F49093517E5189A257431B0ECB6C201B7ED1509BAD4DE
      B55C486608622444810B6D72A2C49F09E9ABB9B970262910F272628F603C4FD4
      3F8D6D089D0970333ADBBBC92331BF12A11D40035F51D03E1FDCF9AFFD042928
      F90A9D95F4C7CE16E5ADA0607FCCFEE357B7BCFC99F9BD48F9697D3881A7B5E6
      907FBA7FDD591C97BE16537D23E3AEA478ECE8A920E8A920E8A02C3E16660C6E
      7E98936595A388FF009EAEA3F6DABCDDE46B191F4FD2A795C3CE7BF95AF0CFAA
      04AD000568002B52400568002B40015A000AD4804AD000568002B52002B40015
      A0199608E4428EA194EF0775490D101B478E297BFC17389374B47B8F8D4ECA9A
      B339598BEC2643CC1ACE24223CBC65CA8D7CD786CAC07854D4A6BB4E5BBB57FE
      23839BB4E661C6ED0B8F392606E3E5B5AA7DD399D99A2C139AF4B283872918DB
      75F753DDC0CDC27888733C2C4F048A40E9A523814CB3C48B95CD18E82E664F9E
      A538AEC2AE137DA53E473AE14618F781C8E8173FC2B58CA3812AD4CCF64F39EA
      3A9650C3C58A4ED8367B15516F09152E71C0E8B7B693E6041A46A536DCD9B847
      4A2D989FF3AB2723B61B58AE689F1697850A8090AECE922E6FF2D56A742825C9
      0E9417BDB6D0B0256806D968002B52002B40015A000AD00D95A90015A10015A0
      00AD481B2B401E32FE38F137EE354B9F0B2D174679D4D013A04F2ABC6CAB9B27
      791890778A49B0E288D9ADE15B8AE8B16E93CD8C4995DFE2C9F354D6734FFF00
      5ED25954F08D1C8D82E770DB5F3BD317BB3FFF0043D7B8E8E3FEC2A70A03FF00
      FCD32E4036E3EA38F27FAB5D3BE953791FF6B472D88A9586F09265BF27B2E3FC
      46214596789881E1745ACBACC73EC57733A6CD16EEABB4F51665BDB71AF8047B
      F4A2F391A79155388900759ABC554D631A9519794CFB23ECAF5F49AE8840E9B5
      1A101D4DFA36D6CF82365CCABD561E290DCEF8FF007115EFF439526CF9AEBD1E
      117DC73DCD8FF5CFCD5F4D9D9F33423CAD6D0703C727F71ABE8777F933FD7623
      E527F4E20E94D7C8907FB993F70AC4E3BDF0B2ACF9C7C75D28F2584A093602E6
      8284D970F4FC38E39355CF87004A2F1895ACC475D8026D5CD7779083A367A1B7
      E9976EAAC5550A5C1438EB97893A65E2379B3447897FC95A5ABF19F2661B9D9C
      ED3A49149A1CF241AE67CD19E1923685D0F854B11549AAB68F46C4A96E2D1F4B
      691A845A9E998D9F17993A06B751DCC3E43B2BE7AE432C9A3EC2CDC538292ED2
      495AA1A82568002B40015A10015A90015A000AD00256A400568002B40015A000
      AD4800AD000568002B52066582391786450C3A8D08239D3B086E853E6142B916
      0352E9782ECACD0ADD775B65069C703AD858A77C4A7E4A91A71C06FD43114DC4
      2A0F8A84E541776ABB1401E2A12095A90015A01B2B40015A90015A000AD00056
      806CAD4800AD000568002B52002B4206CAD00056A40EE1465F29140DA6E07CC6
      A97393078FE42706A79408DA24941FB46BD1B5C6153292E3536FCEBA9C5A7EAB
      A44D2E2AE546FA6AC650928CBC43CE461E6B57CE744B79F3A7E33D5DECDAC94C
      0EE951097E1AEBAA2F612A3A03FCA01ACBA9BC9BFB75C0D3691FFAB3F28DF2FC
      F6E76D2A47EC975895F61045D7A41AE8EA307F652583A958DC5F71171C0F59DE
      6E6DC236015F9E5389F509D5D0A9D4661249C2A6E89B078EB684688EB8478102
      42AB606B546A860B5C81B80A9A167DC42D491C9571BB81C1FD95EDF439566783
      D7E14821DEE475B57D5D4F932A329ADA16078E4FEE357D1EEFF227FAEC47C8CF
      E9C40D1DAF9727FC193F7562CE4BBF0B2013DA3E335D0796C9DA142936A98F1C
      87B0580354B8E9135B31AC91DC7E62C8D031B079961C5C7D4B51D6333331F320
      C88C48562C77548E18CF9D1DAF7ECF58AF96949D73769FA042D2CB97924916F9
      A90FEA3C4C88B489B415D770A79B3F4B9B84012E3ED59D5410CBC7BBB48A7C15
      D3B49B57153B4E0EA36D4AC3AF1A72662633DCEBF971A8ECCB18727C28D616FB
      55EE49713E7EC3ADA5DCCF5CF843AF331C9D16671C2077F880EFFF0078A3F61F
      9EBCCDFDAE5247BBD26FF383F2A3D2C8AF30F6C02B52012B40015A000AD00056
      A4804AD000568002B40015A90015A000AD00056A400568002B40015A000AD480
      0AD000568002B5240D95A000AD00056A400568002B4036568002B52002B40015
      A000AD481B2B40015A000AD481B2B61B7E734200656B8B5ADD3D74243C695E0C
      98E6400BA30201DDF2DAA1AAAA02BF5BE50D0F5899F263B69B99279C6304C6EC
      DBC95B54C6ECE0A88513E650F3DF2F731E4BE36534293E2E1C2B8E8D8D726C9D
      245CDEB0E9D6E165BE7C5D4D6FDC73A771339765C28B9035B8B265589E425551
      CD8B3777B00076EFAF2BACA73DF5B71F851E86C72E84E32666B96353CFC9D6F4
      B19790F3FAAC91AC2643C45507D1B9DB6F1D7BBD45296DA75C3D479DB374B8AB
      CEA7B5EA1308A23BAE762D7E5905567DCD9E3C685300DF446DDE6BA6306F91D1
      2928AAB214899F2C842C5C2A0EFF003CFECB015D96F692671CFA8DB8F6D4E491
      B00C659E2C741B0F11E37F9156BD1B5D226DF1386F75D54A45508EF3E108268E
      1679646520CD2D9401BFB2A3A7657B1B5E9DA52523C4DD6FE57951937DD52FB6
      FF00A15E867EE382866735ADA1E078E4FEE357D2EEBF267E6F523E42E7D388D6
      86D7CC93FE0C9FB85652392E726432DB4F8EB63CEA0E6364BC13A4ABE721BDEA
      1AAA262E8EA5EE979F9783A83EA7A0E66262CD31324B8B9F09962495800F240C
      9DB8D9EDDA008AF1EEEC24A558F23E9B6FD5E0E196E56AB01ACCCF9FD6B2751D
      433FDE5ACE52089A755E08A1841B88E15DE05F793B6B7DAED1C5E6973393A875
      3538E482A44CA67FE1E7E3E5DEC9B6390836D8DB05FC00D774D71A9C1B497071
      2D34ED4F2B4ECF873715F8322070E87C23A0F80EEAA4E0A49A7DA755BB8E1252
      5CD1EE3CBDCFFCB9AB61249265C787956FC6C7C8611D9BA7859AC18755ABC3BB
      B59C1F2AA3EA2C6FEDDC5CE8FBCB81AD68AC2EB9F8CC3AC4D19FE358E4960CE9
      57618AFDC13ABE91EDD8FF009A9E5A64780D58E2813ABE91EDB8FF009A9E5A64
      780D58E2813AB693EDB07E6A796991E035638A00EABA57B6C1F9A9E5A64780D5
      8E2813AA695ED907E62796A723C06AC71401D534BF6C83F313CB4C8F01AB1C50
      2753D33DAE0FCC4F2D32BC06AC71401D4B4CF6B87F313CB4C8F01AB1C502751D
      37DAE1FCC4F2D32BC06AC71401D474EF6A87F317CB5395E035638A04EA1A7FB5
      43F98BE5A65780D58E28039FA7FB4C5F6D7CB4CAF01AB1C50073B03DA62FB6BE
      5A9CAF01AB1C50273B07DA62FB6BE5A65780D58E28039B83ED117DB5F2D32BC0
      8D58E28039985ED11FDB5F2D32BC06AC71409CBC3F4F1FDB5F2D4E5780D58E28
      039589E9E3FB4BE5A65780D58E280F5AC422FDF27DA14CAC6AC71401C9C5F4C9
      F68532BC06AC71409C8C6F4A9F687969958D58E28033E3FA54FB42A72B1A91C5
      0D3E440AACDC6AD6FA208BFC9B69958D48E2846583D22FCE29958D48E2803243
      E917E7153958D58E2802F17D75F9C532B1A91C5005E3FAC3E714CAC6A4714016
      8FEB0F9E94635638A0494FAC3E7A9A31A91C500787AC528C6A47140103AE9464
      6A47140114A31A91C50DAC288BC28A157A80B0FD94A13AB1C51D44172492B617
      5B0BDCDEA68C8D48E283134C3E91FB23C951946AC71414799346C1C17245F841
      1B05FC1BAA1C2A4EAC714332C3A66A38CF1EA784238A4537C958F8597886F600
      5AB2958AF15CCB6BC57368C2272EA693ABC793A7E74595044E0AF13047B03D20
      EC35D576372E5A941C5F1452DEEACC2E292947F747A445AEF2F66E43BE666AE2
      C6A3B036B963FE6DC0AF92B7FF009CBC9F15C0F7FF00FE8ECD384A3FB917F55E
      9F12B08A2819B6F0B3BDFC5702D5ECDAE88A1D8FF63CBBDD6B539CE3FBA2BB2F
      98E7C8BA9C98D233FECE32AABFB2BBE1B2CBCA2CE37BDB6FFCE3FBA2BDF2A063
      732A1F00616AD959960CA7DD5AF147F7436D3C077CABF6854E94F063EEAD78A3
      FBA1EF58C2F4FF00EAF96ABA33C09FB9B5E28FEE883A8B5B44C1F1C9FDC6AF7B
      75F913FD7623E5EEFD388D682D7CD93FE049FB856323967C9915BCE3E335AD4F
      3CE5E8057F0D00B8A8009A2596268DB73543552D0938BA808932C20C8360ECF1
      7EEAA9DB1B8A4212106E0906A6859325A6B1A822F0ACCC075551DB468AF491DF
      7DEA5E9DAA34A24EBCB13BEFAD4BDA1A9A511AF2C4E7BEB53F686A69446BCF11
      7BEB53F686A694701AF3C45EFBD4FDA1A9A511AF3C45EFBD4BD3B534A235E588
      BDF5A9FB43534A380D796277DF5A9FB43534A235E789CF7D6A7ED0D4D28E035E
      789DF7D6A7E9DA9A511AF3C45EFAD4BDA1A9A511AF2C4E7BEB53F4ED4D288D69
      E22F7DEA7ED0D4D288D79E277DF5A9FB43534A235E589CF7D6A7E9DA9A51C06B
      CB117BEB53F686A69446BCF117BEB53F4ED4D288D79E277DF5A9FB43534A235E
      789CF7D6A7E9DA9A511AD2C4EFBEB53F4ED4D288D796273DF5A9FA76A69446BC
      F117BEB53F4ED4D28E035E788BDF5A9FA76A69446B4F13BEFBD4BDA1A9A511AF
      2C45EFAD4BDA1A9A511AF2C45EFBD4BDA1A9A511AF2C4E7BEB53F686A694701A
      F3C45EFAD4FDA1A9A51C06BCF117BEB52F686A694701AF2C45EFBD4BD3B534A2
      35E588BDF7A97A76A69446BCB117BEF53F4ED4D288D79E22F7DEA5E9DA9A511A
      F2C45EFAD4FD3B534A235E588BDF5A9FA76A694701AF2C45EFBD4FDA1A9A511A
      F3C409B54CE99786499997AAF52ADC5722AEEC9F3646E3ABD0A0B8E805C74A01
      71D00B8E9402E3A501DE2A8A172CB536B68B83E393FB8D5AEE7F227E6F5235BB
      F4E245D17261C7CA96599C2208241C47C205633E472CB950AD6D734CE23F8EBB
      E9A8B132FB4B980275CD33D32D351624FDA5CC0E7BF34DF4EB51A8B11F697301
      7BF34DF4CB4D4588FB4B980435CD33D3AD4EA2C48FB4B980EC3CC5A7C6DC4275
      F11DD4CE82DADC5D84B8F98B955BB53C08CD6B7619906CF0295155CCB13656EE
      F843FD43C9BECC3F365FBD515EF2725CF08BF507267B30FCD97EF54D7E6192E7
      845FA83933D987E6CBF7A95F9864B9E117EA1E4DF661F9B2FDEA8AFCC325CF08
      BF50F267B30FCD97EF52BF30C973C223CC3C9BECC3F365FBD539BBC69DCF09CF
      D43C9BECC3F365FBD4CDDE34EE7845FA87937D987E6CBF7AA33778C973C22FD4
      3C99ECC3F365FBD539BBC69DCF09DFD43C9BECC3F365FBD515F9864B9E117EA0
      E4CF661F9B2FDEA57E6192E7845FA83933D987E6CBF7AA6BF30C973C22FD43C9
      9ECC3F365FBD4AFCC464B9E13BFA87937D987E6CBF7A95F9864B9E139FA83937
      D987E6CBF7A95EF192E7845FA83933D987E6CBF7A99BE6192E784E7EA1E4DE8C
      61F9B2FDEA8CDDE4E4B9E117EA0E4EE9C61F992FDEA57BC64B9E117EA1E4CF66
      07FE6CBF7AA737CC34EE7845FA8793BA3147E6CBF7AA33778D3B9E117EA1E4EF
      671F9B2FDEA66F9869DCF08BF50F277B30FCC97EF5337CC325CF09DFD43C9BEC
      EBF9B2FDEA57E6192E7845FA87933D987E6CBF7AA6BF31192E784EFEA0E4CF66
      1F9B2FDEA57BC64BBE13BEFF00E4DF661F9B2FDEA57BC64B9E13BEFF00E4BF66
      1F9B2FDEA9AFCC464BBE117BFF0092FD987E6CBF7A95F9864BBE110D7F92BD9C
      7E6CBF7A95F9864BBE13BEFF00E4AF671F9B2FDEA57E6192EF845EFEE4AF661F
      9B2FDEA57E62325DF08BDFDC95ECC3F365FBD4AFCC4E5BBE139EFF00E4AF661F
      9B2FDEA57E6192EF84EFBFF92BD987E6CBF7A95F9864BBE117BFF92BD997F365
      FBD4AFCC465BBE117BFB92BD987E6CBF7A95F9865BBE117BFB92BD987E6CBF7A
      95F9864BBE13875FE4BF661F9B2FDEA57E62725DF08BDFFC97ECC3F365FBD4AF
      78C977C273DFFC97ECC3F365FBD4AF78C977C22F7FF25FB30FCD97EF52BDE325
      DF08BF50725FB30FCD97EF5457BC64BBE117EA0E4BF661F9B2FDEA57E6192EF8
      45FA8392FD987E6CBF7A95F9864BBE13BEFEE4EF671F9B2FDEA8AF797C977C23
      9AB1B68B83E393FD76AE9DCFE44FCDEA46D77E089484AB0B30054EF0768F9AAB
      439ABFB8D7ABE2FA18FEC2F92A32A2DA92C58BD5F17D0C7F617C94CA86A4B162
      F57C6F411FD85F2532A1A92C58BD5F1BD047F617C94CA86A4B162F57C5F431FD
      85F2532A1A92C59DF57C6F411FD85F2532A1A92C45EAF8DE863FB0BE4A654352
      588BD5F1BD0C7F617C94CA86A4B117ABE37A18FEC2F929950D49622EE31BD0C7
      F617C94C886A4B117ABE37A18FEC2F929950D49622F57C6F411FD85F252886A4
      B117ABE37A08FEC2F929950D49622F57C6F431FD85F2532A1A92C45EAF8DE863
      FB0BE4A654352588BD5F1