paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-22 22:29:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

* cast empty string to char no longer compiles

Browse Source 
(cherry picked from commit 2f81580e04)
This commit is contained in:
Michaël Van Canneyt 2021-08-11 21:53:49 +02:00 committed by marcoonthegit
parent a8393a31c0
commit 97cba6bbdf
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packages/fcl-db/tests/testdbexport.pas
View File

@ -335,7 +335,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];
@ -391,7 +391,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];