Recherche de texte dans n'importe quelle partie d'un champ

Recherche de texte dans n'importe quelle partie d'un champ

Recherche de texte dans n'importe quelle partie d'un champ : Plusieurs milliers de conseils pour vous faciliter la vie.

Une fonction de recherche de texte dans le cadre d'un champ d'un ensemble de donnees
Recherche de texte dans n'importe quelle partie d'un champ
La fonction suivante permet de rechercher le texte dans n'importe quelle partie d'un champ d'un ensemble de donnees (cela peut etre par exemple un TTable, TQuery, TADOTable, TADOQuery, TIBTable, TIBQuery, etc.)
type
& nbsp & nbsp & nbsp TLocateStrOption = (loCaseSensitive, loContinue)
& nbsp & nbsp & nbsp TLocateStrOptions = ensemble de TLocateStrOption
& nbsp & nbsp fonction LocateStr(Dataset: TDataset Champ: TField Str: String
& ! & ! & ! & nbsp LocateOptions: TLocateStrOptions): boolean
& nbsp & nbsp // Recherche de texte dans n'importe quelle partie d'un ensemble de donnees de terrain. La recherche peut etre
& nbsp & nbsp // sensible a la casse (option loCaseSensitive) et peut commencer a partir de la
& nbsp & nbsp // debut ou a partir de l'enregistrement en cours (option loContinue).
& nbsp & nbsp //
& nbsp & nbsp // Renvoie True si la chaîne a ete trouvee (le jeu de donnees est positionne
& nbsp & nbsp // dans ce dossier) et False dans le cas contraire (le jeu de donnees est laisse dans EOF)
& nbsp & nbsp var
& ! & ! & ! & nbsp ControlsDisabled: boolean
& nbsp & nbsp commencer
& ! & ! & ! & nbsp ControlsDisabled := Dataset.ControlsDisabled
& ! & ! & ! & nbsp si pas ControlsDisabled puis Dataset.DisableControls
& ! & ! & ! & nbsp essayer

& ! & ! & ! & ! & ! & nbsp si loContinue dans LocateOptions puis commencer
& ! & ! & ! & ! & ! & ! & ! & nbsp si pas de jeu de donnees.Eof puis Dataset.Suivant
& ! & ! & ! & ! & ! & nbsp fin else
& ! & ! & ! & ! & ! & ! & ! & nbsp Dataset.Premier // Commencer depuis le debut
& ! & ! & ! & ! & ! & nbsp si ce n' (loCaseSensitive dans LocateOptions)
& ! & ! & ! & ! & ! & ! & ! & nbsp Str := Majuscule(Str)
& ! & ! & ! & ! & ! & nbsp alors que pas un jeu de donnees.Eof do begin
& ! & ! & ! & ! & ! & ! & ! & nbsp si loCaseSensitive dans LocateOptions puis commencer
& ! & ! & ! & ! & ! & ! & ! & ! & ! & nbsp si Pos(Str, sur le Terrain.AsString) <> 0 then break
& ! & ! & ! & ! & ! & ! & ! & nbsp end else begin
& ! & ! & ! & ! & ! & ! & ! & ! & ! & nbsp si Pos(Str, en Majuscules(sur le Terrain.AsString)) <> 0 then break
& ! & ! & ! & ! & ! & ! & ! & nbsp fin
& ! & ! & ! & ! & ! & ! & ! & nbsp Dataset.Suivant
& ! & ! & ! & ! & ! & nbsp fin
& ! & ! & ! & ! & ! & nbsp Resultat := Dataset.Eof
& ! & ! & ! & nbsp enfin
& ! & ! & ! & ! & ! & nbsp si pas ControlsDisabled puis Dataset.EnableControls
& ! & ! & ! & nbsp fin
& nbsp & nbsp fin