Copier certaines lignes d'un memo vers un autre memo [Résolu]

Signaler
Messages postés
43
Date d'inscription
samedi 3 août 2013
Statut
Membre
Dernière intervention
17 décembre 2019
-
Messages postés
675
Date d'inscription
jeudi 17 avril 2008
Statut
Membre
Dernière intervention
19 février 2019
-
Bonjour,
Comment puis copier les ligne d'un memo contenant 'ALM' ou 'ACK' vers un autres memo?
Merci d'avance de votre aide....

3 réponses

Messages postés
2233
Date d'inscription
mardi 10 décembre 2002
Statut
Modérateur
Dernière intervention
15 décembre 2014
5
Salut,

for i := 0 to Memo1.Lines.Count-1 do
if pos('ALM', Memo1.Lines[i]) <> 0 then
Memo2.Lines.Add(Memo1.Lines[i]);

a+
Messages postés
675
Date d'inscription
jeudi 17 avril 2008
Statut
Membre
Dernière intervention
19 février 2019
10
Parfait MAURICIO
petit ajout :

for i := 0 to Memo1.Lines.Count-1 do
if (pos('ALM', uppercase(Memo1.Lines[i])) <> 0) or (pos('ALK', uppercase(Memo1.Lines[i])) <> 0) then
Memo2.Lines.Add(Memo1.Lines[i]);
Messages postés
675
Date d'inscription
jeudi 17 avril 2008
Statut
Membre
Dernière intervention
19 février 2019
10
encore que si le memo1 contient "palmier" ma solution n'est pas valable !