Section courante

A propos

Section administrative du site

OFS

Déplacement
Turbo Pascal 1+ System

Syntaxe

Function Ofs(ident):Integer; Version 1 à 3
Function Ofs(ident):Word; Version 4 à 7

Paramètres

Nom Description
ident Ce paramètre permet d'indiquer l'identificateur de variable, de fonction ou de procédure

Description

Cette fonction indique l'adresse d'emplacement d'offset de la mémoire physique qu'occupe l'expression.

Remarque

Exemples

L'exemple suivant permet de demander l'adresse de déplacement d'une procédure, fonction et variable :

  1. Program OfsSamples;
  2.  
  3. Procedure Proc;Begin
  4. End;
  5.  
  6. Function Func:Integer;Begin
  7. End;
  8.  
  9. Var 
  10.  X:Byte;
  11.  
  12. BEGIN
  13.  WriteLn('Offset (ofs) de la procedure : ',Ofs(Proc));
  14.  WriteLn('Offset (ofs) de la fonction : ',Ofs(Func));
  15.  WriteLn('Offset (ofs) de la variable X : ',Ofs(X));
  16. END.

on obtiendra un résultat ressemblant à ceci :

Offset (ofs) de la procedure : 0
Offset (ofs) de la fonction : 5
Offset (ofs) de la variable X : 82

L'exemple suivant permet d'afficher la paire Segment:Déplacement (Segment:Offset) de la variable Y :

  1. Program OfsSegSamples;
  2.  
  3. Var
  4.  Y:LongInt;
  5.  
  6. BEGIN
  7.  WriteLn('Adresse SEGMENT:OFFSET de Y =',Seg(Y),':',Ofs(Y));
  8. END.

on obtiendra un résultat ressemblant à ceci :

Adresse SEGMENT:OFFSET de Y =6074:82

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 303.

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