En funksjon for å søke tekst i en del av et felt av noen datasettet Leter etter tekst i en hvilken som helst del av et felt
Følgende funksjons søker etter tekst i noen del av et felt av noen datasett (det kan være for eksempel en TTable, TQuery, TADOTable, TADOQuery, TIBTable, TIBQuery, etc.) skriver TLocateStrOption = (loCaseSensitive, loContinue); TLocateStrOptions = sett TLocateStrOption; funksjon LocateStr (Datasett: TDataset; Field: TField; Str: String; LocateOptions: TLocateStrOptions): boolean; //Søk tekst i noen del av et datasett felt. Søket kan være //små bokstaver (opsjon loCaseSensitive) og kan starte fra //begynnelsen eller fra den nåværende rekorden (opsjon loContinue). ////Returnerer sann hvis strengen ble funnet (datasettet er plassert //i at posten) og False ellers (datasettet er igjen i EOF) Var ControlsDisabled: boolean; begynne ControlsDisabled: = Dataset.ControlsDisabled; hvis ikke ControlsDisabled deretter Dataset.DisableControls; prøve hvis loContinue i LocateOptions begynne så hvis ikke Dataset.Eof deretter Dataset.Next; ende annet Dataset.First; //Start fra begynnelsen hvis ikke (loCaseSensitive i LocateOptions) så Str: = store bokstaver (Str); mens ikke Dataset.Eof gjøre begynne hvis loCaseSensitive i LocateOptions deretter begynne hvis Pos (Str, Field.AsString) < > 0 deretter bryte; ende annet begynne hvis Pos (Str, store bokstaver (Field.AsString)) < > 0 deretter bryte; slutt; Dataset.Next; slutt; Resultat: = Dataset.Eof; slutt hvis ikke ControlsDisabled deretter Dataset.EnableControls; slutt; end;