COPY |
Copie |
|---|---|
| Turbo Pascal pour Windows | System |
Syntaxe
| Function Copy(S:String; Index, Count: Integer):String; |
Paramètres
| Nom | Description |
|---|---|
| S | Ce paramètre permet d'indiquer la chaîne de caractères |
| Index | Ce paramètre permet d'indiquer la position dans la chaîne de caractères |
| Count | Ce paramètre permet d'indiquer la longueur du morceau de la chaîne de caractères |
Description
Cette fonction permet d'extraire une sous-chaîne de caractères dans une chaîne de caractères.
Remarques
- Si la position d'index est plus grande que la longueur de la chaîne de caractères, une chaîne de caractères retournera sera vide.
- Si la position d'index additionner de la longueur de la chaîne de caractères est plus grande que la longueur de la chaîne de caractères, seul les derniers caractères seront retournés.
Exemples
Voici quelques exemples typiques de l'utilisation de cette fonction :
on obtiendra le résultat suivant :
Bonjour le monde !jour le monde !
jour le
Cet exemple permet d'utiliser une similaire à la fonction Left du Visual Basic :
- Program LeftSamples;
-
- Uses WinCrt;
-
- Function Left(S:String;Num:Byte):String;Assembler;ASM
- CLD
- LES DI,@Result
- PUSH DS
- LDS SI,S
- MOV CL,DS:[SI]
- MOV CH,0
- INC CX
- PUSH DI;REP MOVSB;POP DI
- MOV AL,Num
- CMP ES:[DI],AL
- JB @1
- MOV ES:[DI],AL
- @1:
- POP DS
- END;
-
- BEGIN
- WriteLn('Left("Gladir.com",6) = ',Left('Gladir.com',6));
- WriteLn('Left("Gladir.com",10) = ',Left('Gladir.com',10));
- WriteLn('Left(""Gladir.com"",15) = ',Left('Gladir.com',15));
- END.
on obtiendra le résultat suivant :
Left("Gladir.com",6) = GladirLeft("Gladir.com",10) = Gladir.com
Left("Gladir.com",15) = Gladir.com
Dernière mise à jour : Dimanche, le 10 décembre 2017