GETFTIME |
Demande le temps d'un fichier |
---|---|
Turbo Pascal 4+ | DOS, WinDos |
Syntaxe
Procedure GetFTime(fich:File; Var DateHeure:LongInt); |
Paramètres
Nom | Description |
---|---|
fich | Ce paramètre permet d'indiquer l'identificateur de fichier |
DateHeure | Ce paramètre retourne la date et l'heure encoder en format DOS. |
Description
Cette procédure permet de connaître la date et l'heure de la dernière modification d'un fichier.
Remarques
- Le paramètre fich doit être une variable de fichier (fichier typé, non typé ou texte) affectée et ouverte. L'heure renvoyée dans le paramètre DateHeure peut être décompressée via un appel à UnpackTime. Les erreurs sont signalées dans DosError; le seul code d'erreur possible est 6 :
- Le paramètre fich doivent être un fichier ouvertes.
Invalid File Handle |
Exemple
L'exemple suivant permet d'afficher l'heure de création, de modification d'un fichier «TEST.TXT» :
- Program GetfTim1;
-
- Uses Dos;
-
- Var
- F:Text;
- H,M,S,Hund:Word;
- FTime:LongInt;
- DT:DateTime;
-
- Function PadZero(W:Word):String;
- Var
- S:String;
- Begin
- Str(W:0,S);
- if Length(s)=1 Then S:='0'+S;
- PadZero:=S;
- End;
-
- BEGIN
- Assign(F,'TEST.TXT');
- GetTime(H,M,S,Hund);
- Rewrite(F);
- GetFTime(F,FTime);
- Writeln('Le fichier a été crée le ',
- PadZero(H),':',PadZero(M),':',PadZero(S));
- UnpackTime(FTime,DT);
- With dt do Begin
- Writeln('L''horodatage du fichier est ',
- PadZero(Hour),':',PadZero(Min),':',PadZero(Sec));
- Hour:=0;
- Min:=1;
- Sec:=0;
- PackTime(DT,FTime);
- Writeln('Ajustement de l''horodatage à une minute après minuit');
- Reset(F);
- SetFTime(F,FTime);
- End;
- Close(F);
- END.
Référence
Aide-mémoire de Turbo Pascal versions de 3 à 6, Edition Marabout, De Groote, Virga, 1992, ISBN: 2-501-01833-8, page 209.
Le grand livre du Turbo & Borland Pascal 7.0, Edition Micro Application, Reiner Scholles, 1993, ISBN: 2-86899-873-9, page 1241.
Dernière mise à jour : Dimanche, le 25 janvier 2015