Mam problem z wyswietleniem komunikatu gdy wyszukiwarka nie znajdzie elementu lub znajdze ale nie jest on pierwszy na liscie listbox. Dokladniej chodzi o to ze gdy wpisze nazwe np drugiego elementu to znajduje go ale i tak wyswietla komunikat 'brak ksiazki'.
A gdy nie ma elementu na liscie to wyswietla ten komunikat kilka razy pod rzad.
Pomoze ktos?
O to kod:
begin
if eszukaj.text='' then
begin
Application.MessageBox('Musisz podać tytuł książki !', 'Biblioteka', MB_ICONERROR);
end
else
begin
for i:=0 to lbksiazki.Items.Count-1 do
begin
if pos(lowercase(eszukaj.text),lowercase(lbksiazki.Items[i]))>0 then
begin
lbksiazki.ItemIndex:=i;
break;
end
else
Application.MessageBox('Nie ma takiej książki !', 'Biblioteka', MB_ICONERROR);
end;
eszukaj.Text :='';
end;
end;
Z gory dzieki.