Bonjour, j'avais posté ici pour avoir une fonction de recherche je le eu mais le problème c'est que le fonction de recherche que l'on ma fourni marche que si le mot est exacte à 100% (même les majuscules), j'ai essayé d'arranger la fonction à ma sauce mais cela n'a pas marcher.
Avez-vous des pistes ou une fonction qui pourrai resoudre mon problème ?

Je vous mets la fonction que l'on m'avait donné.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
 
function StringGridIndexOf(Grid : TStringGrid; Str : string; Col : integer) : integer; 
begin 
  Result := 0; 
  while Result < Grid.RowCount do 
    if Grid.Cells[Col, Result] = Str then exit else inc(Result); 
  Result := -1; 
end;