mORMot Open Source

tbo

Member

Registered: 2015-04-20

Posts: 335

Issue: TSynLogFileView.SearchPreviousText

mORMot2, Commit 7243 (ee6c774), Delphi 12, 32Bit
Unit mormot.core.log

Line 7550 should be changed. The search should not be started from "fCount" but from "fSelectedCount".

function TSynLogFileView.SearchPreviousText(const aPattern: RawUtf8; aRow: integer): PtrInt;
...  
  // search from end
  // for result := fCount - 1 downto aRow + 1 do  <= This line should be changed
  for result := fSelectedCount - 1 downto aRow + 1 do
    if LineContains(aPattern, fSelected[result]) then
      exit;  

With best regards
Thomas

ab

Administrator

From: France

Registered: 2010-06-21

Posts: 14,237

Website

Re: Issue: TSynLogFileView.SearchPreviousText

Please try
https://github.com/synopse/mORMot2/commit/2cf5d982

I also committed the change to mORMot 1.