Section courante

A propos

Section administrative du site

SEG

 Segment
Turbo Pascal pour Windows System

Syntaxe

Function Seg(ident):Word;

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. Uses WinCrt;
  4.  
  5. Procedure A;
  6. Var
  7.  A:Byte;
  8. Begin
  9.  WriteLN('Segment de la variable interne A d''une procédure = ',Seg(A));
  10. End;
  11.  
  12. Procedure B;Begin
  13.  WriteLn('Segment de B = ',Seg(B));
  14. End;
  15.  
  16. Procedure C;Begin
  17.  WriteLn('Segment de C = ',Seg(C));
  18. End;
  19.  
  20. Var
  21.  D:Byte;
  22.  
  23. BEGIN
  24.  D:=5;
  25.  B;
  26.  C;
  27.  WriteLn('Segment de Code = ',CSeg);
  28.  WriteLn('Segment de la variable D = ',Seg(D));
  29.  WriteLn('Segment de données = ',DSeg);
  30.  A;
  31.  WriteLn('Segment de pile = ',SSeg);
  32. 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 : Dimanche, le 10 décembre 2017