functie terug in de touwtjes in handen. Het aantal keer.Er is ook een ANSI version.,,, door Occurrences in een string,,,, de volgende functies terug van het nummer van de Occurrences van A - of a substring in a string of ANSI - interface,,,,,, function voordoet (totaal STR: touw; c: Char):,, een getal niet voordoet;; (totaal str: touw; een totaal substr: string): gehele;,,,, AnsiOccurs geven; een (totaal str: touw; een string. Substr:):;,,,,, - uitvoering en gebruik sysutils;,,, function voordoet (totaal str: Char touw; c): ///////.,, het nummer terug. Van ze zich voordoet in een string a karakter var, enz PChar,,,,,,, ", gevolg: = 0;,, P.: = PChar (punt (STR);,, terwijl de P < > nul doen gaan, StrScan (P = P:,,,, C); if p <> nil then begin,, inc(Result);,, inc(p);,, end;,, end;,, end;,,, function Occurs(const str: string; const substr: string): integer;,, //Returns the number of times a substring occurs in a string,, var,, p, q: PChar;, , , n: integer;,, begin,, Result := 0;,, n := Length(substr);,, if n = 0 then exit;,, q := PChar(Pointer(substr));,, p := PChar(Pointer(str));,, while p <> nil do begin,, p := StrPos(p, q);,, if p <> nil then begin,, inc(Result);,, inc(p, n);,, end;,, end;,, end;,,, function AnsiOccurs(const str: string; const substr: string): integer;,, //Returns the numbeR maal - die in een string,, ///////- versie, var, P, Q:PChar, n: gehele getal;,,,,,,,, de resultaten: = 0; n = lengte (gat);,, als' n = 0, Q, stop dan. PChar (punten (functie: =));,, P = PChar (punten (STR);, en P < > nul beginnen, P = ansistrpos (P, Q);,, als P < > nul beginnen, Inc. (resultaten);,, Inc. (P), n); en,,,, aan het einde van het einde,,;;