Supprimer des string dans Memo [Résolu]

Messages postés
76
Date d'inscription
mardi 18 décembre 2007
Statut
Membre
Dernière intervention
11 mars 2014
- - Dernière réponse : nabil351974
Messages postés
76
Date d'inscription
mardi 18 décembre 2007
Statut
Membre
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 

2 réponses

Meilleure réponse
Messages postés
273
Date d'inscription
samedi 13 juin 2009
Statut
Membre
Dernière intervention
18 avril 2015
8
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 188 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
Statut
Membre
Dernière intervention
11 mars 2014
0
Merci
solilog Merci beaucoup!
impécable ça marche


NABIL1974
Commenter la réponse de nabil351974