From 5d05fb19595269392ef073a4f390259870f40a58 Mon Sep 17 00:00:00 2001
From: skalogryz <skalogryz@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Thu, 24 Mar 2016 13:09:58 +0000
Subject: [PATCH] richmemo: the best code practice

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4588 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/richmemo/samples/search/mainform.pas | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/components/richmemo/samples/search/mainform.pas b/components/richmemo/samples/search/mainform.pas
index 84fb0b5d9..0af5fb91f 100644
--- a/components/richmemo/samples/search/mainform.pas
+++ b/components/richmemo/samples/search/mainform.pas
@@ -62,10 +62,10 @@ begin
   if chkBackward.Checked then include(opt, soBackward);
 
   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 (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;
 
   if (s>=0) then begin