Find and Replace Text

edsonmartins

Alex,

I am modifying some reports of the version 2.5x and in it we have some Memo's filled thus:
frmForm.TTable

To function in the version 3.x we need to look for and to change the text:
TTable

The FindText function does not allow to look and to change a text for '' (null).

********* FSearchReplace <> '' *****************


Found := CodeWindow.Find(FSearchText, FSearchCase, FSearchIndex);
if FSearchReplace <> '' then
if Found and AskReplace then
begin
CodeWindow.SelText := FSearchReplace;
Modified := True;
end;


Edson Martins