Section courante

A propos

Section administrative du site

CSEG

 Code Segment
Virtual Pascal System

Syntaxe

Function CSeg:LongInt;

Description

Cette fonction retourne le registre du segment de code.

Exemple

Voici un exemple de l'utilisation de cette fonction :

  1. Program CSegSamples;
  2.          
  3. Procedure A;Begin
  4.  WriteLn('Segment de A = ',Seg(A));
  5. End;
  6.          
  7. Procedure B;Begin
  8.  WriteLn('Segment de B = ',Seg(B));
  9. End;
  10.          
  11. BEGIN
  12.  A;
  13.  B;
  14.  WriteLn('Segment de Code = ',CSeg);
  15. END.

on obtiendra un résultat semblable au suivant :

Segment de A = 27
Segment de B = 27
Segment de Code = 27

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