Bonjour à toutes et à tous,

Petite question constructive, j'ai une application qui utilise une procédure créée avec ce code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
 
private
    { Déclarations privées }
    procedure InitializeDatesLimite ; 
public
    { Déclarations publiques }
     DatesLimite: array [1..12] of TDateTime;
  end;
 
 
procedure TForm1.InitializeDatesLimite;
begin
 
//Recopier dans le fichier Dateslimite.txt
 
  {DatesLimite[1] := EncodeDate(2024, 1, 24);
  DatesLimite[2] := EncodeDate(2024, 2, 22);
  DatesLimite[3] := EncodeDate(2024, 3, 21);
  DatesLimite[4] := EncodeDate(2024, 4, 23);
  DatesLimite[5] := EncodeDate(2024, 5, 23);
  DatesLimite[6] := EncodeDate(2024, 6, 21);
  DatesLimite[7] := EncodeDate(2024, 7, 24);
  DatesLimite[8] := EncodeDate(2024, 8, 23);
  DatesLimite[9] := EncodeDate(2024, 9, 23);
  DatesLimite[10] := EncodeDate(2024, 10, 24);
  DatesLimite[11] := EncodeDate(2024, 11, 22);
  DatesLimite[12] := EncodeDate(2024, 12, 20);}
 
memo1.lines.loadfromfile(pchar('Dateslimite.txt'));
 
end;
J'ai recopié ce code dans un fichier texte "Dateslimite.txt" en me disant que ce serait plus facile de le modifier étant donné que suivant l'année le jour peut varier de +1 ou -1 au lieu de recompiler l'application.

Pour ce faire j'utilise un Tmemo pour afficher le même code dans cette procédure et j'obtiens un faux calcul.

Quelle serait la raison peut-être le formatage du fichier texte ?

Merci de l'information si une raison existe.

@+,

cincap