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:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:

 
public
    { Public-Deklarationen }
    procedure suchen(l,r,x: integer);     //l= anfang array und r= ende arry x = gesuchte zahl
  end;

var
  Form1: TForm1;
  liste: array[1..10] of integer;
  k: integer;

implementation

{$R *.DFM}


procedure TForm1.Button1Click(Sender: TObject);  //Zahlen ins Array speichern
begin
Listbox1.Clear;
for k := 1 to 10 do
begin
z:= z+1;
liste[k]:= z;
Listbox1.Items.Add(IntToStr(liste[k]));       //in Listbox ausgeben
end;
end;

procedure TForm1.suchen;                //die procedure zum suchen
var
m: integer;
gefunden: boolean;
begin
gefunden:= false;
while (gefunden=false) and (l<=r) do
 begin
 m:= (l+r) div 2;  //die Mitte des Arrays
 if x = liste[m] then gefunden:= true
  else
  if x < liste[m]  then r:= m+1
   else
   l:= x-1;
   end;

if gefunden = true then ShowMessage(' Die Zahl wurde gefunden!')
else Showmessage('nicht gefunden');
end;



procedure TForm1.Button2Click(Sender: TObject);
begin
suchen(1,10, StrToInt(Edit2.Text));       //procedure aufrufen
end;

end.