{--------------------------------------------------------------} {----------------------- TEMPS.LIB ----------------------------} {--------------------------------------------------------------} Un programme utilisant cette bibliothèque sur compatible IBM PC doit commencer par: {* utilise Temps.Lib *} {$i Temps.Lib} Un programme utilisant cette bibliothèque sur Macintosh doit commencer par: {* utilise Temps.Lib *} {$S+} uses {$S Mac} MemTypes, QuickDraw, OSIntf, ToolIntf, {$S Temp} Temps_Lib; {$S} procedure MarqueDebut; { Déclenche le chronométre } procedure Temps(var H,M,S,C:integer); { Donne le temps écoulé depuis le déclenchement du chrono- } { métre (H Heures, M minutes, S secondes, C centièmes) } {--------------------------------------------------------------}