プレビューのHTMLを作成するときの文字列置換をCustomStringReplaceに変更

diff --git a/Editor.pas b/Editor.pas
index fc96d08..8651095 100644 (file)
--- a/Editor.pas
+++ b/Editor.pas
@@ -616,10 +616,10 @@ end;
 function TEditorForm.RepHtml(s: string): string;
 begin
 //     s := StringReplace(s, '&', '&', [rfReplaceAll]);
-       s := StringReplace(s, '<', '&lt;', [rfReplaceAll]);
-       s := StringReplace(s, '>', '&gt;', [rfReplaceAll]);
+       s := CustomStringReplace(s, '<', '&lt;');
+       s := CustomStringReplace(s, '>', '&gt;');
 //     s := StringReplace(s, ' ', '&nbsp;', [rfReplaceAll]);   //\8ed\97l\95Ï\8dX\82É\82æ\82è&nbsp;\8eg\97p\95s\89Â
-       s := StringReplace(s, '"', '&quot;', [rfReplaceAll]);
+       s := CustomStringReplace(s, '"', '&quot;');
        Result := s;
 end;