Boyer-Moore string search: Difference between revisions
m
→{{header|Pascal}}: cosmetic
m (→{{header|Pascal}}: cosmetic) |
m (→{{header|Pascal}}: cosmetic) |
||
Line 528:
type
▲ TSearchFun = reference to function(const s: rawbytestring): TIntArray;
{ returns a function that performs a case-sensitive search for all occurrences(1-based)
Line 589 ⟶ 588:
Needle := '';
{ returns an empty array if there are no matches or the pattern is empty }
Result := function(const aHaystack: rawbytestring):
var
pNeedle: PByte absolute Needle;
|