, en funktion til at gennemsøge tekst i en del af et område for alle datasæt, efter tekst i en del af et område,,,,,,,,, efter at fungere frem til i en hvilken som helst del af en tekst inden for alle datasæt (det kan f.eks. tabel, tquery, tadotable, tadoquery, tibtable, tibquery osv.),,,,, tlocatestroption = (locasesensitive, locontinue);,, tlocatestroptions = sæt tlocatestroption;,,, funktion locatestr (datasæt: tdataset. område: tfield; tlf: string,,, locateoptions: tlocatestroptions): boolean,,, //søgninger tekst i nogen del af et datasæt område.søgningen kan være, //tilfælde følsomme (mulighed locasesensitive) og kan begynde fra, //begyndelsen eller fra den nuværende rekord (mulighed locontinue). //////////afkast,, hvis den snor blev fundet (datasættet er placeret, //i, at registrere) og falske andet (datasættet er tilbage i eof), var, controlsdisabled: boolean,,, begynder, controlsdisabled: = datasæt. controlsdisabled;,, hvis ikke controlsdisabled så datasæt. disablecontrols;,,,,,, hvis locontinue i locateoptions så begynde, hvis ikke datasæt. eof - datasættet. næste.,,,, - datasættet. første; //fra begyndelsen, hvis ikke (locasesensitive i locateoptions) så, str.: = store (str), mens ikke - datasættet. heri skal begynde, hvis locasesensitive i locateoptions så begynde, hvis producentorganisationer (tlf. område. asstring) < > 0, så bryd;,, ellers begynder, hvis producentorganisationer (str, store (område. asstring)) < > 0, så bryd,,,,,, - datasættet. næste,,,,,, resultat: = datasæt. eof og, endelig, hvis ikke controlsdisabled så datasæt. enablecontrols,,,,,,,,,