From 2f81580e04990ab194d0beb6fc8a4681c084cffc Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Micha=C3=ABl=20Van=20Canneyt?= Date: Wed, 11 Aug 2021 21:53:49 +0200 Subject: [PATCH] * cast empty string to char no longer compiles --- packages/fcl-db/tests/testdbexport.pas | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/packages/fcl-db/tests/testdbexport.pas b/packages/fcl-db/tests/testdbexport.pas index bdde37e24f..8e8be43b98 100644 --- a/packages/fcl-db/tests/testdbexport.pas +++ b/packages/fcl-db/tests/testdbexport.pas @@ -337,7 +337,7 @@ begin ExportSettings.ExportFormat:=AccessCompatible; ExportFormat:=efXMLXSDAccess; ExportSettings.CreateXSD:=false; - ExportSettings.DecimalSeparator:=char(''); //don't override + ExportSettings.DecimalSeparator:=#0; //don't override Exporter.FileName := FExportTempDir + inttostr(ord(ExportFormat)) + lowercase(rightstr(TestName,5)) + TDetailedExportExtensions[ExportFormat]; @@ -393,7 +393,7 @@ begin ExportSettings.ExportFormat:=AccessCompatible; ExportFormat:=efXMLXSDAccess; ExportSettings.CreateXSD:=true; - ExportSettings.DecimalSeparator:=char(''); //don't override + ExportSettings.DecimalSeparator:=char(#0); //don't override Exporter.FileName := FExportTempDir + inttostr(ord(ExportFormat)) + lowercase(rightstr(TestName,5)) + TDetailedExportExtensions[ExportFormat];