Chce by po wyborze item'a w listboxie wyszukiwal sie text z nieco zmodyfikowana trescia w rich edit. Korzystam z procedury znalezionej w faq'u. Wyglada to tak:
procedure TForm1.ListBox1Click(Sender: TObject);
var i:integer;
nazwa:string;
FoundAt: LongInt;
StartPos, ToEnd: Integer;
begin
nazwa:= '';
with RichEdit1 do
begin
if SelLength 0 then
StartPos := SelStart + SelLength
else
StartPos := 0;
ToEnd := Length(nazwa) - StartPos;
FoundAt := FindText(
nazwa, StartPos, ToEnd, [stMatchCase]);
if FoundAt -1 then
begin
SetFocus;
SelStart := FoundAt;
SelLength := Length(nazwa);
end;
end;
I problem, w tym, ze nie kazdy element mi znajduje (zaznacza) choc jestem pewien ze on istnieje. Czemu sie tak dzieje? Jak moge cos na to zaradzic?
A moze jest inny sposob na rozwiazanie mojego problemu. To znaczy sprawdzam, czy cala linijka rich edita pokrywa sie z wartoscia itema. Potem przestawiam widok i kursor na ta linijke...