suche dichotomitque

[WhatAmI]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var liminf,limsup,milieu:integer;
     trouver:boolean;
begin
trouver:=false;
liminf:=0;
limsup:=lb.items.count-1;
while (not trouver) and (liminf < limsup) do
  begin
     milieu:=(limsup+liminf) div 2 ;
     if lb.items[milieu]= edtR.text then
      trouver:=true
       else
        if lb.items[milieu]> edtR.text then
          limsup:=milieu-1 else
          liminf:=milieu+1
  end;
   if trouver then
    lb.Selected[milieu]:=true
      else
        showmessage('sorry I dont find anything');
end;

funzt irendwie nicht so findet nur ab und zu einen eintrag! kann jemand mier da weiterhelfen was hab ich bloss falsch gemacht