1:

integer:=pos(substring,string);					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:

Function FastPos (Const aSubStr, aString : String; aStart : Integer) : Integer;
Var
  c : Char;
  n,m : Integer;
    
Begin
  Result := aStart;
  m := Length (aSubStr);  
  n := Length (aString) - m + 1;
  c := aSubStr[1];
  While Result < n do begin
    While aString [Result] <> c do 
      If Result = n Then 
        break 
      else 
        inc (Result);
    If Ansiuppercase (Copy (aString , Result, m)) = aSubStr then 
      Exit;
    inc (Result);
    End;
  Result := 0
End;					

1:

Function MultiPos (SubString : Array Of String; aString : String) : Array Of Integer;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

function findanykeywordascending(zeile:string;unten,oben:integer;var gefundeneswort:string;var erfolg:boolean):integer;
var i,a,b,l:integer;dochnich:boolean;words:string;

begin erfolg:=false;
for i:=unten to oben do begin  b:=0;
         repeat b:=b+1;words:=knownkeywords[ord(zeile[i])-96,b];l:=length(words); dochnich:=false;
             For a:=1 to l-1 do begin
                //hier müsste man noch absichern,dass words nicht leer ist
                if zeile[a+i]<>words[a+1] then begin dochnich:=true;end;
             end;
         if (dochnich=false) and (l<>0) then begin erfolg:=true;gefundeneswort:=words;findanykeywordascending:=i;exit;end;
         until (b>length(knownkeywords[ord(zeile[i])-96]));

   end;
end;