FAQ PascalConsultez toutes les FAQ

1
2
 
|'B'|'o'|'n'|'j'|'o'|'u'|'r'| 0 |

1
2
  
Var Chaine : Array [0..10] of Char;

1
2
3
4
5
6
7
8
  
Var Chaine : Array [0..10] of Char; 
    pChaine : pChar; 
Begin 
  (* Les 2 instructions suivantes font la même chose : *) 
  pChaine := Chaine; 
  pChaine := @Chaine; 
End.

1
2
3
4
5
6
7
8
9
10
  
Var Chaine : Array [0..10] of Char; 
    pChaine : pChar; 
    Caractere : Char; 
Begin 
  pChaine := Chaine; 
  (* Les 2 instructions suivantes font la même chose : *) 
  Caractere := Chaine[6]; 
  Caractere := pChaine[6]; 
End.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
  
Var Chaine : Array [0..10] of Char; 
    pChaine : pChar; 
  
Procedure Traitement (p : pChar); 
Begin 
  { . . . } 
End;   
  
Begin 
  pChaine := Chaine; 
  (* Les 2 instructions suivantes font la même chose : *) 
  Traitement(Chaine); 
  Traitement(pChaine); 
End.

1
2
  
Traitement('hello');

1
2
  
pChaine := 'hello';

1
2
3
4
5
6
7
8
9
10
11
12
  
Program CONVERS1; 
  
Uses Strings; 
  
Var s : String [7]; 
    c : Array [0..7] of Char; 
  
Begin 
  StrCopy(c,'Bonjour'); 
  s := StrPas(c); 
End.

1
2
3
4
5
6
7
8
9
10
11
12
  
Program CONVERS2; 
  
Uses Strings; 
  
Var s : String [7]; 
    c : Array [0..7] of Char; 
  
Begin 
  s := 'Bonjour'; 
  StrPCopy(c,s); 
End.

1
2
  
StrCopy(Chaine,'Bonjour');

1
2
3
4
  
Var Chaine : Array [0..7] of Char; 
  
Chaine := 'Bonjour';   (* Erreur de syntaxe ! *)

1
2
  
Chaine[0] := #0;

1
2
  
Chaine[5] := #0;

1
2
  
Longueur := StrLen(Chaine);

1
2
  
StrCopy(Chaine2,Chaine1);

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
  
Var Chaine1 : Array [0..40] of Char; 
    Chaine2 : Array [0..30] of Char; 
    Resultat : Integer; 
  
Resultat := StrIComp(Chaine1,Chaine2); 
if Resultat > 0 
   then 
     WriteLn('Chaine1 > Chaine2') 
   else 
     if Resultat < 0 
        then 
          WriteLn('Chaine1 < Chaine2') 
        else 
          WriteLn('Chaine1 = Chaine2');

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
  
Program POSITION; 
  
Uses WinCRT,Strings; 
  
Var Chaine : Array [0..40] of Char; 
    Extrait : Array [0..15] of Char; 
    Adresse : pChar; 
  
Begin 
  StrCopy(Chaine,'Salut la compagnie !'); 
  StrCopy(Extrait,'compagnie'); 
  Adresse := StrPos(Chaine,Extrait); 
  WriteLn(Adresse); 
  WriteLn('Indice de l''extrait : ',Adresse - Chaine); 
End.

1
2
  
Adresse := StrPos(Chaine,Extrait);

1
2
  
WriteLn(Adresse);

1
2
3
4
5
  
Var Chaine1 : Array [0..40] of Char; 
    Chaine2 : Array [0..30] of Char; 
  
StrCat(Chaine1,Chaine2);   { Ajoute Chaine2 à Chaine1 }

1
2
3
4
5
  
Var Chaine1 : Array [0..40] of Char; 
    Chaine2 : Array [0..30] of Char; 
  
StrLCat(Chaine1,Chaine2,SizeOf(Chaine1) - 1);

1
2
3
4
  
Var p : pChar; 
  
p := StrNew('Allocation dans le tas');

1
2
3
4
5
6
7
8
9
10
  
Var Chaine : Array [0..255] of Char; 
    p : pChar; 
  
Begin 
  StrCopy(Chaine,'Allocation dans le segment de données'); 
  p := StrNew(Chaine); 
  WriteLn(p); 
  StrDispose(p); 
End.