From 66ce9ae1c9161272eff144961b0344b231f1039f Mon Sep 17 00:00:00 2001 From: Mark van Renswoude Date: Fri, 10 Sep 2010 10:38:31 +0000 Subject: [PATCH] Fixed: absolute paths in includes couldn't get resolved (irony.) --- Units/XMLDataBindingGenerator.pas | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/Units/XMLDataBindingGenerator.pas b/Units/XMLDataBindingGenerator.pas index c5373fa..40973d5 100644 --- a/Units/XMLDataBindingGenerator.pas +++ b/Units/XMLDataBindingGenerator.pas @@ -389,6 +389,8 @@ begin CaseSensitive := False; Duplicates := dupIgnore; end; + + IncludePaths.Add(''); end; @@ -539,7 +541,9 @@ begin for includeIndex := 0 to Pred(IncludePaths.Count) do begin - includePath := IncludeTrailingPathDelimiter(IncludePaths[includeIndex]); + includePath := IncludePaths[includeIndex]; + if Length(includePath) > 0 then + includePath := IncludeTrailingPathDelimiter(includePath); if FileExists(includePath + ALocation) then begin