From 4e5eb693cb344368a3a3fe923386790ebb59a25d Mon Sep 17 00:00:00 2001
From: Philipp Winkel <p.winkel@vocus.de>
Date: Fri, 19 Mar 2021 11:39:22 +0100
Subject: [PATCH] fix irregurlar schema names like "my-schema.xsd" or
 "./my_import-schema.xsd" and replace it with underscore, so Delphi can handle
 this files

---
 Units/DelphiXMLDataBindingGenerator.pas | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/Units/DelphiXMLDataBindingGenerator.pas b/Units/DelphiXMLDataBindingGenerator.pas
index 17c5171..237ecd8 100644
--- a/Units/DelphiXMLDataBindingGenerator.pas
+++ b/Units/DelphiXMLDataBindingGenerator.pas
@@ -1812,7 +1812,9 @@ begin
   if OutputType = otMultiple then
   begin
     path      := IncludeTrailingPathDelimiter(Result);
-    fileName  := ASchemaName + '.pas';
+    fileName := ASchemaName.Replace('-', '_');
+    fileName := fileName.Replace('./', '');
+    fileName  := fileName + '.pas';
 
     if Assigned(FOnGetFileName) then
       FOnGetFileName(Self, ASchemaName, path, fileName);