unit1.dfm

在企业系统运行过程中,会有大量文件生成,在西药以日期为索引的情况下就需要根据日期动态创建文件,这里提供了一个参考例程

      C9B6C5CAB7C6CDBAC9CCBCCDC7BED2C3BFD2BFBBCEBEB8CBC4BED1D3CBDCDDD2
      E6DED3E7DDD0E6E7D9F1ECDDF8E7D8F7DECFEFD7C6EBD0C2E6CCBEE2CEC0E400
      0000B3AFBBB8B0C1BDB4C8C3B9D0C6BBD5C4BAD8C1B9D7C5C0DDC8C7E1CED2EA
      D5DFF1D9E8F8DEF2FDE3FBFFE7FFFFEBFFFFE6FFFFD6FBFFC6F6FCB7F6FEADF9
      FFA0F9FF92F5FF94FFFF8EFBFF86F4FF81EBF67DE2EB76D8E071CCD37AC2CC96
      BFCE9DB5C791A8B88CA1B094A5B2576571727C8682899280828C7D7C85837E87
      5E555F8A7C88A1909D9B8996A7949DA18C8E9E8A89A4908F735F5E8D7A77A693
      90A2918EA59491A293909F908DA29692A59995AB9F9BA195915F534F9E8D91A7
      8AA39F809FA589A7B195B3B49BB7AE95B1A38CA8AA94B06B566F2B183125122B
      96839CB5A5BDAE9EB598879CB09BAAB097A5674D5BB096A4BCA2B0BEA4B2C0A6
      B4B89EACC1A8B6B7A0AEC0ACB93F2D3A5D4C59B7ABB7B9ADB9B8AAB5C0ACB1C8
      B1B5C2ABB07A64696A565BAC9AA1BEB0B6B7AAB2B9AEB8B9B0BABCB4BFBAB6C2
      BBB7C3BBB8C7BFBCCBBFBECEC9C7DAC8C6DAC2C0D3BDBBCEBFBECEC9CAD8D5D7
      E2DADFE8D6DCE7DFE8F2E3EFFBDAE8F4CCDCE9C3D3E3BED1E0BFCDE0BDB7D600
      0000B3ACB9B7B0BFBDB5C6C1B8CDC5BBD2C4BBD6C2BBD6C4BFDAC7C7DFCCD1E6
      D2DCEED8E5F3DEF1F9E3F9FFEAFEFFEDFCFFE8F8FED8F2F9C6EBF3B6E9F3AAEC
      F79DECF98EEAF783E9F582F1FB87FAFF8AFFFF89FFFF83FBFB7DF4F381EDEE8C
      E1E98DD5E189D0DA85C8D183C2CA629CA27EB2B87FADB48FB5BA8EAEB492ACB3
      7E939B8795A19DA6B3949CA99D9FAAA6A2A79E9697A69E9F968E8F9189899B93
      93958C89988F8B9D9490938B848E867F958C83A79E95A2998F8C83799F8F90A4
      87A0AD8CAEA786A89C7D9E997A9B9C809EA387A59E84A2A48AA89F88A48E7793
      AB95B19E88A4A28DA6AD97AFA48B9FA68A9D74586BA88A9DB597AAB597AAB898
      ABB193A6B193A6AA8EA1BAA0B27D6577947E90B7A4B5AD9BACAE9DA8B49F9EB9
      A39EBDA9A49784818C7A79B1A1A2B8AAACB0A5A8AEA4AAADA5AFAEA8B3AEAAB6
      AEABBAAEADBDB1B0C0B3B1C5C3BDD6C6BFDAC7C1DAC3C0D6C3C1D5C7C5D8CDCE
      DCD0D4DFDFE8F1E5F3F9E6F9FEE0F3FAD2EAF0C9E3E9C0DDE2C1D5E0C1BED700
      0000B5ACB9BAB0C0BEB4C5C2B6CCC3B9D0C3BAD4C2BCD5C4C0D9C9C6DFCDD0E5
      D2DAEBD8E3F1DBECF5E1F4FBE5F8FFE4F4FAE4F1F9DCEAF6D3E0EECCDAECC8D9
      ECBED5EBB4D1E6A9CEE2A3D3E59CD7E696DDE792E3EA91EDEE94F7F58CFFFC72
      FAF965F7F771FFFF79FFFF7AFCFB6DE8E67CECEC72D8D76ECBCC74C7C97BC3CA
      7AB9C173ABB681B3BF7BA8B583A6B492A0B28D91A39599AB9DA0AF9093A19798
      A69595A19A99A3A19FA5A19DA29B959A918A8D8F8788837B7B9086869A8B8F97
      7D8B9D8090A38696A98C9CAA8D9DA78A99A487969E8492A187959D8390927885
      A78D9AA18794A38996AA909DAF919EB2919F987785AD8A98B592A0AD8A98AF8B
      99AF8B99B5919FBD9AA8B895A3B392A0C2A4B1B397A4B89CA9AC969BAA9D95A4
      9B8EB1A89EB0A79EA99F98B1A6A2B0A4A4ACA1A3AFA3A9B2A4AFB4A5B3B6A6B7
      B4A6B8B5A6BBB8A8BFBAA8C5C3B2D7C5B5DECCBDE3D3C2E7D7C8E8DACCE8E1D4
      ECE5DCF0F4EEFFF7F5FFF8FAFFF4F9FFEFF6FFE7F0F9DAE6ECD1D8E1D0CBDA00
      0000B5ACB9BAB0C0BEB4C5C1B5CBC3B6CEC3B8D2C3BAD4C5BED9C7C4DDCDCEE3
      D1D7EAD6DEEFD7E4F2DAEAF6DDEEF7DAEAF6DCEAF6DCE4F5D8DCEFD9D7EDDAD4
      EDD4CDE8CBC6E1D1D0EAC7CEE7BACBE0ABC8D79FC7D397CBD296D0D586D7DA78
      EBEE66E8ED6DF0F373F4F779F7F87EF8F886FCFD80F2F28CFAFA91FAFD94F7FB
      92F2F88FEAF18DE6F088DEEA8DDBEB83C5D87FB8CE7FB6CB82B7CC76A8BC75A3
      B5749FB0779BAB7293A27E9BA9869EAA90A4AF93A6AE8C9CA38B98A0818C9495
      9AA385878F83838988858E8E8A90928B92938C919588909F9197A3939AA19094
      A8939BA28C91A08890A38C91A89196AB9499A98F95A3898FAE9298A68A90AA8B
      92AF9097BD9EA5D2B3BAB09198B1959BB89EA4A99297C4ADB2B19FA0ACA29BA0
      9A8FAAA39AB3ADA6AEA8A3A9A29FA7A1A2A6A0A5AAA2ACACA4AFADA6B5AEA6B7
      ADA7BAAEA7BCB0A8BFAEA9C6AFAED5ADAFD8B4B4DCBFBEE5CCC8EBD7D2F1E4E0
      F9F0EBFFF8F5FFFBF8FFFDFBFFFBFCFFFBFCFFF7FAFFEAEDF5D7E0E9C9DDE800
      0000B7ABBDBCB0C2BFB3C7BFB2CAC1B4CEC2B6D2C2B9D4C2BAD8C6C1DCCDCAE4
      CFD1E9D2D7ECD4DBEED4DEEFD4E1F1D4E2F4D4E2F5D5DEF2D3D7EFD4D3EDD6D1
      EED5CBE9D0C4E2CBBFDDCCC0DCCCC1DBCDC3DACAC3D8C7C4D4C3C3D1BAC1D0B1
      C7D9A4C3D89FC3D596C1D295C6D49AD5DF99DCE598E6ED92EAF092F2F886F1F5
      7CEEF481F9FF70EDF570EFF86CF2FC63F4FF60F4FF61F2FF60EDFC6DF1FF6DEC
      FB78EEFF79E5F67FE1F17CD7E66FC1D272BDCD75BACB7BB9C96AA6B6619DA957
      969E6AA7AB6EA7A96CA0A66E9B9F749A9F7D9BA0859AA28A979F8A8F988E8D96
      98909BA0959FA695A2A79AA29D98979C9995A9A4A1968F8CA9A09DA39A97A79B
      99AEA19FA59896BFB2B0ADA09EB7ABA9BEB2B0B1A8A5BBB2AFACA3A0B6AAAAB3
      A5A7B4A7A9B9AEB1B2ABAEB1ADB2B4B3BCA6ABB49FA7B49FAAB89EADBD9DAFC0
      9AB0C29AB2C69CB5C999B8CF95BFDC8DBBDA93BED9A0C8E1AFD1E8BBD9ECCBE2
      F2D9EAF7EDF9FFF4FDFFF8FDFFF8FEFFF9FCFFF8FCFFF1F5FAD3EFF6AEF9FF00
      0000B9AABFBFAFC6BFB2C8C0B1CCC0B2CEC0B4D2C3B7D5C2B7D7C6BEDCCBC7E4
      CFCEE8D0D1EBD1D3EBD0D4ECD0D6EDD2DCF4D2DBF6D2D6F2CDCFEDCFCDEBD1CA
      EBD0C5E6CEBFDFD3C2E3D4BFDFD3BBD9D4BBD7D6BCD4D7BDD4D8BDD1D5BBD2D3
      BAD4D5BEDAD0BFDAC5BBD2BAB8CEB0BCCE9EB5C5A2C5D38EBECA8DC9D582CAD4
      79CBD68EE8F37BDDE981E7F480F2FF6EF1FE6DFBFF6AF7FF5FE9F575FBFF72F4
      FF7BF8FF73EBF778EAF784F1FF85EEFC8AEFFE86E6F691F0FF88E5F499F7FF93
      F6FE8DF1F58BECEF87E5EA84DFE386DADF86D7DA81CBD182C6CB80C0C583C0C4
      84BBC285BCC181B3B97BB0B37EB4B477B0AD89C0BD6BA09D82B4B27DAEAC7DAC
      AA80AFAD82B1AF81B0AE74A3A17EADAB85B6B486B7B58CBEBC9FCFD092BBBE9B
      C1C69AC0C598BFC796C0C79FCDD4A8D7DF91C4CE9DD1DD9DD4E19FD9E59FDCEA
      9FDEECA0E1EFA3E4F3A2E7F6AAF2FFA4EDFBA8EEFBB6F6FFC5FCFFCBFAFFD3F9
      FEDCFAFFE5FBFFEFFFFFF4FFFFF4FDFFF2F8FDF5F9FEF4F8FDDCF8FFABF6FF00
      0000BFADC4C3B0C9C2B1CCBFB0CCBFB0CFC0B3D3C3B6D6C8BDDEC7BFDEC7C1E0
      C9C4E3CCC7E6D0CCE9D1CFECD1D2EECDCFEECECFF1D1D0F2D3CFF2D3CCEFD1C7
      EBCFC3E7CEC0E4D0C0E2D0BFE0D0BEDDCEBCD9CEBDD8CFBFD7CEC1D7D3C1D8D4
      B9D3D7B8D3D4B7D1D1B7CFCEB6CECBB8CDC9B8CDC6BACEC0B7CBBCB7CCB9B7CD
      B5B7CFB3B7D0B0B7D2B0B7D2A9B9D0A3C0CE9DC4CC9EC8CF9ECCD49FD3DAA0D9
      E2A0DFE79AE2EA9DEBF298EDF595F0F98EF0F888EFF883EEF680EFF97FF1F87F
      F1F87BF0F776F1F572F0F56DF0F367F0F263F2F063F7F75FF8F559F8F454F9F2
      51F9F34CF9F14BF8F04BF7F353F4F856F3FC58F3FC5BF4FD5EF4FE60F5FF62F5
      FF62F5FF64F4FF66F6FF65F8FF62F5FF5FF4FE5FF4FE5FF5FF5FF5FC67FCFF61
      F4F65FF2F467F8FA6BFAFD6CF7FA6EF6FA74F9FD78FAFF78F6FB76F2F878F2F8
      7DF5FB82F7FE84F8FF8CF7FB9AF7F6A7FBF7ABF8F4B2FAF4C1FFF9C6FAF3CFF9
      F2E3FFFFE4FFFBE9FEFBF0FEFCF5FFFFF7FFFFF2F9FCEAF1F4DFE9F0CCDFEE00
      0000BBA6BFBEA9C2BEABC6BCAAC7BBABCABEAFCFBFB2D2C7BCDCC8BDDEC7BEDF
      C9C0E1CCC3E4CFC6E7CFC9E8D0CBEBCBC7EACDC9EDD2CAEFD6CAEED9C7EEDAC5
      EBDBC2E8D9BEE5D4BADED3BADCD1BADACCBAD7C9BCD6C4BBD5C3BDD4C7BDD4D5
      BFD7DABDD6D9BCD5D9BCD3D8BCD0D7BBCFD9BBCED9BBCED6B6C9D5B4C9D7B3CB
      D7B2CCD7B1CDD6B0CCD6B0CED4B1CBD4BAC7D1BCC4CDBCC5C9BEC6C1BEC7B8C0
      C7AFC0C9A5C1C89EC5CE97C8D290CBD586CBD580CAD67ACAD574CAD675CBD77A
      CEDA7ED7E282DFE884E6F084EFF683F5FB7FFAFC75F8FB6EFAF969FBF961FCF7
      5BFDF857FDF655FDF656FBF85DF6FD5FF3FF60F1FF62F2FE64F1FF66F2FF68F3
      FF6BF5FF65EEFE66F0FD68F1FF69F5FF6CF9FF6EFBFF6AF9FF67F7FF69F9FF67
      F8FF68F6FF6AF7FF6BF6FF6CF3FB6EF1FA75F4FC7BF7FF7FF6FF83F6FF8AF9FF
      8EFBFF8FFAFF8BF5FC92F0F5A5F1F0B0F1EFAFECE8B3EAE7C0EDEAC2E7E3C9E6
      E3DCF1EFEEFDFFF1FDFFF4FAFFF6F9FFF4F6FFEEF0FBE3E7F2DFDFEDE5DCF000
      0000BBA7BEBEAAC1BEABC4BEAEC6BEAFCAC1B3CFC2B6D4C4BAD8C5BADAC6BBDB
      C8BDDDCABFE0CCC1E2CEC3E4CDC4E5C7C1E4CAC3E6D2C4E8DBC5E8E5C3EBEBC2
      E8EEBFE6F0BDE3E9B6DCE5B7DBDEB9DBD6BAD8CCBBD6C4BBD5BEBCD2BDBCD0C3
      B8CCC7B7C9C7B7C9C8B6C7C9B6C5C9B6C5CCB8C5CEB7C5D3BAC8D6B9C8D8B9C8
      D9B7C8D9B6CADAB4CADAB3CCDBB4C9D9B5C1D9B7BED9B7C1D6B8C3D3B9C6D0BA
      C6CAB9C7C4BAC7BFB9CABCBCCEB7BDD0B4BDD1ADBBD1A9BACFA7B9D0AABBD0B0
      BBCFB1BBCDAFBCCCACBACCAABACAA7BAC9A5BBC7A6C0CEA5C1CCA3C1CCA0C1CA
      9EC1CB9DC2CA9DC2CA9DC2CAA7C6CFA6C3CCA4BECAA3BCC6A3BBC7A7BDC8AAC0
      CCAEC2CDB5C8D5AEC4CFAAC0CCA9C2CCABC5D1ABC6D0A6C2CDA0BDCBA8C4DCAB
      C9E2AFCCE7ADCBE4ABC9E2ACCBE2AECDE4AFCEE3A8C7DCAACADDAECEE1B2D3E3
      B5D7E7B6D8E8B4D5E4B3D2E1B8D1E1BED2E3BECEDEC4D1E1D4DBECDCDCECE4DE
      EFF2EAFBF8EDFFF7EBFFF6E9FFF3E8FFECE5FFE4DFFCDBD6F5D7D2EFDBD0EA00
      0000B8A4B7BBA7BABDAABDBEADC2BDB1C5C0B3C9C1B4CCBEB3CDBDB4CEBFB6D1
      C3B7D3C5B9D7C9BAD9CABBDAC9BCDCC9C1E0CAC2E1D2C3E2D9C4E4E1C4E5E5C3
      E2EAC1E1EABFE0E6BCDBE6BDDCE2BFDADDC0DAD5C0D9CDC0D6C8BFD4C6BDD1CB
      BDCFCFBDCECFBECCCFBECBD0BFCAD1C0C9D5C2CBD7C2CACFBAC2D1BAC2D1B9C1
      D1B8C2D3B7C4D2B6C3D4B5C4D6B5C3D6B0BCD8B0BCD9B1BDD9B2C1D9B5C3DBB7
      C7DCBACBDCBCCDD9BBCED7BDCFD8BCD3D3BCD2D0B9CFCCB6CECBB5CDCCB6CECE
      B7CDCFB6CACFB7C9CEB6C8CEB6C8CDB5C7CFB5C5CEB4C4CEB4C4CEB4C4CEB5C3
      CFB6C4D0B6C4D0B6C4D0B6C4DCBECBD9BBC6D6B6C1D2B2BDD3B1BCD5B3BEDAB6
      C2DDB9C5DCB8C4D5B3BED3B1BCD5B5C0DABCC7DDC2CCE1C6D0E3C9D7D2B7CBD9
      BDD4D9BFD6D6BCD3D4BDD3D7C2D8D8C3D9D3C0D5DCC9DEDAC9DED8C9DED7CBDF
      D9CDDFDAD0E1DDD1E3DAD1E5D1CDE6D3CEE9CFC8E3D4C8E4E4D3EEE8D5F0E9D3
      ECF1DBF4F6DFFBF5DFFBF2E0FDEEDFFEE8DDFDDFDAFAD8D4F7D7D2F2D8CAE600
      0000BDA9B5BDABB8BFAEBBC1B3BFC0B6C2C2B8C5C1B7C7C1B9CAC2BACBC5BCD0
      CABED4CCBFD7CFC1D9D0C2DAD0C2DAC8BBD3C7BED3C6BFD4C4BFD4C4C0D3C1BF
      D2C0BED1BFBECEC1BECEC6BECFCABED0D0BDD0D2BCCFD4BACCD5B7CAD5B5C8D8
      B6C7D8B7C6D4B6C3D1B6C0D0B5BECEB7BCCEB7BBCEB9BBD5C0C2D3C1C2D1C1C2
      CFC1C2CFC1C3CFC1C3CEC1C3D1BFC6DCBDCCDEBACBDBB7C8D9B5C6D9B5C6DBB7
      C8DFBBCCE1BDCEE1BDCDE2BECEE3BFCFE1BDCDDEBACADBB8C6DBB8C6D7B8C7CA
      B7C6C9B9CACABBC9CDBCCACFBECCD0BFCDD1BFCCCDB9C6CDB9C5D0BAC6D0BAC6
      D1BBC7D4BCC8D4BCC8D5BBC8DAC0CED9BCCCD6B6C7D2B2C3D3B1C2D5B3C4D8B6
      C7DAB8C9D9B9CAD6B6C7D4B7C7D8BDCDD7C0CFD4BFCED5C0CFDBC5D1E0CBCDE3
      CECCE4CCCCE1C9C9E0CACCE2CCCEE0C9CEDEC4CAE9CED7E9CED8E6CCD9E4CAD7
      E2C8D6E1C7D5E2C5D4DBC5D8D0C2DED0C5E5CEC1E1D4C4E3E7D3F0EFD9F2EED6
      EEF1D9F1F4DDF3F2DFF4EEDEF5E9E0F5E1DFF3DBDCF1D5DAEFDAD7F0DDCBE800
      0000}
  end
  object DirectoryListBox1: TDirectoryListBox
    Left = 16
    Top = 120
    Width = 193
    Height = 79
    ItemHeight = 16
    TabOrder = 0
  end
  object DriveComboBox1: TDriveComboBox
    Left = 16
    Top = 94
    Width = 193
    Height = 19
    TabOrder = 1
    OnChange = DriveComboBox1Change
  end
  object Button2: TButton
    Left = 240
    Top = 214
    Width = 225
    Height = 25
    Caption = #36864#20986
    TabOrder = 2
  end
  object DateTimePicker1: TDateTimePicker
    Left = 16
    Top = 56
    Width = 193
    Height = 17
    Date = 38340.437615740740000000
    Time = 38340.437615740740000000
    Kind = dtkTime
    TabOrder = 3
  end
  object DriveComboBox2: TDriveComboBox
    Left = 256
    Top = 56
    Width = 201
    Height = 19
    TabOrder = 4
    OnChange = DriveComboBox2Change
  end
  object DirectoryListBox2: TDirectoryListBox
    Left = 256
    Top = 80
    Width = 201
    Height = 121
    ItemHeight = 16
    TabOrder = 5
  end
  object Button1: TButton
    Left = -32
    Top = 208
    Width = 105
    Height = 17
    Caption = 'Button1'
    TabOrder = 6
    OnClick = Button1Click
  end
  object Button3: TButton
    Left = 112
    Top = 216
    Width = 105
    Height = 25
    Caption = 'Button3'
    TabOrder = 7
    OnClick = Button3Click
  end
  object Timer1: TTimer
    OnTimer = Timer1Timer
    Left = 64
    Top = 8
  end
end