unit1.~dfm

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

object Form1: TForm1
  Left = 197
  Top = 196
  Width = 476
  Height = 269
  Caption = #25968#25454#27599#26085#33258#21160#22791#20221#31995#32479
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Bevel3: TBevel
    Left = 12
    Top = 34
    Width = 209
    Height = 168
  end
  object Bevel2: TBevel
    Left = 8
    Top = 30
    Width = 457
    Height = 177
  end
  object Label1: TLabel
    Left = 152
    Top = 6
    Width = 171
    Height = 20
    Caption = #25968#25454#27599#26085#33258#21160#22791#20221#31995#32479
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label2: TLabel
    Left = 16
    Top = 38
    Width = 129
    Height = 13
    AutoSize = False
    Caption = #25351#23450#22791#20221#26102#38388#65306
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label3: TLabel
    Left = 240
    Top = 38
    Width = 129
    Height = 13
    AutoSize = False
    Caption = #22791#20221#30913#30424#20449#24687#65306
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label4: TLabel
    Left = 16
    Top = 78
    Width = 129
    Height = 13
    AutoSize = False
    Caption = #25351#23450#22791#20221#36335#24452#65306
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Image1: TImage
    Left = 224
    Top = 104
    Width = 25
    Height = 33
    Picture.Data = {
      07544269746D6170B63A0000424DB63A00000000000036000000280000008000
      0000270000000100180000000000803A00000000000000000000000000000000
      0000A7A6A8AAA3A6ABA1A7A69FA4A09EA4979DA4929CA38E97A08F98A29598A6
      969EAB96A7B492B2BD8ABDC786C4CCA1DFE9A9E7F1B7F2FBC2F8FFC9F8FCCEF7
      FAD8F7FAE1F8FAF1FFFFF6FFFFFDFFFFFFFEFFFFFDFFFEF4FAF5E7EDEBDCE4DF
      CFE0DBCDDFDACADCD5C5D7D0C0D1CCBCCDC9B9CAC7B8C6CAB9C7C7B9C5C9B8C5
      C8B8C3C8B8C3C9BAC2C9B9C4CABBC3C8B8BFC8B8BFC7B7BEC7B7BEC6B6BDC6B6
      BDC6B6BDC5B5BCC0B0B7C1B1B8C3B3BAC5B5BCC6B6BDC6B6BDC5B5BCC7B5BCCB
      B9C0CBB6BEC9B4BCC9B2BAC7B0B8C6AFB7C5AEB6C7B0B8C8B1B9C8B1B9C9B2BA
      CAB3BBCBB4BCCCB5BDCAB5BDCAB8BFC7B7BEC4B4BBC1B1B8BFAFB6BFAFB6C0B0
      B7C1B1B8BEAEB5C2B2B9C5B5BCC4B4BBC1B1B8C0B0B7C3B3BAC7B7BEC4B4BBC3
      B4B8C3B3BAC5B6BAC5B7BDC5B7BBC2B4BABDB2B5C0B4BAC2B7BAC2B8BEC4BBBE
      C4BAC0C4BBBEC2B8BEC1B8BBC4B9BCC4B9BBC3B8BBC3B8BAC2B7BAC2B7B9C2B7
      BAC1B6B8BFB4B7BFB4B6BFB4B7BFB4B6BEB3B6BBB0B2B7ACAFB5A7ABB7A8AC00
      0000A5A6AAAAA3A8AB9EA6AC9BA4A698A3A098A39498A38E9FA885A4AD80ABB4
      81B8C189C8D091DAE29BE9F0A6F1FAB1EFFABBF0FDBFF1FDC0EEF9C1EBF2C8EA
      F0D5EFF5E1F4F9F1FDFFF5FCFFFBFCFFFFFDFFFFFBFFFCF2F8F0E3EBE4D6E1DA
      CADCD9C7DED6C4DBD4C3D8D1C0D5CEBED0CDBACDCCBACBC9B7C8C9B8C6C9B6C5
      C9B7C4C9B7C4C9B8C3CCB8C4CCB8C4C7B4BDC6B4BBC8B3BBC6B4BBC7B2BAC4B2
      B9C6B1B9C4B2B9C4AFB7C4B2B9C8B3BBC8B6BDCBB6BEC9B7BECAB5BDC9B4BCC5
      AEB6C6AEB6C7AFB7C7AFB7C8B0B8CAAFB8C8B0B8C8ADB6C6AEB6C7AFB7C8B0B8
      C9B1B9CAB2BACAB2BACAB3BBC9B7BEC5B5BCC3B3BAC1B1B8C0B0B7C1B1B8C2B2
      B9C3B3BAC1B1B8C4B4BBC6B6BDC2B2B9BDADB4BBABB2BEAEB5C2B2B9C3B3BAC2
      B2B9C2B1BAC4B4BBC5B6BEC4B6BCC2B3BBC0B2B8C0B3BBC3B7BDC6B9C1C7BDC3
      C8BDC5C6BCC2C4B9C1C3B9BFC2B6BCC2B7BAC2B6BCC1B6B9C0B4BABFB4B7BFB3
      B9BFB4B7BEB2B8BDB2B5BEB2B8C1B6B9C3B7BDC2B7BABCB0B6B8AAB0B9A9B000
      0000B09DA6AA9BA3A395A0A1939EA395A1A295A39396A4789CA471B5BA6FD9DA
      76F2F280FCFC8BF9FD9EF3FBAFEEFCB1DFF0B5D9EBB6D8E8B9D8E7BDD7E3C1D7
      E2D2E2E9E3EFF5F2F8FFF6F9FEFAFAFFFCFAFFFBF7FDF6EFF6EDE4EEE7DDE9E5
      D4E9E3D0E9DDCAE3D5C2DBD1BCD5CEBAD1CCB7CDC8B4C7CCB8CBBDAABBCAB5C4
      C5B1BECAB6C3D3BFCCC4ADBBCCB6C2C4AFB8C6B1BACFB7C1CDB8C1C8B0BACCB7
      C0CEB6C0C0ABB4C8B0BAC8B3BCCCB4BECCB7C0CEB6C0C9B4BDC8B0BAC6AEB8C6
      ABB5CAAFB9C9AEB8CCB1BBCFB4BECFB1BCC8ADB7CCAEB9CAAFB9C5AAB4C0A5AF
      C4A9B3CEB3BDD0B5BFCAB1BBC1ACB5C7B4BDBEABB4C0ADB6C3B0B9BCA9B2C6B3
      BCBBA8B1C0ADB6C3B0B9C4B1BAB8A5AEB7A4ADB9A6AFB5A2ABC1AEB7BCABB4C2
      B1BAC4B3BEC3B2BBC5B4BFCBBAC3C8B8C3C1B2BABEAEB9BDB0B8C1B3BEC7BAC2
      C7B9C4C2B5BDBDB2BCBFB4BCC3B6BEC5B7BDC4B5BDC3B5BBC3B4BCC2B4BAC1B2
      BAC1B3B9BFB0B8C0B2B8C1B2BAC3B5BBC2B3BBC0B2B8BEAFB7BCADB5BCABB400
      0000AA94A0A4949F9B939E92939D8F99A38EA7B188B6BD8ED7DB81E2E576EEEE
      73F3F277ECEF80E4E992DAE6A1D4E4AFCCE1B0C5DAB2C5DABBCBDCC4D1E1CCD5
      E3D8DEE9E6E8F2EFF0FAF1F0F9F4F1FAF3F0F9F1EBF6EAE4EFE1DBE6DED4E4DE
      CEE6DCC9E4D6C3DED3C0DBD5BFDBD1BCD5CAB4CCC1ACC2C4AEC1C2ACBED0BACC
      C3AEBDBFA8B6C5AEBCBDA6B4C9B3BFD1B9C3CBB3BDC1A9B3C3ABB5BBA3ADC9B1
      BBCCB4BECBB3BDC7AFB9C8B0BACAB2BCCBB3BDCAB2BCC8B0BAC5ADB7C4ABB5C4
      A9B3CBADB8CBADB8CEB0BBD1B3BECFB1BCCAACB7BFA1ACC0A5AFC3A8B2C5AAB4
      C9AEB8CDB2BCCDB2BCC8AFB9C3AEB7C0ADB6B4A1AABFACB5B8A5AEBBA8B1BBA8
      B1C0ADB6C7B4BDBDAAB3B6A3ACB3A0A9BAA7B0C0ADB6BAA7B0B7A4ADBFAEB9BD
      ACB7BAA9B4B9A8B3BBAAB5BEADB8BAAAB5B4A4AFB3A3AEB7A7B2BBADB8BFB1BC
      BFB1BCBFB1BCC1B6C0C8BAC5C4B5BDC4B5BDC4B5BDC4B5BDC3B4BCC2B3BBC1B2
      BAC0B1B9BFB0B8C0B1B9C2B3BBC3B4BCC2B3BBC1B2BABEAFB7BEADB6BCABB600
      00009B919D968C989395A088A5AC7CBCBD74DBD874F2EC73F4EF78EDEC88E0E6
      93D4DD9DCAD7A1C6D49DC6D5A3C4D7B7C3DBBABED6BCBED6C6C7DBD2D2E4DAD9
      E9E4DFEEE9E5F1EDE6F3EEE8F3EEE8F3ECE6F1E6E2EEDFDBE7D8D4E0D6CEDFD6
      C7E2D3C1DED0BEDBD3C2DDD9C6E1D5C2DBCCB8CFC3AEC4C3ADC0C6B0C2D0B8CA
      C0A9B8BBA2B0C3AAB8C0A8B4C6AEBACCB4BECBB3BDBFA7B1CEB6C0C1A9B3CBB3
      BDC0A8B2C4ACB6C4ACB6C5ADB7C6AEB8C7AFB9C6AEB8C3ABB5C0A8B2C0A7B1C3
      A5B0C9ABB6CAACB7CDAFBAD1B3BECEB3BDC9AEB8C8ADB7C2A7B1BEA3ADBDA4AE
      C1A8B2C4ABB5C9B0BACDB5BFC5B2BBBAA9B2B1A0A9BBAAB3AD9CA5B9A8B1B1A0
      A9C6B5BEBDACB5B4A3ACB1A0A9B09FA8AA99A2AC9BA4B2A1AAAE9DA6BAA6B2B5
      A1ADB4A0ACB9A5B1BCABB6BBAAB5B6A5B0B3A2ADB0A0ABB9A9B4C2B2BDC3B3BE
      BDAFBABDAFBAC1B3BEC5B7C2C2B3BBC4B3BCC5B4BDC5B4BDC4B3BCC2B1BAC1B0
      B9BFAEB7C1B0B9C2B1BAC3B2BBC4B3BCC3B2BBC2B1BAC0AFB8BFAEB7BEADB800
      000080919A80979F8BB5BA8ED6D686EAE576F4EE77FBF56ADDDA78D1D593C1CC
      A5B8C7B2B6C9B9BACEB4C2D4B7C5D8C7C7DFCCC6DFD0C8DFD4CDE2DAD1E6E0D5
      E9E6DAECEADFEFEADFEFEAE0F0EBE1F1E8E1F0E3DBECDCD6E7D6D3E3D5CFE2CF
      C0DCCCBAD9CCBAD7D0BEDBD5C2DDD1BED7CBB6CFC6B3C8C2ADC3C5AFC1C3ABBD
      B69FAEB9A0AEC4ACB8C3ABB7BDA5B1C5ADB7CCB4BEC1A9B3D2BAC4C3ABB5C5AD
      B7B199A3BCA4AEC0A8B2C1A9B3C3ABB5C3ABB5C3ABB5C0A8B2BEA6B0BDA4AEBF
      A1ACC6A8B3C8AAB5CCAEB9CEB3BDCDB2BCC7ACB6C8ADB7BAA1ABB299A3B69EA8
      BEA6B0C3ABB5C8B0BACBB6BFC0ADB6B8A7B0BBAAB3B1A0A9A7969FB3A2ABB1A0
      A9C3B2BBC2B1BAB9A8B1B1A0A9B3A2ABA6959EA2919AB09FA8AA99A2B19DA9AF
      9BA7B39FABBBA7B3BAA9B4B3A2ADAF9EA9B09FAAAB9BA6B8A8B3C2B2BDC3B3BE
      BFB1BCC1B3BEC1B3BEBEB1B9C3B2BBC4B3BCC5B4BDC5B4BDC4B3BCC2B1BAC0AF
      B8BFAEB7C2B1BAC3B2BBC4B3BCC4B3BCC4B3BCC2B1BAC1B0B9C0AFB8BFAFBA00
      0000639BA066BEBE76E5E17CF8F278EEE97CD8D98ACACFA5C3CEB1BCCAB7B6C6
      BAB4C5BEB8CBC5BCD0CBC0D4CDC1D7CDC3DAD4C9E3DCCFE7DACEE4D7CAE0D8CC
      E0DFD1E3E5D7E9E4D6E8E6DAECE8DCEEE7DDEEE0D7EBDAD4E7D5D0E5D7CFE6CB
      BDD9C8B8D7C8B9D5C9BAD6C6B5D0C1AEC7C1ACC5C4B1C6C0ABC1C4AEC0BDA5B7
      B29BAAB299A7B79FABBEA6B2BAA2ACC8B0BCD1B9C5C0A8B4C0A8B4B39BA7B39B
      A7AA929EBEA6B2BCA4B0BEA6B2C0A8B4C2AAB6C1A9B5BEA6B2BAA2AEB99FACB9
      9DAAC1A5B2C4A8B5C8ACB9CAB0BDC8AEBBC2A8B5B79DAAAF97A3AD95A1B59FAB
      C1ABB7C6B0BCC4AEBAC0ACB8B4A3AEB6A6B1BDADB8A4949FA4949FA999A4B6A6
      B1B9A9B4BEAEB9B7A7B2A2929DA898A3A3939E998994A797A2A08F9AB29FA8B2
      9FA8B4A1AAB3A0A9AC99A2A5929BA3929BA897A0A7969FB5A4ADBBACB4B9AAB2
      BDAEB6C7B8C0C7BAC2C2B5BDC4B3BCC4B4BBC5B5BCC5B5BCC4B4BBC2B2B9C1B1
      B8C0B0B7C4B4BBC4B4BBC4B4BBC4B4BBC4B4BBC3B3BAC2B2B9C2B1BAC1B1BC00
      000069C1C170DEDA6FE7E26BDCD86CC9C887BBC2A3B4C1C1B7C8CCB6C9CBB8CB
      CCBCCDCABED0CBC0D0D3C0D3D4C1D6CDBFD7D5CBE2DED1E9DBCEE4D4C8DCD6C7
      DCDED0E2E6D6E8DCCEE0E1D3E5E4D8ECE4D7EDDED2E8D7CDE4D3CBE2D2C9E3D0
      C2DECCBCDBCABBD7C8B9D5C1B0CBB6A6BEB8A6BDC3B0C5C1ADC0C7B4C5BCA7B6
      B9A2B0B098A4AB939FBDA5AFC3ABB5C4ACB8D3BBC7C9B1BDB69EAABAA2AEB098
      A4AC94A0B8A0ACB9A1ADBCA4B0C0A8B4C1A9B5BFA7B3BAA2AEB49CA8AF97A3B3
      99A6BEA2AFBFA5B2C3A9B6C7ADBAC4AAB7BDA5B1BBA3AFB6A0ACB19BA7AC98A4
      B29EAABBAAB5C1ADB9BEADB8B2A2ADBAAAB5AB9BA6A696A1A898A3AC9CA7C0B0
      BBB8A8B3B8A8B3C8B8C3AF9FAAAF9FAAA797A28E7E89A3939EB1A1ACB29FA8B4
      A1AAB19EA7A8959EA28F98A39099A6959EA897A0AE9DA6BEADB6C3B4BCBAABB3
      BAABB3C7B8C0CABDC5C7B9BFC6B6BDC6B6BDC5B5BCC4B4BBC4B4BBC3B3BAC2B2
      B9C2B2B9C5B5BCC5B5BCC5B5BCC4B4BBC4B4BBC4B4BBC3B3BAC2B4BAC1B4BC00
      000075E2E086DDDF86C6CB88B1BA9BAEBBB1B7C4BDBAC9B7B2C1BEB7C6C4BDCC
      C9C0CDCAC0D0CBC1CED0C3D3D0C4D6CAC1D6D2CAE1D9CFE6D5CCE1D2C7DBD7CB
      DFDFD1E3E2D4E6D9CADFDFD0E5E4D4EBE2D5EBDBCDE5D3C6E0D0C2DECDC1DDCA
      BEDCC4B5D4C1B3CFC2B4D0BEAFCAB5A5BDB7A5BCBFAEC3C3B0C3BDAABBA893A2
      B09CA9B49EAAAD98A1C1A9B3C4ACB6BDA7B3CCB6C2C7B1BDA38D99C0AAB6B19B
      A7B09AA6AD97A3B7A1ADBAA4B0BEA8B4BFA9B5BBA5B1B29CA8A8929EA38B97B1
      97A4BAA0ADBDA3B0C0A6B3C2AAB6BFA7B3B7A1AD98828EA6929EAD99A5A4939E
      A4939EB1A1ACBCABB6BBABB6B6A6B1B6A8B37A6C77AC9EA9A597A2B2A4AFBFB1
      BCBBADB8C2B4BFD4C6D1A597A2A496A1AFA1AC90828D988A95A999A4AF9CA5B9
      A4ACB6A1A9AA959DA5939AA8969D9E8E958E7E859A8A91BAAAB1CDBFC5C5B7BD
      BFB1B7C7B9BFCBBDC3C4B6BCC9B9C0C8B9BDC6B7BBC4B5B9C3B4B8C3B4B8C4B5
      B9C5B6BAC6B7BBC6B7BBC5B6BAC4B5B9C4B5B9C4B5B9C4B5B9C3B5BBC2B5BD00
      00007BE3E28CCED393B4BDABABB9C8B6C7D0BBCAC3B4C2BDB9C5BBBFCAC1C5D0
      C3C5D0C5C0CFCBBECED3C0D1D7C4D7CBBFD5CCC7DCD0C9DECCC5DACDC4D8D5CA
      DED9CDE1D8CCE0D7CAE0DDD0E6E3D6ECE2D5EBDACDE5D1C4DECCBFD9C9BED8BA
      AECAAEA5BFADA2BCB5ABC2B8ABC3B2A5BBB2A3B8B9A9BBC0B0C1A694A5826F7E
      9D8996B6A2AEB6A0ACC0AAB6B59FABC3ADB9C6B0BCB7A1AD816975B199A5A991
      9DB79FABB29AA6BAA2AEBDA5B1BFA9B5BFA9B5B8A2AEAD97A3A08A9698828EAF
      95A2B99FACBBA1AEBEA6B2C0A8B4BBA5B1B49EAA46323E76626E9F8E99A897A2
      AA99A4B4A3AEB6A5B0AD9DA8B2A4AFAA9FA9483D47ABA0AA998E98B0A4B0B3A7
      B3B8ACB8BFB3BFB0A4B0564A566257619D929C867B85685D67564951AFA0A4BC
      ABAFBBAAAEAD9CA0A8979BA091958273775D4E526A5B5F9D8D94C7B9BFCBBDC3
      C5B7BDCABCC2CBBDC3C3B5BBCCBCC3C9BABEC6B7BBC3B4B8C2B3B7C4B5B9C6B6
      BDC7B7BEC7B7BEC6B6BDC5B5BCC4B6BCC4B4BBC3B5BBC5B5BCC4B5BDC1B6C000
      000076BFC37CACB297ACB4B5ADB8CAB1BFD1B5C2C8B2BEBBB5C0B2BBC4B0C1CA
      B3C3CFC0C0D0D2BFD4E8C0D9ECC5DED8C7DCD0CADDCDC7DACBC5D8CEC7DCD7CE