Encontrar un Item en un ListBox

[esocrates]

Un saludo a todos,
Necesito ayuda con este código:
Tengo en un Form un ListBox, un Botton y un Edit.
Quiero recorrer el ListBox y si se encuentra determinado Item que se escriba un mensaje en el Edit.
Supongamos que el Item es 'Pepe' y se encuentra en el ListBox
Intento esto y no pasa nada:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  i: integer;
begin
  for i:= 0 to Listbox1.Items.Count - 1 do
    if Listbox1.ItemIndex <> -1 then
      begin
  if ListBox1.Items.Text='Pepe' then

      begin
        Edit1.Text:= 'Encontrado';
      end;
    end;
end;
end;

Desde ya muchas gracias

[ContraVeneno]

Código Delphi [-]
if ListBox1.Items[i].Text='Pepe' then

no creo que

Código Delphi [-]
if Listbox1.ItemIndex <> -1 then

sea necesario... ya que lo estas filtrando desde el ciclo for; si no tiene elementos no se ejecuta el ciclo.

[esocrates]

Muchas gracias ContraVeneno;
Lo resolví de este modo:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  i: integer;
begin
  for i:= 0 to Listbox1.Items.Count - 1 do

      begin

       if  ListBox1.Items[i] ='Pepe' then

          begin
            Edit1.Text:= 'Encontrado';
          end;
       end;
end;

Un saludo

[roman]

¿Y no sería más sencillo usar IndexOf?

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  if ListBox1.Items.IndexOf('Pepe') <> -1 then
  begin
    Edt1.Text := 'Encontrado';
  end;
end;

// Saludos

[Sotrono]

Hola, no necesitas poner esos begins despues del if, ya que solo son necesarios cuando debajo del if hay mas de una instrucción. Además en este caso es mejor utilizar un repeat o en todo caso un while en lugar de un bucle for, porque este último te va a recorrer todo el ListBox siempre, y si la cadena la encuentra, por ejemplo, en la segunda linea no necesita seguir recorriendolo.

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var i : integer;
begin
  i := 0;
  repeat
    if ListBox1.Items.Strings[i] = 'Pepe' then
      Edit1.text := 'Encontrado';
      i := i + 1;
  until (i = ListBox1.Items.Count) or (edit1.text = 'Encontrado');
//Sale del repeat cuando encuentra la cadena o llegó al ultimo item
end;

Bytes...

[Sotrono]

Empezado por roman

¿Y no sería más sencillo usar IndexOf?

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  if ListBox1.Items.IndexOf('Pepe') <> -1 then
  begin
    Edt1.Text := 'Encontrado';
  end;
end;

No conocía esa función, igual no creo que compile la linea Edt1.Text := 'Encontrado';

[roman]

Ojo:

Antes de comenzar el repeat hay que verificar que el list box no esté vacío.

// Saludos

[roman]

Empezado por Sotrono

no creo que compile la linea Edt1.Text := 'Encontrado';

Claro que sí. Yo a mis "edits" los llamo Edt1, Edt2, Edt3, etc.

// Saludos

[esocrates]

Muchas gracias roman y sotrono.
Cada una de las soluciones que me han dado me ha enseñado algo nuevo.
Un saludo