• R/O
  • SSH
  • HTTPS

dprojfilter: Commit


Commit MetaInfo

Revision11 (tree)
Time2018-08-25 19:52:34
Authordummzeuch

Log Message

this should fix the Unicode issue reported by Denis Bisson, if compiled with Delphi > 2007

Change Summary

Incremental Difference

--- trunk/src/u_DprojFilterMain.pas (revision 10)
+++ trunk/src/u_DprojFilterMain.pas (revision 11)
@@ -1,5 +1,7 @@
11 unit u_DprojFilterMain;
22
3+{$I 'jedi.inc'}
4+
35 interface
46
57 uses
@@ -53,6 +55,9 @@
5355 Changed := TStringList.Create;
5456 try
5557 Orig.LoadFromFile(_fn);
58+{$IFDEF SUPPORTS_UNICODE}
59+ Changed.DefaultEncoding := Orig.Encoding;
60+{$ENDIF}
5661 ChangeCnt := 0;
5762 InsertAfterDone := False;
5863 for i := 0 to Orig.Count - 1 do begin
@@ -222,3 +227,4 @@
222227 end;
223228
224229 end.
230+
Show on old repository browser