Discussion :

[aimer_Delphi]

Bonsoir à tous ,
SVP est-il possible de savoir le mot saisi dans un memo après l’appui sur la touche contrôle du clavier ?
c-a-d l'utilisateur saisit du texte dans un memo quand il appuie sur la touche contrôle du clavier, je dois afficher le mot saisi.

un exemple :

Bonjour les développeurs
si il appuie sur la touche contrôle du clavier après le mot "développeurs" je dois afficher : (développeurs)

ainsi si il appuie sur la touche contrôle du clavier après le mot "les" je dois afficher : (les) .
vraiment je suis perdu

[tourlourou]

Tu dois donc lors de l'appui sur CTRL afficher le mot qui démarre après le dernier espace et finit la chaîne saisie ?
Ou est-il question de détecter le mot sous le curseur, qui n'est pas forcément le dernier ?

[aimer_Delphi]

Tu dois donc lors de l'appui sur CTRL afficher le mot qui démarre après le dernier espace et finit la chaîne saisie ?

c'est exactement ce que je cherche.

[gbegreg]

Bonsoir,

Voici une solution possible (en supposant qu'il y a sur la form1 un TMemo nommé memo1) :

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
function TForm1.RechercheMotSousCurseur:string;
var
  lstCaracteresSep, lgMemo : string;
  i, iDebutMot, iFinMot : integer;
begin
  // Liste des caractères à considérer comme séparateur de mots
  lstCaracteresSep := ' .,;:!?/\([])}';
 
  // On récupère la ligne du memo où est le curseur
  lgMemo := memo1.Lines[memo1.CaretPos.Y];
 
  // Recherche le début du mot à partir de la position du curseur dans la ligne
  for I := memo1.CaretPos.X downto 0 do
  begin
    if pos(lgMemo[i], lstCaracteresSep) > 0 then break
    else iDebutMot := i;
  end;
 
  // Recherche la fin du mot à partir de la position du curseur dans la ligne
  for I := memo1.CaretPos.X to length(Memo1.Text)-1 do
  begin
    if pos(lgMemo[i], lstCaracteresSep) > 0 then break
    else iFinMot := i;
  end;
 
  // On retourne la partie de la ligne en fonction des bornes trouvées
  result := copy(lgMemo,iDebutMot,iFinMot-iDebutMot+1);
end;

Dans cet exemple, la variable lstCaracteresSep contient la liste des caractères à considérer comme séparateur de mots. Il faut la modifier en fonction des cas.

Et puis, sur l'événement OnKeyDown du memo, lorsque l'utilisateur appuie sur CTRL :

Code :

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

1
2
3
4
procedure TForm1.Memo1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  if key = VK_CONTROL then showmessage(RechercheMotSousCurseur);
end;

[aimer_Delphi]

Merci beaucoup gbegreg .
magnifique .

[retwas]

Tu peux aussi utiliser les Regex :

Code :

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

Showmessage(TRegEx.Match('Bonjour les développeurs', '[a-zA-Zéèçàù]*$').Value);