From 0866840b012aebc491d9c8e8151e2089a6dbf9b3 Mon Sep 17 00:00:00 2001
From: wp_xxyyzz <wp_xxyyzz@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Mon, 18 Dec 2023 12:24:15 +0000
Subject: [PATCH] TvPlanIt: Guess encoding of imported ical files and convert
 to utf8 if needed.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@9091 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/tvplanit/source/vpical.pas | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/components/tvplanit/source/vpical.pas b/components/tvplanit/source/vpical.pas
index acbab54d8..9a97a722d 100644
--- a/components/tvplanit/source/vpical.pas
+++ b/components/tvplanit/source/vpical.pas
@@ -5,7 +5,8 @@ unit VpICAL;
 interface
 
 uses
-  Classes, SysUtils, VpBaseDataFiles;
+  Classes, SysUtils, LConvEncoding,
+  VpBaseDataFiles;
 
 type
   TVpICalendar = class;
@@ -194,7 +195,7 @@ type
 implementation
 
 uses
-  VpConst, VpMisc, VpBase;
+  VpConst, VpBase;
 
 const
   DATE_FORMAT = 'yyyymmdd';
@@ -1010,6 +1011,7 @@ var
   s: String;
   currEntry: TVpICalEntry = nil;
   oldEntry: TVpICalEntry = nil;
+  enc: String;
 begin
   // Clear item list
   Clear;
@@ -1019,6 +1021,8 @@ begin
     s := AStrings[i];
     if s = '' then
       continue;
+    enc := GuessEncoding(s);
+    s := ConvertEncoding(s, enc, encodingUTF8);
     p := pos(':', s);
     if p = 0 then
       continue;