Supprimer des string dans Memo [Résolu]

nabil351974 76 Messages postés mardi 18 décembre 2007Date d'inscription 11 mars 2014 Dernière intervention - 23 févr. 2013 à 12:49 - Dernière réponse : nabil351974 76 Messages postés mardi 18 décembre 2007Date d'inscription 11 mars 2014 Dernière intervention
- 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

Répondre au sujet
solilog 273 Messages postés samedi 13 juin 2009Date d'inscription 18 avril 2015 Dernière intervention - 23 févr. 2013 à 15:49
+3
Utile
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
Cette réponse vous a-t-elle aidé ?  
Commenter la réponse de solilog
nabil351974 76 Messages postés mardi 18 décembre 2007Date d'inscription 11 mars 2014 Dernière intervention - 23 févr. 2013 à 18:23
0
Utile
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.