Supprimer texte et remplacer dans memo

Signaler
-
Messages postés
1284
Date d'inscription
mardi 28 octobre 2003
Statut
Contributeur
Dernière intervention
3 juillet 2015
-
Bonjour,

Je voudrais savoir comment faire pour supprimer tout le texte entre deux mot précis dans memo, et remplacer par un text
par exemple

si j'ai
int a,b,c,d;
je dois supprimer tout ce qui est entre int et ;
puis remplacer par un text e,f,g


quelqu'un pourra t'il m'aider SVP !

4 réponses

Messages postés
273
Date d'inscription
samedi 13 juin 2009
Statut
Membre
Dernière intervention
18 avril 2015
10
Salut,
reprenons ton exemple avec le memo m1.

// pour info le "text" d'un memo est un grand
// string qui contient toutes les lignes
var l, p1, p2 : integer;
begin

l  := length(m1.text); 
p1 := pos( 'int', m1.text);
p2 := pos( ';'  , m1.text);
if p1>0           //  "int" trouvé 
  and p2>0        //    ";" trouvé
  and p1<p2       //  "int" trouvé avant ";"  
then 
  m1.text := copy(m1.text, 1, p1) +  'e,f,g' + copy(m1.text, p2-1, l);   

Ca devrait aller comme çà.
Tcho
solilog
Merci pour votre réponse
le compilateur ne reconnait pas copy, pourriez vous me donner le prototype de copy

Je vous remercie
Messages postés
273
Date d'inscription
samedi 13 juin 2009
Statut
Membre
Dernière intervention
18 avril 2015
10
Bonjour,

"copy" n'existe pas en Delphi ??? Allo, "copy" n'existe pas, Allo !
C'est comme si tu disais "t'es une fille et t'as pas de cheveux", Allo !!!
C'est une fonction de base de Delphi.

function copy(s:string; deb, long: integer) :string;
(retourne une sous-chaine de s qui commence á "deb" et de longueur "lng)

"copy" n'existe pas en Delphi ??? Allo!
Bonne journee.

solilog
Messages postés
1284
Date d'inscription
mardi 28 octobre 2003
Statut
Contributeur
Dernière intervention
3 juillet 2015
13
@utbm90 : poste ton code, tu dois avoir une erreur...


Simon