Langage de programmation - Turbo Pascal - Référence de procédures et de fonctions

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

Les paramètres seg et ofs sont des expressions de type Word à partir de Turbo Pascal 4. Le résultat est un pointeur pointant sur l'adresse spécifiée par les paramètres seg et ofs. Comme la constante NIL, le résultat de Ptr est compatible avec tous les types de pointeurs.

Exemples

Voici un exemple de l'utilisation de cette fonction :


				
Program PtrSamples;

     

Var

 PointerNIL:Pointer;


     

BEGIN

 PointerNIL:=Ptr(0,0);


 WriteLn('Segment du pointeur vers NIL = ',Seg(PointerNIL^));

 WriteLn('Offset du pointeur vers NIL = ',Ofs(PointerNIL^));


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 :



Program PtrSamples2;

 
BEGIN

 If Byte(Ptr($0040,$0049)^) = 7 Then WriteLn('Le mode vidéo est monochrome')

                                Else WriteLn('Le mode vidéo est couleur');

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

Section courante

A propos

Section administrative du site

PTR