een deel van de tekst, in een functie op het gebied van de gegevens, en een deel van de tekst, en op zoek naar een tekst van een deel van het gebied van de,,,, de volgende is een gebied in alle gegevens van een deel van de tekst is bijvoorbeeld het zoeken kan functioneren (TTable, TQuery, tadotable, TADOQuery, tibtable, tibquery, enz.),,,,, tlocatestroption = (locasesensitive, locontinue);,, tlocatestroptions = set tlocatestroption;,,, de functie locatestr (verzamelen van gegevens: in de TDataSet; gebied: een gebied; STR:;,,,, locateoptions:tlocatestroptions): Bull. ///////zoeken in een tekst gegevens van een deel van het gebied.De zoektocht kan,, ///////gevoelige (optie uit te locasesensitive),, of uit de huidige gegevens /begin (optie locontinue).,,, ////////, terug waar als het touw gevonden (van gegevensverzameling,, /gegevens) en van valse of (verzamelen van gegevens is links, EOF), var, controlsdisabled: Bull.,,,, controlsdisabled:= gegevens. Controlsdisabled;,, als niet controlsdisabled en gegevens. Disablecontrols;,,,, locontinue proberen, als in de locateoptions dan beginnen, als er geen gegevens zijn dus gegevens; daarvan. Tot slot, andere,,, het verzamelen van gegevens. Het eerste; ///////vanaf het begin, en als het niet (locasesensitive in locateoptions) dan STR: = hoofdletters (STR);, in plaats van de gegevens. Om de beginnen, als locasesensitive in locateoptions dan beginnen, en als de producentenorganisaties (Str. Gebied. Asstring) < > 0 dan breken; en, tot slot, als iemand anders, begin, pos (STR, hoofdletters (gebied. Asstring) < > 0 dan breken;,,,, aan het einde van de gegevens;,,.,,, aan het einde van de gegevens; de resultaten: =. EOF;,, en tot slot, als niet controlsdisabled en gegevens. Enablecontrols;,,,,,, einde.