From 37327af58bcd5bcd81f001438a14d8f97564934e Mon Sep 17 00:00:00 2001
From: ondrej <ondrej@idefix.freepascal.org>
Date: Thu, 2 Jan 2020 19:00:32 +0000
Subject: [PATCH] sysutils: change TEncoding.Default from ANSI to
 SystemEncoding. (It is Delphi-compatible indeed because default
 SystemEncoding is ANSI.)

git-svn-id: trunk@43842 -
---
 rtl/objpas/sysutils/sysencoding.inc | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/rtl/objpas/sysutils/sysencoding.inc b/rtl/objpas/sysutils/sysencoding.inc
index 978deab8cf..8b0e684e3f 100644
--- a/rtl/objpas/sysutils/sysencoding.inc
+++ b/rtl/objpas/sysutils/sysencoding.inc
@@ -93,7 +93,7 @@ end;
 
 class function TEncoding.GetDefault: TEncoding;
 begin
-  Result := GetANSI;
+  Result := GetSystemEncoding;
 end;
 
 class function TEncoding.GetSystemEncoding: TEncoding;