Discussion :

[PoOky]

Bonjour à tous!
Voici mon problème: j'ai récupéré dans l'aide de delphi le bout de code suivant:

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
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
 
procedure TPrincipal.tbChercheClick(Sender: TObject);
begin
FindDialog1.Position := Point(Edits.Left + Edits.Width, Edits.Top);
FindDialog1.Execute;
end;
 
procedure TPrincipal.FindDialog1Find(Sender: TObject);
var
  FoundAt: LongInt;
  StartPos, ToEnd: Integer;
begin
  with Edits do
  begin
    { commence la recherche après la sélection en cours s'il y en a une }
    { sinon, commence au début du texte }
    if SelLength <> 0 then
 
      StartPos := SelStart + SelLength
    else
 
      StartPos := 0;
 
    { ToEnd indique la longueur entre StartPos et la fin du texte du contrôle éditeur de texte enrichi }
 
    ToEnd := Length(Text) - StartPos;
 
    FoundAt := FindText(FindDialog1.FindText, StartPos, ToEnd, [stMatchCase]);
    if FoundAt <> -1 then
    begin
      SetFocus;
      SelStart := FoundAt;
      SelLength := Length(FindDialog1.FindText);
    end;
  end;
end;

or, à la compilation, j'ai une erreur disant que "FindText" n'est pas déclaré! j'ai chercher sur le net ce qui pourrait concerner ce probleme mais je n'ai rien trouvé d'interessant... Merci de m'aider!

[Thierry G.]

salut,


a priori, il s'agit d'une fonction de TRichEdit donc le code devrait etre:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
    FoundAt := richedit1.FindText(FindDialog1.FindText, StartPos, ToEnd, [stMatchCase]);

eventuellement remplace richedit1 par le nom de ton composant richedit.

[PoOky]

sauf que ici j'utilise un Memo de SynEdit et non un TRichEdit! or, normalement mon memo synedit se comporte comme un Tmemo ou TRichEdit normal... mystère...

[Harvester]

Il ne faut pas le déclarer dans 'type' ?

Dites-moi si je dis n'importe-quoi.

[Benjamin GAGNEUX]

Salut,

"FindText" n'est pas déclaré

Sauf erreur, ce genre de message est généralement présent lorsqu'il manque un fichier dans les clauses Uses

Pour connaitre l'unité concerné pour cette fonction, appuie sur F1.

A+

[Thierry G.]

pourquoi ne pas essayer d'utiliser le compo SynEditSearch ?
qui est fourni avec le package synedit.

[PoOky]

Thierry G. > c'est ce que je suis en train de faire vu que je n'arrive pas a resoudre mon problème...

yobenzen > en effet on obtient ce genre de message lorsqu'il manque une declaration dans Uses mais en ce qui concerne FindText, il s'agit de "Dialogs" et je l'ai bien mise...

En l'attente de trouver une solution, merci d'avoir pris le temps de me répondre!

[Benjamin GAGNEUX]

en effet on obtient ce genre de message lorsqu'il manque une declaration dans Uses mais en ce qui concerne FindText, il s'agit de "Dialogs" et je l'ai bien mise...

Je ne suis pas tout à fait d'accord...
Il s'agirait plutôt dans ce cas précis de l'unité ComCtrls

[Edit]Il est vrai que l'aide Delphi n'est pas très précise là-dessus[/Edit]

J'ai réalisé un petit test pour vérifier et apparamment cela fonctionne.

[Edit 2]

Memo de SynEdit

Oups ... j'avais pas vu...
[/Edit]

[Edit 3]
Je ne connais pas très bien ce composant, cependant il semblerait que cette fonction n'existe pas...

Mais d'autre part, tu peux regarder dans la démo D4Demo (livrée avec ces composants) qui donne un apercu d'utilisation des différentes fonctionnalitées
[/Edit]

A bientot,

[PoOky]

Je ne suis pas tout à fait d'accord...
Il s'agirait plutôt dans ce cas précis de l'unité ComCtrls

>> autant pour moi tu a raison, mais le problème ne vient apparement pas de la car "ComCtrls" est bien présent, tout comme ce même message d'erreur!!!!!

j'avoue que je ne sait vraiment pas pourquoi j'ai ce problème...
Quant à la démo de SynEdit D4Demo, je vais de ce pas y jeter un oeil! merci!

[PoOky]

Toujours la même erreur sur "FindText"!!!!!!

[neilbgr]

A priori, si tu utilise TSysMemo (ou TSysEdit), effectivement FindText() n'existe pas.
Mais il existe la méthode TCustomSynEdit.SearchReplace() qui sert pour la recherche et/ou le remplacement.

: Si pas résolu, quelle version de SynEdit utilises-tu ? et de quelle classe est ton mémo ?