Procedure clrEol en pascal
Résolu/Fermé
bibou_ini
Messages postés
5
Date d'inscription
jeudi 1 mai 2008
Statut
Membre
Dernière intervention
25 juin 2008
-
10 mai 2008 à 19:08
bibou_ini Messages postés 5 Date d'inscription jeudi 1 mai 2008 Statut Membre Dernière intervention 25 juin 2008 - 15 mai 2008 à 14:11
bibou_ini Messages postés 5 Date d'inscription jeudi 1 mai 2008 Statut Membre Dernière intervention 25 juin 2008 - 15 mai 2008 à 14:11
A voir également:
- Procedure clrEol en pascal
- Turbo pascal download - Télécharger - Édition & Programmation
- My pascal - Télécharger - Édition & Programmation
- Dev-pascal - Télécharger - Édition & Programmation
- Procedure de taxe bara ✓ - Forum Matériel & Système
- Arnaque transcash sur Leboncoin. ✓ - Forum Consommation & Internet
3 réponses
byakhlefncr
Messages postés
260
Date d'inscription
vendredi 1 juillet 2005
Statut
Membre
Dernière intervention
11 septembre 2008
63
11 mai 2008 à 02:30
11 mai 2008 à 02:30
Salut,
si ce que tu veux faire : Supprimer les occurence d'un mot dans une chaine de caractère alors ceci peut t'aider :
Pour effacer des caractères dans une chaine utiliser la procedure
- Delete([Chaine], [PositionDebutEffacement], [NombreCaracteresEffaces]
Pour Trouver l'oocurence d'un mot dans une chaine utiliser la fonction
- Pos([Mot], [Chaine])
en combinant ces deux fonctions tu peux créer la procedure désirée.
Exemple
//////////////////////////////////////////////////////////////////////
Procedure EffacerMot(sMot : String; Var sChaine : String);
Begin
While Pos(sMot, sChaine) > 0 do
Begin
Delete(sChaine, Pos(sMot, sChaine), Length(sMot));
End;
End;
//////////////////////////////////////////////////////////////////////
Bonne chance.
si ce que tu veux faire : Supprimer les occurence d'un mot dans une chaine de caractère alors ceci peut t'aider :
Pour effacer des caractères dans une chaine utiliser la procedure
- Delete([Chaine], [PositionDebutEffacement], [NombreCaracteresEffaces]
Pour Trouver l'oocurence d'un mot dans une chaine utiliser la fonction
- Pos([Mot], [Chaine])
en combinant ces deux fonctions tu peux créer la procedure désirée.
Exemple
//////////////////////////////////////////////////////////////////////
Procedure EffacerMot(sMot : String; Var sChaine : String);
Begin
While Pos(sMot, sChaine) > 0 do
Begin
Delete(sChaine, Pos(sMot, sChaine), Length(sMot));
End;
End;
//////////////////////////////////////////////////////////////////////
Bonne chance.
bibou_ini
Messages postés
5
Date d'inscription
jeudi 1 mai 2008
Statut
Membre
Dernière intervention
25 juin 2008
15 mai 2008 à 14:11
15 mai 2008 à 14:11
MERCI c'est Bon sa marche