Bonjour,

Je lance une recherche dans un TRichEdit et j'ai besoin de positionner la sélection (le curseur) sur la première ocurrence trouvée.

J'ai essayé avec le code ci-dessous mais sans résultat :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
with redtFichier do
	begin
	  for iCpt := 0 to redtFichier.Lines.Count - 1 do
	  begin
	    sRow := redtFichier.Lines[iCpt];
	    if AnsiContainsStr(UpperCase(sRow), Uppercase(sSearchText)) = true then
	    begin
	      if isCursorPos = true then
	      begin
	        // Aller à la ligne trouvée
	        SelStart := Perform(EM_LINEINDEX, iCpt, 0);
	        Perform(EM_SCROLLCARET, 0, 0);
	      end;
	      SurligneUneLigne(redtFichier, clWhite, clNavy, iCpt);
	      Inc(nbResult);
	    end;
	  end;
	 end;
Svp, si qu'elqu'un à une idée ou une solution je suis preneuse.
D'avance merci.