Fail to FindText in RichEdit

Comments

• gordk St.Catherines On. Canada.

  December 2009 edited 9:47PM

  in what event are you writing this code.
• akiraiu

  December 2009 edited 9:47PM

  I just write my code in delphi. for example I just to click button to find the text. no write the code on report script.
  Thanks
• gordk St.Catherines On. Canada.

  December 2009 edited 9:47PM

  when you want help please answer the question that is asked i can't read your mind as to where and when you are processing this code.
• akiraiu

  December 2009 edited 9:47PM

  gordk wrote: »

  when you want help please answer the question that is asked i can't read your mind as to where and when you are processing this code.

  
  Yes. I just create a application with one button and one frxReport.
  the code piece is called by button click.
  
  When I click the button, findtext in RichView of report, and then replace the new string into Richview, but the findtext always return -1. that's mean fail to find text.
  
  Thanks
  
  Best Regards,
  Akira
• gordk St.Catherines On. Canada.

  December 2009 edited 9:47PM

  the rich view does not have any text until after it has been processed.
• akiraiu

  January 2010 edited January 2010

  gordk wrote: »

  the rich view does not have any text until after it has been processed.

  
  
  then when the rich will be process, and for my job, when I can run the " RichEdit.FindText (....) " & " RichEdit.SelText := 'somestr'; " successfully??
  
  Thanks
• gordk St.Catherines On. Canada.

  January 2010 edited 9:47PM

  what is your tfrxrichtextobject connected to
  a database field or preloaded rtf file?
  
  and show all the code of this pb event.
  
• akiraiu

  January 2010 edited 9:47PM

  gordk wrote: »

  what is your tfrxrichtextobject connected to
  a database field or preloaded rtf file?
  
  and show all the code of this pb event.

  
  I am not use the tfrxrichtextobject. I just pre-created TfrxRichView in a report.
  Load the report from file.
  replace a str in TfrxRichView.RichEdit.Text to new value. for example TfrxRichView.RichEdit = '111{222}333', I find the text {222} by using RichEdit.FindText function, then replace it to {444}.
  and then show the report.
  
  How to do it??
  Thanks
  
  I just want to change TfrxRichView value before report preview.
  
  Best Regards,
  Akira
• gordk St.Catherines On. Canada.

  January 2010 edited 9:47PM

  this staement makes no sense
  "I am not use the tfrxrichtextobject. I just pre-created TfrxRichView in a report.
  Load the report from file."
  what do think a tfrxrichview is?
  a richviews richedit text is a 0 based array of lines of text
  any how typically.
  
  procedure TForm1.Button9Click(Sender: TObject);
  var
  r:tfrxrichview;
  i : integer;
  mytext,s1:string;
  begin
  frxreport5.LoadFromFile('testrich.fr3');
  r:= frxreport5.FindObject('Rich1')as tfrxrichview;
  for i := 0 to r.richedit.lines.Count - 1 do
  begin
  s1 :=r.richedit.lines;
  mytext:= stringreplace(s1,'222','888',[]);// delphi function add flag to replace all occurences
  
  r.RichEdit.Lines:= mytext;
  end;
  frxreport5.ShowReport;
  end;
  
  just remember at this point you can only check preloaded text.
  
• akiraiu

  January 2010 edited 9:47PM

  Yes, Thanks, your code is work. I can replace the string from the lines array. but also have problem is that:
  
  If the Rich Text have unicode like "?§??888??", then after I replaced 888 to 222, the "?§"&"??"will become "c" & "a".
  
  Any other way to do the replacement without changing other content in TfrxRichView?
  
  Thanks so much~~
  
  Best Regards,
  Akira
• akiraiu

  January 2010 edited 9:47PM

  any response??