procedure WriteDate(dtDate : TDateTime); var inifile : TIniFile; begin inifile := TIniFile.Create('C:\toto.ini'); inifile.WriteDateTime('Setup','Date',dtDate); inifile.Free; end;
function ReadDate : TDateTime; var inifile : TIniFile; begin inifile : = TIniFile.Create('C:\toto.ini'); Result := inifile.ReadDateTime('Setup','Date',0); inifile.Free; end;