Procedure clrEol en pascal
Résolu
bibou_ini
Messages postés
5
Statut
Membre
-
bibou_ini Messages postés 5 Statut Membre -
bibou_ini Messages postés 5 Statut Membre -
Bonjour,
voila, je veus modifier la procedure clrEol (clear end of line ) dans le dev-pascal alors si vous pouvez me la donner (algorithme ou programme); en faite je veut juste effacer un mot (string) dans une line alors j'ai panser a limiter le nombre de colonne . merci
voila, je veus modifier la procedure clrEol (clear end of line ) dans le dev-pascal alors si vous pouvez me la donner (algorithme ou programme); en faite je veut juste effacer un mot (string) dans une line alors j'ai panser a limiter le nombre de colonne . merci
Configuration: Windows XP Internet Explorer 6.0
3 réponses
-
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. -
-
