WebSVN – fastphp – Path Comparison – /

Regard whitespace Rev 75 → Rev 76

 /trunk/EditorMain.pas
 ,6 → 194,7
     procedure Theme_Dark;
     function IsThemeDark: boolean;
     function MarkUpLineReference(cont: string): string;
+    procedure SaveToFile(filename: string);
   end;
 var
 ,7 → 305,7
 procedure TForm1.ActionSaveExecute(Sender: TObject);
 begin
   RightTrimAll;
-  SynEdit1.Lines.SaveToFile(GetScrapFile);
+  SaveToFile(GetScrapFile);
   SynEdit1.Modified := false;
   RefreshModifySign;
   if SynEdit1.CanFocus then SynEdit1.SetFocus;
 ,6 → 1049,19
   end;
 end;
+procedure TForm1.SaveToFile(filename: string);
+var
+  sl: TStringList;
+begin
+  sl := TStringList.Create;
+  try
+    sl.Assign(SynEdit1.Lines);
+    sl.SaveToFile(filename); // Save without BOM!
+  finally
+    sl.Free;
+  end;
+end;
 procedure TForm1.StartCodeExplorer;
 begin
   codeExplorer := TRunCodeExplorer.Create(true);
 ,7 → 1119,7
       case MessageDlg(Format('File %s does not exist. Create it?', [result]), mtConfirmation, mbYesNoCancel, 0) of
         mrYes:
           try
-            SynEdit1.Lines.SaveToFile(result);
+            SaveToFile(result);
           except
             on E: Exception do
             begin
 ,7 → 1195,7
         try
           // Try saving the file; check if we have permissions
           //SynEdit1.Lines.Clear;
-          SynEdit1.Lines.SaveToFile(result);
+          SaveToFile(result);
         except
           on E: Exception do
           begin