Fórum Quicksort no memo #239415

procedure TForm1.Button1Click(Sender: TObject);
var
   valor : integer;//valor q se quer encontrar
   tnumeros : integer; // ultima linha do memo
   divisao : integer; // posição central do memo(meio)
   total: integer; // posição inicial do memo
   teste: integer; //controle do memo1
begin
  teste:=0;
  valor := (StrToint(edit1.Text)); //Recebe o valor procurado
  tnumeros:= memo12.Lines.Count -1;
 { if (tnumeros mod 2 ) = 0 then ->comentei essa parte pois não ha necessidade da mesma
     //fazer nada
  else               k
    tnumeros := tnumeros+1;}
  total := 0;
  divisao := (total+tnumeros) div 2; //pegando a posicao central
  {usando busca binaria
    divide o vetor em dois se o procurado for maior procura dele em diante
    se o procurado for igual ao meio encontrou
    se o procurado for menor que o meio procura do procura do inicio ate o meio
    cada vez q procura ele divide em dois até o meio ser igual ao procurado
  }

  while IntToStr(valor) <> Memo12.Lines[divisao] do //enquanto não encontrar
    //se teste ultrapassar o tamanho do memo não encontrou
    if teste > memo12.Lines.Count -1 then
      begin
        showmessage(´Valor não encontrado´);
        Break;
      end
    else
    begin //se o valor estiver na segunda metade do memo
      if valor > StrToInt(Memo12.Lines[divisao]) then
        begin // procura da metade em diante e recalcula o meio
          total := divisao+1;
          divisao := ( (total+tnumeros) div 2 );
        end
      else
         begin // se estiver na primeira metade
            // procura na primeira metade recalculando a pos do meio
            tnumeros := tnumeros-divisao;
            divisao := (total+tnumeros)div 2;
         end;
         teste:=teste+1;
  end;//End while
    // quando sair quer dizer q encontrou mas antes temos q testar
    // se o teste não ultrapassou o valor do memo
    // se não ultrapassou então encontrou :)
     if teste < memo12.Lines.Count -1 then
         showmessage(´Esta na linha ´+ IntToStr(divisao+1));
end;