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


Une fonction de recherche de texte dans le cadre d'un champ d'un ensemble de données
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 données (cela peut être 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 données de terrain. La recherche peut être
& nbsp & nbsp // sensible à la casse (option loCaseSensitive) et peut commencer à partir de la
& nbsp & nbsp // début ou à partir de l'enregistrement en cours (option loContinue).
& nbsp & nbsp //
& nbsp & nbsp // Renvoie True si la chaîne a été trouvée (le jeu de données est positionné
& nbsp & nbsp // dans ce dossier) et False dans le cas contraire (le jeu de données est laissé 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 données.Eof puis Dataset.Suivant
& ! & ! & ! & ! & ! & nbsp fin else
& ! & ! & ! & ! & ! & ! & ! & nbsp Dataset.Premier // Commencer depuis le début
& ! & ! & ! & ! & ! & nbsp si ce n' (loCaseSensitive dans LocateOptions)
& ! & ! & ! & ! & ! & ! & ! & nbsp Str := Majuscule(Str)
& ! & ! & ! & ! & ! & nbsp alors que pas un jeu de données.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 Résultat := Dataset.Eof
& ! & ! & ! & nbsp enfin
& ! & ! & ! & ! & ! & nbsp si pas ControlsDisabled puis Dataset.EnableControls
& ! & ! & ! & nbsp fin
& nbsp & nbsp fin









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


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.
Recommander aux amis
  • gplus
  • pinterest

Messages récents

Commentaire

Laisser un commentaire

évaluation