Salut,
si j'ai bien compris ce que tu veux faire, c'est bien possible :
Pour l'ecriture.
procedure WriteDate(dtDate : TDateTime);
var
inifile : TIniFile;
begin
inifile := TIniFile.Create('C:\toto.ini');
inifile.WriteDateTime('Setup','Date',dtDate);
inifile.Free;
end;
|
Et tu passe ton TDateTimePicker en paramètre
WriteDate(DateTimePicker1.DateTime);
Pour la lecture.
function ReadDate : TDateTime;
var
inifile : TIniFile;
begin
inifile := TIniFile.Create('C:\toto.ini');
Result := inifile.ReadDateTime('Setup','Date',0);
inifile.Free;
end;
|
Et tu la récupère dans ton TDateTimePicker
DateTimePicker1.DateTime := ReadDate;
loulibier.