Section courante

A propos

Section administrative du site

PTR

Pointeur
Turbo Pascal 1+ System

Syntaxe

Function Ptr(seg,ofs:Integer):Pointer; Version 1 à 3
Function Ptr(seg,ofs:Word):Pointer; Version 4 à 7

Paramètres

Nom Description
seg Ce paramètre permet d'indiquer le segment du pointeur
ofs Ce paramètre permet d'indiquer l'offset du pointeur

Description

Cette fonction retourne un pointeur à partir de l'adresse combiné du Segment et le déplacement (Offset).

Remarque

Exemples

Voici un exemple de l'utilisation de cette fonction :

  1. Program PtrSamples;
  2.      
  3. Var
  4.  PointerNIL:Pointer;
  5.      
  6. BEGIN
  7.  PointerNIL:=Ptr(0,0);
  8.  WriteLn('Segment du pointeur vers NIL = ',Seg(PointerNIL^));
  9.  WriteLn('Offset du pointeur vers NIL = ',Ofs(PointerNIL^));
  10. END.

on obtiendra le résultat suivant :

Segment du pointeur vers NIL = 0
Offset du pointeur vers NIL = 0

L'exemple suivant permet de déterminer le mode vidéo à partir d'une adresse mémoire absolue en utilisant un pointeur vers une cellule de mémoire de type de données octet :

  1. Program PtrSamples2;
  2.  
  3. BEGIN
  4.  If Byte(Ptr($0040,$0049)^) = 7 Then WriteLn('Le mode vidéo est monochrome')
  5.                                 Else WriteLn('Le mode vidéo est couleur');
  6. 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 335.

Dernière mise à jour : Dimanche, le 25 janvier 2015