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:

function TForm1.Suche(gesucht:integer):integer;
var
anfang1,ende1,ergebnis, offen, mitte:integer;
begin
Zeit:= 0;
ergebnis:=0;
offen:=0;
anfang1:= 0;
ende1:=z;
mitte:=-1;
while ergebnis = offen do begin

  if mitte <> gesucht  then begin
  if Zeit<10 then begin
     asd:=((anfang1 + ende1) div 2) + 1;
     mitte:= halter2[asd];
     Zeit:=Zeit+1;
     if mitte > gesucht then
          ende1:=asd -1
          else
      anfang1:=asd;
          end
  else  begin
  showmessage('die gesuchte Zahl ist nicht vorhanden');
  ergebnis := 1;
  close;
  end
  end
  else
   ergebnis :=1;
   result:=asd;
   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:

Idx_links := 0;
Idx_Rechts := length(MeinArray) - 1;
result := -1; // ungültiger index

repeat
  Idx_mitte := (Idx_links + Idx_rechts) Div 2;
  if MeinArray[Idx_Mitte] = SuchWert then
  begin
      result := Idx_Mitte; // Treffer, gefunden
      rechts := -1; // Abbruch erzwingen
  end else
  if MeinArray[Idx_Mitte] > SuchWert then
  begin
    // Suchwert liegt links von der Mitte
    Idx_rechts := Idx_Mitte - 1
  end else
  if MeinArray[Idx_Mitte] < SuchWert then
  begin
    // Suchwert liegt rechts von der Mitte
    Idx_links := Idx_Mitte + 1
  end;
until (Idx_links > Idx_rechts)

// wenn result dann noch -1 ist, gibt es das gesuchte Element nicht					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

procedure TF_Wort.Wort(n: Integer; w: string);
var i: char;
begin
  if n = 0 
    then M_Ausgabe.Lines.Add(w)
    else begin
           for i:= 'A' to 'F'
           do Wort(n-1,w+i)
        end;
end;