Section courante

A propos

Section administrative du site

CSEG

Code Segment
Turbo Pascal pour Windows System

Syntaxe

Function CSeg:Word;

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. Uses WinCrt;
  4.      
  5. Procedure A;Begin
  6.  WriteLn('Segment de A = ',Seg(A));
  7. End;
  8.      
  9. Procedure B;Begin
  10.  WriteLn('Segment de B = ',Seg(B));
  11. End;
  12.      
  13. BEGIN
  14.  A;
  15.  B;
  16.  WriteLn('Segment de Code = ',CSeg);
  17. END.

on obtiendra un résultat semblable au suivant :

Segment de A = 27342
Segment de B = 27342
Segment de Code = 27342


Dernière mise à jour : Dimanche, le 10 décembre 2017