lazarus/pascals nom de fichier d'écriture avec la date actuelle

Question

i besoin d'écrire un fichier avec le nom du fichier contenant la date actuelle .. tout fonctionne en plus la date, il donne une exception de classe « erreur d'exécution (3) »

(la importo.text est le texte d'une TEdit .. mais je suppose qu'il est hors de propos)

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() renvoie la date formatée selon les paramètres régionaux. Dans votre cas, cela renvoie presque certainement un caractère délimiteur de dossier/chemin (/ ou \) qui cause le problème (chemin introuvable).

Même si vous modifiez vos paramètres régionaux pour éviter d'utiliser de tels caractères, le code échouera toujours sur les autres systèmes si ces paramètres régionaux ne sont pas "compatibles". Pour éviter cela, vous devez vous assurer que votre encodage de la date dans le nom de fichier n'est pas sensible à de tels problèmes potentiels.

Vous pouvez supprimer/remplacer tous ces caractères après la formation du nom de fichier, ou vous pouvez coder explicitement la date d'une manière qui ne sera pas introduire de tels caractères pour commencer, semblable à:

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' 

Vous pouvez ensuite incorporez les valeurs des composants de date dans votre nom de fichier, soit par concaténation si nécessaire, soit directement dans une instruction à format unique:

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