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