refact full text replacement

src/ce_dfmt.pas

@@ -305,10 +305,7 @@ begin
     try
       str := TStringList.Create;
       processOutputToStrings(prc,str);
-      fDoc.ClearAll;
+      fDoc.replaceUndoableContent(str.strictText);
-      fDoc.InsertTextAtCaret(str.Text);
-      fDoc.SelStart:= high(integer);
-      fDoc.ExecuteCommand(ecDeleteLastChar, #0, nil);
     except
       fDoc.Lines.Assign(fBackup);
     end;

src/ce_synmemo.pas

@@ -268,6 +268,7 @@ type
     procedure nextProtectionGroup;
     procedure sortLines;
     function implementMain: THasMain;
+    procedure replaceUndoableContent(const value: string);
     //
     property IdentifierMatchOptions: TIdentifierMatchOptions read fMatchOpts write setMatchOpts;
     property Identifier: string read fIdentifier;
@@ -2288,10 +2289,28 @@ begin
   end;
 end;
 
+procedure TCESynMemo.replaceUndoableContent(const value: string);
+var
+  b: TPoint;
+  e: TPoint;
+  p: TPoint;
+begin
+  p := CaretXY;
+  b := point(1,1);
+  e := Point(length(Lines[lines.Count-1])+1,lines.Count);
+  TextBetweenPoints[b,e] := value;
+  CaretXY := p;
+  EnsureCursorPosVisible;
+  fModified := true;
+end;
+
 procedure TCESynMemo.checkFileDate;
 var
   newDate: double;
   str: TStringList;
+  txt: string;
+  b,e: TPoint;
+  p: TPoint;
 begin
   if fFilename = fTempFileName then exit;
   if fDisableFileDateCheck then exit;
@@ -2307,11 +2326,7 @@ begin
       str := TStringList.Create;
       try
         str.LoadFromFile(fFilename);
-        ClearAll;
+        replaceUndoableContent(str.strictText);
-        InsertTextAtCaret(str.Text);
-        SelStart:= high(integer);
-        ExecuteCommand(ecDeleteLastChar, #0, nil);
-        fModified := true;
       finally
         str.Free;
       end;
@@ -2361,9 +2376,7 @@ begin
         //lst[i] := lne;
       end}
     end;
-    lne := lst.Text;
+    clipboard.asText := lst.strictText;
-    setLength(lne, lne.length - lst.LineBreak.length);
-    clipboard.asText := lne;
   finally
     lst.free;
   end;