Section courante

A propos

Section administrative du site

CSEG

 Code Segment
Turbo Pascal 1+ System

Syntaxe

Function CSeg:Integer; Version 1 à 3
Function CSeg:Word; Version 4 à 7

Description

Cette fonction retourne le registre du segment de code.

Remarque

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 = 27342
Segment de B = 27342
Segment de Code = 27342

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 136.
Le grand livre du Turbo & Borland Pascal 7.0, Edition Micro Application, Reiner Scholles, 1993, ISBN: 2-86899-873-9, page 1220.

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