From 3085eac5017bdf6da203663305d47682ca7c98e8 Mon Sep 17 00:00:00 2001
From: Michael VAN CANNEYT <mvancanneyt@tixeo.com>
Date: Fri, 6 Jan 2023 12:04:11 +0100
Subject: [PATCH] * String -> ShortString

---
 rtl/inc/variant.inc | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/rtl/inc/variant.inc b/rtl/inc/variant.inc
index 592616df96..25ebf1902a 100644
--- a/rtl/inc/variant.inc
+++ b/rtl/inc/variant.inc
@@ -445,7 +445,7 @@ end;
 
 operator :=(const source : variant) dest : AnsiChar;{$ifdef SYSTEMINLINE}inline;{$endif}
 Var
-  S : String;
+  S : ShortString;
 begin
   VariantManager.VarToPStr(S,Source);
   If Length(S)>0 then
@@ -797,7 +797,7 @@ operator :=(const source : olevariant) dest : longbool;{$ifdef SYSTEMINLINE}inli
 { Chars }
 operator :=(const source : olevariant) dest : AnsiChar;{$ifdef SYSTEMINLINE}inline;{$endif}
   var
-    S : String;
+    S : ShortString;
   begin
     VariantManager.VarToPStr(S,Source);
     If Length(S)>0 then