GitHub-Mirror/x2xmldatabinding
1
0
Fork 0
mirror of synced 2024-11-15 03:23:51 +00:00
Code Issues Projects Releases Wiki Activity

fix irregurlar schema names like "my-schema.xsd" or "./my_import-schema.xsd" and replace it with underscore, so Delphi can handle this files

Browse Source
This commit is contained in:
Philipp Winkel 2021-03-19 11:39:22 +01:00
parent 57d49fa016
commit 4e5eb693cb
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Units/DelphiXMLDataBindingGenerator.pas
View File

@ -1812,7 +1812,9 @@ begin
if OutputType = otMultiple then if OutputType = otMultiple then
begin begin
path := IncludeTrailingPathDelimiter(Result); path := IncludeTrailingPathDelimiter(Result);
fileName := ASchemaName + '.pas'; fileName := ASchemaName.Replace('-', '_');
fileName := fileName.Replace('./', '');
fileName := fileName + '.pas';
if Assigned(FOnGetFileName) then if Assigned(FOnGetFileName) then
FOnGetFileName(Self, ASchemaName, path, fileName); FOnGetFileName(Self, ASchemaName, path, fileName);