Discussion :

[LuckyLuke56]

Slt à tous,
Lorsque je quitte ma base de données, j'écris la date système dans un fichier ini.
Comment récupérer cette date du fichier ini et affecter un edit?
code d'écriture:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
      LicenceIni:=TIniFile.Create('LicenceIni.Ini');
      SysDateTime:=Now;
      LicenceIni.WriteDate('Date','MaJ',SysDateTime );

code pour récupérer la valeur

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Edit4.Text:=  LicenceIni.ReadDate('Date','MaJ', SysDateTime);

1° question
Cela me donne conflit à la compilation entre string et datetime.
2° question
Est-ce que lors de la récupération, il va bien prendre la date qui était inscrite et pas reprendre la nouvelle date système?
Merci

[Duan]

Les lignes de codes doivent êtres inscrites dans 2 procédures différentes car si tu mets tout dans la même, tu écris la nouvelle date immédiatemant AVANT de la demander au fichier ini :

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
 
procedure TForm1.Button1Click(Sender: TObject); //inscrit la date dans le fichier
  var
    LicenceIni:Tinifile;
  begin
    LicenceIni:=TIniFile.Create('LicenceIni.Ini');
    LicenceIni.WriteDate('Date','MaJ',Now );
  end;
 
procedure TForm1.Button2Click(Sender: TObject); // récupère la date
  var
    LicenceIni:Tinifile;
  begin
    LicenceIni:=TIniFile.Create('LicenceIni.Ini');
    Edit1.Text:= Datetostr(LicenceIni.ReadDate('Date','MaJ',now));
  end;

1- DateToStr (convertit la date en string pour ton Edit4.Text)

2- Récupère la date inscrite; Si elle ne la trouve pas (ini inexistant ou date non inscrite) Now te donneras la date du jour. Si tu ne veux pas la date du jour si non trouvé, tu peux inscrire 0 (zéro) qui te donneras 1899-12-30 comme indication.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Edit1.Text:= Datetostr(LicenceIni.ReadDate('Date','MaJ',0));

En espérant que ça puisse t'aider

Salutation, Duan

[LuckyLuke56]

J'avais bien mes deux codes dans deux procédures, je les avais jointes pour le forum. Mon erreur venait de ???.
Merci j'ai la solution aux deux problèmes.

[Aos]

Lucky luke, annonces la solution à tes problemes et oublies pas le tag RESOLU
Faut bien que tout le monde en profite

[LuckyLuke56]

ok autant pour moi, Aos!
La solution est bien dans les deux réponses du post de Duan.