Supprimer des string dans Memo [Résolu]

Messages postés
76
Date d'inscription
mardi 18 décembre 2007
Dernière intervention
11 mars 2014
- - Dernière réponse : nabil351974
Messages postés
76
Date d'inscription
mardi 18 décembre 2007
Dernière intervention
11 mars 2014
- 23 févr. 2013 à 18:23
bonjour à tous,

j'ai un MEMO dans lequel il y plusieurs lignes.
Je voudrai supprimer toutes les crochets et ce qu'il y a dedans.

[...]

j'ai essayé avec StringReplace
mais ça n'a pas donné l'objectif que je cherche.

Comment supprimer toutes les crochets et ce qu'il y a dedans?

merci d'avance.

NABIL1974
Afficher la suite 

Votre réponse

2 réponses

Meilleure réponse
Messages postés
273
Date d'inscription
samedi 13 juin 2009
Dernière intervention
18 avril 2015
3
Merci
Bonjour,

procedure TForm1.Button1Click(Sender: TObject);
var s : string;
p1, p2:integer;
begin
s := memo1.text;
repeat
p1 := pos('[', s);
p2 := pos(']', s);
if (p1>0) and (p2>0) and (p1<p2) then
delete( s, p1, p2-p1+1);
until p1=0;
memo1.text := s;
end;

Au revoir.

solilog

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 95 internautes nous ont dit merci ce mois-ci

Commenter la réponse de solilog
Messages postés
76
Date d'inscription
mardi 18 décembre 2007
Dernière intervention
11 mars 2014
0
Merci
solilog Merci beaucoup!
impécable ça marche


NABIL1974
Commenter la réponse de nabil351974

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.