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

INSERT	Insère
Free Pascal	System

Syntaxe

Procedure Insert(Const source:ShortString;Var s:ShortString;index:SizeInt);

Procedure Insert(source: Char;Var s:ShortString;index:SizeInt);

Procedure Insert(Const Source:AnsiString;Var S:AnsiString;index:SizeInt);

Procedure Insert(Const Source:WideString;Var S:WideString;index:SizeInt);

Paramètres

Nom	Description
source	Ce paramètre permet d'indiquer la chaîne de caractères à insérer
s	Ce paramètre permet d'indiquer la chaîne de caractères allant subir l'insertion
index	Ce paramètre permet d'indiquer la position à laquelle sera inséré la chaîne de caractères

Description

Cette procédure permet d'insérer une chaîne de caractères dans une autre chaîne de caractères à l'endroit spécifié.

Remarques

La procédure Insert insère la chaîne de caractères Source dans la chaîne de caractères S, à la position Index, en décalant tous les caractères après Index vers la droite. La chaîne de caractères résultante est tronquée à 255 caractères, si nécessaire, c'est-à-dire pour les chaînes de caractères courtes (ShortString).
Le paramètre index est un index basé sur 1. Si le paramètre Index est inférieur à 1, l'insertion de Source se produit au début de la chaîne de caractères, comme si la valeur 1 était spécifiée.
Si la valeur de Index est supérieure à la longueur de la chaîne de caractères S, la Source est ajoutée à la chaîne de caractères S.
Pour les tableaux dynamiques, la procédure Insert insère les éléments du tableau Source dans le tableau S, à la position Index, en décalant tous les éléments après Index vers la droite.
Le paramètre index est un index basé sur 0. si Index est inférieur à 0, l'insertion de Source se produit à la position 0.
Si la valeur de Index est supérieure à la longueur du tableau S, Source est ajoutée au tableau S.

Exemple

Cet exemple permet d'effectuer une simple insertion :


						

Program InsertSamples;

 
Var

 S:String;


 
BEGIN

 S:='Gladir';

 Insert('.com',S,7);


 WriteLn('Insert("Gladir",".com",7) = ',S);

 S:='Gladir';


 Insert('.ca',S,7);

 WriteLn('Insert("Gladir.com",".ca",7) = ', S);


 S:='Gladir';

 Insert('ateu',S,6);


 WriteLn('Insert("Gladir.com","ateu",6)= ', S);

END.

on obtiendra le résultat suivant :

Insert("Gladir",".com",7) = Gladir.com Insert("Gladir.com",".ca",7) = Gladir.ca Insert("Gladir.com","ateu",6)= Gladiateur

Voir également

Langage de programmation - Free Pascal - Référence de procédures et fonctions - Delete
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

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

Section courante

A propos

Section administrative du site

INSERT