Buscando el texto en cualquier parte de un campo

Buscando el texto en cualquier parte de un campo

Buscando el texto en cualquier parte de un campo : Multi-millones de consejos para hacer su vida mas facil.

Una funcion de busqueda de texto en la parte de un campo de cualquier conjunto de datos
busqueda de texto en cualquier parte de un campo
La siguiente funcion de las busquedas de texto en cualquier parte de un campo de cualquier conjunto de datos (puede ser por ejemplo un TTable, TQuery, TADOTable, TADOQuery, TIBTable, TIBQuery, etc.)
tipo
& nbsp & nbsp & nbsp TLocateStrOption = (loCaseSensitive, loContinue)
& nbsp & nbsp & nbsp TLocateStrOptions = conjunto de TLocateStrOption
& nbsp & nbsp funcion LocateStr(Dataset: TDataset Campo: TField Str: String
& nbsp & nbsp & nbsp & nbsp LocateOptions: TLocateStrOptions): boolean
& nbsp & nbsp // Busquedas de texto en cualquier parte de un conjunto de datos de campo. La busqueda puede ser
& nbsp & nbsp // minusculas (opcion loCaseSensitive) y se puede iniciar desde el
& nbsp & nbsp // inicio o desde el registro actual (opcion loContinue).
& nbsp & nbsp //
& nbsp & nbsp // Devuelve True si la cadena se encuentra (el conjunto de datos se coloca
& nbsp & nbsp // en ese registro) y False de lo contrario (el conjunto de datos esta a la izquierda en EF)
& nbsp & nbsp var
& nbsp & nbsp & nbsp & nbsp ControlsDisabled: boolean
& nbsp & nbsp empezar
& nbsp & nbsp & nbsp & nbsp ControlsDisabled := conjunto de datos.ControlsDisabled
& nbsp & nbsp & nbsp & nbsp si no ControlsDisabled, a continuacion, conjunto de datos.DisableControls
& nbsp & nbsp & nbsp & nbsp probar

& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp si loContinue en LocateOptions, a continuacion, empezar
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp si no del conjunto de datos.Ef luego de conjunto de datos.Siguiente
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp end else
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp conjunto de datos.Primera // Empezar desde el principio
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp si no (loCaseSensitive en LocateOptions), a continuacion,
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp Str := Mayusculas(Str)
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp aunque no del conjunto de datos.Eof do begin
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp si loCaseSensitive en LocateOptions, a continuacion, empezar
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp si Pos(Str, Campo.AsString) <> 0 then break
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp end else begin
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp si Pos(Str, Mayusculas(de Campo.AsString)) <> 0 then break
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp final
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp conjunto de datos.Siguiente
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp final
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp Resultado := conjunto de datos.Ef
& nbsp & nbsp & nbsp & nbsp finalmente
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp si no ControlsDisabled, a continuacion, conjunto de datos.EnableControls
& nbsp & nbsp & nbsp & nbsp final
& nbsp & nbsp final