From: Maël Hörz <ma...@us...> - 2008-09-14 16:27:31
|
Update of /cvsroot/synedit/SynEdit/Demos/SearchReplaceDemo In directory sc8-pr-cvs8.sourceforge.net:/tmp/cvs-serv19785/Demos/SearchReplaceDemo Modified Files: Tag: Unicode_2004_08_31 frmMain.pas Log Message: Changes for compatibility with Delphi 2009 Index: frmMain.pas =================================================================== RCS file: /cvsroot/synedit/SynEdit/Demos/SearchReplaceDemo/frmMain.pas,v retrieving revision 1.5.2.1 retrieving revision 1.5.2.2 diff -u -d -r1.5.2.1 -r1.5.2.2 --- frmMain.pas 10 Nov 2004 21:45:49 -0000 1.5.2.1 +++ frmMain.pas 14 Sep 2008 16:24:57 -0000 1.5.2.2 @@ -74,7 +74,7 @@ procedure actSearchReplaceExecute(Sender: TObject); procedure actSearchUpdate(Sender: TObject); procedure SynEditorReplaceText(Sender: TObject; const ASearch, - AReplace: WideString; Line, Column: Integer; + AReplace: UnicodeString; Line, Column: Integer; var Action: TSynReplaceAction); procedure actSearchReplaceUpdate(Sender: TObject); private @@ -249,7 +249,7 @@ end; procedure TSearchReplaceDemoForm.SynEditorReplaceText(Sender: TObject; - const ASearch, AReplace: WideString; Line, Column: Integer; + const ASearch, AReplace: UnicodeString; Line, Column: Integer; var Action: TSynReplaceAction); var APos: TPoint; |