Section courante

A propos

Section administrative du site

STRING

 Chaine
Turbo Pascal 1+ System

Syntaxe

identv1,identv2,...:String; Version 4 à 7
identt2,identt2,...=String; Version 4 à 7
identv1,identv2,...:String[n]; Version 1 à 7
identv1,identv2,...:String[n]; Version 1 à 7

Paramètres

Nom Description
identv1, identv2 Ce paramètre permet d'indiquer une variable
identt2, identt2 Ce paramètre permet d'indiquer un type de variable
n Ce paramètre permet d'indiquer une longueur fixe pour la chaine de caractères

Description

Ce type d'identificateur permet de définir une variable de chaine de caractères de format String.

Exemples

Voici quelques exemples typiques de l'utilisation de cette fonction :

Essayer maintenant !
  1. Program StringSamples;
  2.  
  3. Const
  4.  X:String = 'ABC';
  5.  
  6. Var 
  7.  Y:String;
  8.  Z:String[5];
  9.  
  10. BEGIN
  11.  Y:='DEF';
  12.  Z:='GHIJK';
  13.  WriteLn(X,Y,Z);
  14. END.

on obtiendra le résultat suivant :

ABCDEFGHIJK

Cet exemple permet d'utiliser une fonction générant un nombre de caractères spécifié et la retourne dans une chaine de caractères comme la fonction String du Visual Basic :

Essayer maintenant !
  1. Program MultCharacterSamples;
  2.  
  3. Function MultChar(Len:Byte;Value:Char):String;Assembler;ASM
  4.  CLD
  5.  LES DI,@Result
  6.  MOV CL,Len
  7.  MOV ES:[DI],CL
  8.  INC DI
  9.  MOV AL,Value
  10.  MOV CH,0
  11.  REP STOSB
  12. END;
  13.  
  14. Var
  15.  I:Byte;
  16.  
  17. BEGIN
  18.  For I := 1 To 9 do Begin
  19.   WriteLn(MultChar(I,'*'));
  20.  End;
  21. END.

on obtiendra le résultat suivant :

*
**
***
****
*****
******
*******
********
*********

Cet exemple permet d'utiliser une fonction générant un nombre d'espaces spécifié et la retourne dans une chaine de caractères comme la fonction Space du Visual Basic :

Essayer maintenant !
  1. Program SpaceStringSamples;
  2.  
  3. Function Space(Len:Byte):String;Assembler;ASM
  4.  LES DI,@Result
  5.  MOV CL,Len
  6.  MOV CH,0
  7.  MOV ES:[DI],CL
  8.  JCXZ @1
  9.  CLD
  10.  INC DI
  11.  MOV AL,' '
  12.  REP STOSB
  13.  @1:
  14. END;
  15.  
  16. BEGIN
  17.  WriteLn(Space(3),'A',Space(1),'B');
  18.  WriteLn(Space(2),'A',Space(2),'B');
  19.  WriteLn(Space(1),'A',Space(3),'B');
  20. END.

on obtiendra le résultat suivant :

   A B
  A  B
 A   B

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 423 à 424.

Dernière mise à jour : Dimanche, le 8 février 2015