From 7d1707c4042f087b14dbc5c9c60d8a2081f35d4b Mon Sep 17 00:00:00 2001 From: fireundubh Date: Mon, 27 Nov 2017 04:37:36 -0800 Subject: [PATCH] Added UTF-8 string support to IfThen scripting function --- wbScriptAdapterMisc.pas | 1 + 1 file changed, 1 insertion(+) diff --git a/wbScriptAdapterMisc.pas b/wbScriptAdapterMisc.pas index 783444f6d..09f37c03d 100644 --- a/wbScriptAdapterMisc.pas +++ b/wbScriptAdapterMisc.pas @@ -79,6 +79,7 @@ procedure JvInterpreter_IfThen(var Value: Variant; Args: TJvInterpreterArgs); if VarType(Args.Values[1]) = VarType(Args.Values[2]) then case VarType(Args.Values[1]) of varString : Value := StrUtils.IfThen(Boolean(Args.Values[0]), String(Args.Values[1]), String(Args.Values[2])); + varUString : Value := StrUtils.IfThen(Boolean(Args.Values[0]), UTF8String(Args.Values[1]), UTF8String(Args.Values[2])); varInteger : Value := Math.IfThen(Boolean(Args.Values[0]), Integer(Args.Values[1]), Integer(Args.Values[2])); varSingle : Value := Math.IfThen(Boolean(Args.Values[0]), Single(Args.Values[1]), Single(Args.Values[2])); varDouble : Value := Math.IfThen(Boolean(Args.Values[0]), Double(Args.Values[1]), Double(Args.Values[2]));