Section courante

A propos

Section administrative du site

SEG

Segment
Virtual Pascal System

Syntaxe

Function Seg(ident):LongInt;

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 de segment de la mémoire physique qu'occupe l'expression.

Exemple

Voici un exemple de l'utilisation de cette fonction :

  1. Program SegSamples;
  2.          
  3. Procedure A;
  4. Var
  5.  A:Byte;
  6. Begin
  7.  WriteLN('Segment de la variable interne A d''une procédure = ',Seg(A));
  8. End;
  9.          
  10. Procedure B;Begin
  11.  WriteLn('Segment de B = ',Seg(B));
  12. End;
  13.          
  14. Procedure C;Begin
  15.  WriteLn('Segment de C = ',Seg(C));
  16. End;
  17.          
  18. Var
  19.  D:Byte;
  20.          
  21. BEGIN
  22.  D:=5;
  23.  B;
  24.  C;
  25.  WriteLn('Segment de Code = ',CSeg);
  26.  WriteLn('Segment de la variable D = ',Seg(D));
  27.  WriteLn('Segment de données = ',DSeg);
  28.  A;
  29.  WriteLn('Segment de pile = ',SSeg);
  30. END.

on obtiendra un résultat semblable au suivant :

Segment de B = 27294
Segment de C = 27294
Segment de Code = 27294
Segment de la variable D = 27601
Segment de données = 27601
Segment de la variable interne A d'une procédure = 27643
Segment de pile = 27643


Dernière mise à jour : Vendredi, le 29 juillet 2016