Changeset 19 for trunk


Ignore:
Timestamp:
Mar 19, 2013, 10:13:55 PM (12 years ago)
Author:
chronos
Message:
  • Přidáno: Nový instalační program.
Location:
trunk
Files:
3 edited

Legend:

Unmodified
Added
Removed

  • trunk

    • Property svn:ignore

      •  

        old new  
        44FioInfo.exe
        55FioInfo.dbg
         6heaptrclog.trc

  • trunk/UCore.pas

    r16 r19  
    236236  Result := OutputFormat;
    237237  Result := StringReplace(Result, '%f', DataFormatURL[DataFormat], [rfReplaceAll]);
    238   Result := StringReplace(Result, '%d', DateToStr(Now), [rfReplaceAll]);
    239   Result := StringReplace(Result, '%t', TimeToStr(Now), [rfReplaceAll]);
     238  Result := StringReplace(Result, '%d', StringReplace(DateToStr(Now), '.', '-', [rfReplaceAll]), [rfReplaceAll]);
     239  Result := StringReplace(Result, '%t', StringReplace(TimeToStr(Now),':', '-', [rfReplaceAll]), [rfReplaceAll]);
    240240  Result := StringReplace(Result, '%a', CurrentAccount.Number, [rfReplaceAll]);
    241241  Result := StringReplace(Result, '%n', CurrentAccount.Name, [rfReplaceAll]);
    … …  
    337337    ReportYear := ReadIntegerWithDefault('ReportYear', YearOf(Now));
    338338    ReportId := ReadIntegerWithDefault('ReportId', MonthOf(Now));
    339     CoolTranslator1.Language := CoolTranslator1.Languages.SearchByCode(ReadStringWithDefault('Language', 'cs'));
     339    CoolTranslator1.Language := CoolTranslator1.Languages.SearchByCode(ReadStringWithDefault('Language', ''));
    340340    OutputFormat := UTF8Encode(ReadStringWithDefault('FileNameFormat', UTF8Decode(SDumpFormat)));
    341341    SelectedAccountIndex := ReadIntegerWithDefault('SelectedAccountIndex', 0);
Note: See TracChangeset for help on using the changeset viewer.