Recherche dans un stringgrid
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:
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; |
