Bonjour à chacun,

Voici un fragment de code qui fonctionne dans une partie du programme et dans une autre renvoie l'erreur 13 du dos.
Je ne trouve rien sur cette erreur dans la doc de TP7...

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
GetDate(an, mois, jour, j_s);//récupérer la date syst
GetTime(heure, minute, sec, sec100);// récupérer l'heure
// convertir en Date_Time
with DateT do
begin
  year :=an;// tous word
  month :=mois;
  day := jour;
  hour :=heure;
  min :=minute;
  sec := sec;
end;
PackTime(DateT, DateF);// convertir en longInt
Assign(f, nf);
reset(f);
SetFtime(f, DateF);
if dosError <> 0 then journal('_val_clas, creer_date_f, dos n° '+nb_ch(Doserror, 2,0));
close(f);
end;
Si quelqu' un avait une piste, ....
En attendant je vous souhaite une trés bonne année 2005
Lucien