 | Si tratta di una Unit che
contiene una versione corretta della
Delay
originale della CRT,
sulla quale per altro è parzialmente basata. |
| è di proprietà di
Frank Heckenbach che l'ha pubblicata il 29 settembre 1997. |
| l'utilizzo è libero,
escluse le applicazioni commerciali; ed è comunque fornito senza alcuna
garanzia e senza assunzione di responsabilità per danni eventualmente
arrecati dal suo uso. |
| la fase di inizializzazione della nuova Delay è eseguita
solo la prima volta che viene chiamata: ciò comporta una piccola
inesattezza sul tempo di ritardo (ma solo la prima volta);
conviene quindi fare comunque una finta chiamata all'inizio del programma,
per evitare alle prossime questa inesattezza. |
| è in grado di prevenire l'errore utilizzando per il
quoziente un un registro a 32 bit (longint),
al posto di quello a 16 bit (word). |
| intercetta l'errore prima che venga segnalato, saltandone
gli effetti ed evitando al programma di essere interrotto. |
| per il suo utilizzo è
necessario:
 | aggiungere la nuova Unit
NewDelay.TPU alle altre, nella cartella delle
unit standard o nella cartella nella quale si sta scrivendo il
sorgente PAS che si vuole compilare. |
| aggiungere, dopo la direttiva
USES, la voce NewDelay,
facendo in modo che appaia come la prima, e
comunque davanti alla CRT (come
seconda) e tutte le altre eventuali librerie. |
| la prima istruzione del programma deve essere
PatchCrt (Crt.Delay); |
| ricompilare il programma sorgente. |
|
