pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

richmemo: the best code practice

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4588 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
skalogryz
2016-03-24 13:09:58 +00:00
parent d5f2adb382
commit 5d05fb1959
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
components/richmemo/samples/search/mainform.pas
View File

@@ -62,10 +62,10 @@ begin
if chkBackward.Checked then include(opt, soBackward); if chkBackward.Checked then include(opt, soBackward);
Caption:='Searching...'; Caption:='Searching...';
s:=RichMemo1.Search(Edit1.Text, RichMemo1.SelStart, length(RichMemo1.Text), opt); s:=RichMemo1.Search(Edit1.Text, RichMemo1.SelStart, RichMemo1.GetTextLen, opt);
if (s>=0) then begin if (s>=0) then begin
if (st=s) and (l=UTF8Length(Edit1.Text)) then if (st=s) and (l=UTF8Length(Edit1.Text)) then
s:=RichMemo1.Search(Edit1.Text, RichMemo1.SelStart+1, length(RichMemo1.Text), opt); s:=RichMemo1.Search(Edit1.Text, RichMemo1.SelStart+1, RichMemo1.GetTextLen, opt);
end; end;
if (s>=0) then begin if (s>=0) then begin