Langage de programmation - Free Pascal - Référence de procédures et fonctions

DELETE	Efface
Free Pascal	System

Syntaxe

Procedure Delete(var S:ShortString;Index,count:SizeInt);

Procedure Delete(var S:AnsiString;Index,Size:SizeInt);

Procedure Delete(var S:WideString;Index,Size:SizeInt);

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 procédure permet de supprimer une partie des caractères contenu dans la chaîne de caractères spécifié.

Remarques

Si la position d'index est plus grande que la longueur de la chaîne de caractères, aucun caractères ne sera supprimé.
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 supprimés.
La procédure Delete supprime le nombre de caractères de la chaîne de caractères S, en commençant à la position Index. L'index est basé sur 1. Tous les caractères après les caractères supprimés sont déplacés de Count de positions vers la gauche et la longueur de la chaîne de caractères est ajustée.
Pour les tableaux dynamiques, Delete supprime les éléments Count du tableau A, en commençant à la position Index. L'index est basé sur 0. Tous les éléments après les éléments supprimés sont déplacés de Count positions vers la gauche et la longueur du tableau est ajustée.
Si la somme de Index et Count dépasse la longueur de la chaîne de caractères ou du tableau, Delete supprime la fin de la chaîne de caractères ou du tableau, en commençant par Index.
Si Index est inférieur à 1 ou supérieur à la longueur de la chaîne de caractères ou du tableau, ou si Count est négatif ou nul, Delete ne fait rien.

Exemple

Voici un exemple de l'utilisation de cette fonction :


				

Program DeleteSamples;

     

Var

 Prenom:String;



 NomDomaine:String;

     

BEGIN

 Prenom := 'SYLVAIN';


 Delete(Prenom,2,6);

 WriteLn(Prenom,'MALTAIS');


 NomDomaine:='gladir.com';

 Delete(NomDomaine,7,4);


 WriteLn('Delete(''gladir.com'',7,4) = ',NomDomaine);

END.

on obtiendra le résultat suivant :

SMALTAIS Delete('gladir.com',7,4) = gladir

Voir également

Langage de programmation - Free Pascal - Référence de procédures et fonctions - «Copy»
Langage de programmation - Free Pascal - Référence de procédures et fonctions - «Pos»
Langage de programmation - Free Pascal - Référence de procédures et fonctions - «Insert»

Dernière mise à jour : Samedi, le 18 juillet 2015

Section courante

A propos

Section administrative du site

DELETE