Lazarus/паскаль файла записи с текущей датой

Question

я должен написать файл с именем файла, содержащего текущую дату .. все работает, кроме даты, это дает исключение класса «запуска ошибки (3)»

(importo.text является текст TEdit .. но я предполагаю, что это не имеет значения)

uses 
    Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls; 

... 

var 
    contributo:real; 
    f:textfile; 
... 
    datee: string; 

... 

contributo:= (StrToInt(importo.text)/ 100)*4; 

    datee:= DateToStr(Date); 

    assignfile(f,'fattura minimi n.'+n.text+' '+datee+'.txt'); 
    rewrite(f); 

    writeln(f,'Giovanna Migliore'); 
    ... 

    closefile(f); 

Answer 1

DateToStr() возвращает дату, отформатированную в соответствии с региональными настройками. В вашем случае это почти наверняка возвращает символ разделителя папки/пути (/ или \), который вызывает проблему (путь не найден).

Даже если вы измените региональные настройки, чтобы избежать использования таких символов, код будет по-прежнему терпеть неудачу в других системах, если эти региональные настройки не являются «совместимыми». Чтобы этого избежать, вам необходимо убедиться, что ваша кодировка даты в имени файла не чувствительна к таким потенциальным проблемам.

Вы можете удалить/заменить все такие символы после формирования файла, или вы можете явно кодировать дату таким образом, чтобы не вводить такие символы, чтобы начать с, похожей на:

var 
    y, m, d: Word; 

.. 

    DecodeDate(Date, y, m, d); 
    dateStr := Format('%4d-%2d-%2d', [y, m, d]); 

    // e.g. dateStr value for 31st Dec 2016 would be: '2016-12-31' 

Вы могли бы тогда включить значения компонента даты в ваше имя файла либо путем конкатенации по мере необходимости, либо непосредственно в заявлении о едином формате:

filename := Format('fattura minimi n.%s %4d-%2d-%2d.txt [n.text, y, m, d]); 
assignfile(f, filename);