dobra, mam takie coś:
var
Index, i: Integer;
begin
for i := 0 to ListView1.Items.Count - 1 do
if Pos(UpperCase(Edit1.Text),Uppercase(ListView1.Items.Item[i].Caption)) > 0 then
begin
Index := i;
ListView1.Items.Item[i].Selected := True;
ListView1.SetFocus ;
end;
end;
niby dobrze, ale jest jeden (praktycznie najważniejszy) problem - przeszukiwanie przelatuje mi całą zawartość ListView do samego konca i zaznacza mi ostatnią wartość jaka odpowiada zawartości Edit.
Ma może ktoś jakiś pomysł aby zrobić coś w stylu FindNext? chodzi mi o to żeby pętla zatrzymywała mi się na znaleźionej pozycji i szła dalej dopiero gdy kolejny raz zostanie wywołana przez np. naciśnięcie przycisku.
Mam nadzieję że w miare jasno opisałem swój problem.
z góry dzieki.
pozdro.