From 5de8f0cf69c044d4c5aa6ec2925b72b75ca9ccc4 Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Fri, 29 Jun 2018 11:26:41 +0000
Subject: [PATCH] * Correctly convert string param to bytes

git-svn-id: trunk@39342 -
---
 packages/fcl-db/src/base/dsparams.inc | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/packages/fcl-db/src/base/dsparams.inc b/packages/fcl-db/src/base/dsparams.inc
index d6d44d98e8..9c45884854 100644
--- a/packages/fcl-db/src/base/dsparams.inc
+++ b/packages/fcl-db/src/base/dsparams.inc
@@ -534,6 +534,8 @@ begin
     Result:=nil
   else if VarIsArray(FValue) then
     Result:=FValue
+  else if VarIsStr(FValue) then
+    Result:=BytesOf(VarToStr(FValue))
   else
     // todo: conversion from other variant types to TBytes
     Result:=FValue;