japee
Messages postés1727Date d'inscriptionvendredi 27 décembre 2002StatutModérateurDernière intervention 6 novembre 20218 13 sept. 2003 à 14:45
Ca m'étonnerait que ça soit la réponse exacte à ton problème, car je ne vois pas trop à quoi ça te sert, mais c'est la réponse au problème que tu exprimes ici.
var i: Integer;
begin
for i := 0 to RichEdit1.Lines.Count - 1 do
if pos('Bonjour', RichEdit1.Lines[i]) <> 0 then
Edit1.Text := 'Bonjour';
end;