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

function binaersuche(MyArray, links, rechts, Suchbegriff);
begin
  If links > rechts then result := -1;

  if links = rechts then 
    if MyArray(links) = Suchbegriff then 
      result :=  links
    else 
      result := -1;

// ""else""

  mitte := (links + rechts) /2;
  
  result := binaersuche(myarray, linkeGrenze, mitte-1)
  //oder, je nachdem
  result := binaersuche(myarray, mitte+1, rechte Grenze)

end;                    

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

function BS(astrl: TStringlist; aWord: string; iLo, iHi: integer; var position: integer): boolean;
var
  apos: integer;
begin
  result := false;
  apos := ((iLo + iHi) div 2);
  position := apos;
  if (lowercase(astrl[apos]) < lowercase(aWord)) then
    inc(iLo);
  if (lowercase(astrl[apos]) > lowercase(aWord)) then
    dec(iHi);
  if (lowercase(astrl[apos]) = lowercase(aWord)) then
    result := true;
  if ((result = false) and (iLo <= iHi)) then
    BS(astrl, aWord, iLo, iHi, position);
end;                    

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

procedure AddWordToList(aWord: string; var astrl: TStringlist);
var
  position: integer;
begin
  position := 0;
  if astrl.Count = 0 then
  begin
    astrl.add(aWord);
    exit;
  end;
  if BS(astrl, aWord, 0, astrl.Count - 1, position) = false then
    astrl.Insert(position, aWord);
end;                    

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

function binaersuche(Liste: TObjectlist;filename:WideString; l,r:integer):integer;
var m:integer;
    c:integer;
begin
    if r<l then
    begin
        result:=-1;
    end else
    begin
        m:=(l+r) DIV 2;
        c := WideCompareText(filename,(Liste[m] as TAudioFile).Pfad);
        if l=r then
        begin
            if c=0 then result:=l
            else result:=-1;
        end else
        begin
            if c=0 then
                result:=m
            else if c > 0 then
                result := binaersuche(Liste,filename,m+1,r)
                else
                    result := binaersuche(Liste,filename,l,m-1);
        end;
    end;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:

function BS(astrl: TStringlist; aWord: String; l, r: integer; var position: integer): boolean;
var
  m: integer;
begin
  if r < l then
     result := false else
    begin
      m := (l + r) div 2;
      position := m;
      if l = r then
      begin
        if lowercase(astrl[m]) = lowercase(aWord) then
          result := true else
            result:= false;
      end else
      begin
        if lowercase(astrl[m]) = lowercase(aWord) then
          result := true else
            if lowercase(astrl[m]) > lowercase(aWord) then
              result := BS(astrl, aWord, m + 1, r, position) else
                result := BS(astrl, aWord, l, m - 1, position);
      end;
    end;
end;

procedure AddWordToList(aWord: string; var astrl: TStringlist);
var
  position: integer;
begin
  position := 0;
  if astrl.Count = 0 then
  begin
    astrl.add(aWord);
    exit;
  end;
  if BS(astrl, aWord, 0, astrl.Count - 1, position) = false then
    astrl.Insert(position, aWord);
end;                    

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

procedure ExtractWords(input: TStringlist; var output: TStringlist);
  function isSep(aChar: Char): Boolean;
  begin
    result := aChar in [#0..#32, '.', ',', '?', ':', ';', '(',')', '[', ']', '/', '\'];
  end;
var
  i, sep: integer;
  temptext: string;
begin
  i := 1;
  sep := 1;
  temptext := '';
  for i := 1 to length(input.text) do
    if isSep(input.text[i]) then
    begin
      temptext := copy(input.text, sep, i - sep);
      if length(temptext) > 0 then
        AddWordToList(temptext, output);
      sep := i + 1;
    end;
end;                    

1:

 function Find(const S: string; var Index: Integer): Boolean; virtual;                    

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

procedure AddWordToList(aWord: string; var astrl: TStringlist);
var
  position: integer;
begin
  position := 0;
  if astrl.Count = 0 then
  begin
    astrl.add(aWord);
    exit;
  end;
    if astrl.Find(aWord, position) = false then
    astrl.Insert(position, aWord);
end;