BorlandTalk.com

Chris L. · Guest

Hi All,

I need to search and replace text in this control and print it afterwards.
The font property of a TCustomRichEdit ( I use wwDBRichEditMSWord1 in
IP4000) is set to 'TimesNewRoman" at design time. I cut and paste a block of
formated text into the control at runtime. Then run
btPrintSingle.Click;

procedure TForm1.ReplaceAllClick(Sender:TObject);
begin
with wwDBRichEditMSWord1 do
begin
Readonly := False;
Lines.beginupdate;
for i:= 0 to DataModule2.AdsCustomer.FieldCount-1 do
begin
with DataModule2.AdsCustomer do
if DataModule2.AdsCustomer.Fields[i].AsString <> ''
then
Text :=
StringReplace(Text,'<'+Fields[i].FieldName+'>',
FieldByName(Fields[i].FieldName).AsString,
[rfReplaceAll,rfIgnoreCase])
else
// Replace with Blank
Text :=
StringReplace(Text,'<'+Fields[i].FieldName+'>',
'',[rfReplaceAll,rfIgnoreCase]);
end;
Lines.endupdate;
end;
end;

procedure TForm1.btPrintSingleClick(Sender: TObject);
begin
DocPrinted := False; // initialize
ShowMessage('Font in this document is ' +
wwDBRichEditMSWord1.Font.Name);
if PrinterSetupDialog1.Execute then
begin
try
Screen.Cursor := crHourglass;
if not Replaced then
btReplaceAll.Click
else
ShowMessage('Your document has already been replaced. '
+ 'Please make sure you are using a template or an '
+ 'unmodified copy of the document');
wwDBRichEditMSWord1.Print('Single Mailing'); // send doc to
Print
DocPrinted := True;
finally
Screen.Cursor := crDefault;
if Replaced then
btUndo.Click;
end;
end;
end;

The resulting text printed out in all 'TimesNewRoman' instead of the
original format.
If I took out the
StringReplace(Text,Oldpattern,NewPattern,[rfReplaceAll,rfIgnoreCase]); then
it printed OK.
I have to use wwDBRichEditMSWord and I must have the search and replace
ability. RichEdit.FindText behaves the same as StringReplace. I want
something simple and do not want to code my own seach and replace routine.

Any suggetion will be greatly appreciated.
Thanks.
Chris

Bruce Roberts · Guest

"Chris L." <christopher.leongc (AT) verizon (DOT) net> wrote

alanglloyd@aol.com · Guest

It seems that StringReplace() replaces only the text characters.

It appears that you would have to ...

use TRichEdit.FindText to find the next occurrence,
set SelLength to the length of your removed text,
set SelText to your replacement text,
extract the format of your replacement text,
set SelAttributes to that format.
repeat until finished.

Alan Lloyd

Chris L. · Guest

Thank you all for your suggestions.

After some testing, here's what I found:
StringReplace() will replace the text and set the font to the font property
of the TRichEdit control. So you would lose the original font properties of
the block of text if it is different from that of the TRichEdit.
StringReplace() can replace all the occurences in on fell swoop.

With TRichEdit.FindText, I need to use a loop to find and replace all the
occurences of a string. It retains the original font property of the
replaced string in the text block and SelLength and SelText is not
necessary.

I'm very grateful for all your help.

Chris

<alanglloyd (AT) aol (DOT) com> wrote

Bruce Roberts · Guest

"Chris L." <christopher.leongc (AT) verizon (DOT) net> wrote

Chris L. · Guest

Hi Bruce,

That's a great idea.
However, strm.DataString is a read only property and I'm not able to execute
strm.DataString := StringReplace (strm.DataString, oldPattern,
newPattern, . . .)
strm.Position := 0;
richEdit.Lines.LoadFromStream (strm);
Some code example will really help.

Thanks.

Chris

"Bruce Roberts" <ber (AT) bounceitattcanada (DOT) xnet> wrote

Bruce Roberts · Guest

"Chris L." <christopher.leongc (AT) verizon (DOT) net> wrote