GitHub-Mirror/x2xmldatabinding
1
0
Fork 0
mirror of synced 2024-11-21 13:43:49 +00:00
Code Issues Projects Releases Wiki Activity

Fixed: absolute paths in includes couldn't get resolved (irony.)

Browse Source
This commit is contained in:
Mark van Renswoude 2010-09-10 10:38:31 +00:00
parent bb5bf6aabf
commit 66ce9ae1c9
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
Units/XMLDataBindingGenerator.pas
View File

@ -389,6 +389,8 @@ begin
CaseSensitive := False; CaseSensitive := False;
Duplicates := dupIgnore; Duplicates := dupIgnore;
end; end;
IncludePaths.Add('');
end; end;
@ -539,7 +541,9 @@ begin
for includeIndex := 0 to Pred(IncludePaths.Count) do for includeIndex := 0 to Pred(IncludePaths.Count) do
begin begin
includePath := IncludeTrailingPathDelimiter(IncludePaths[includeIndex]); includePath := IncludePaths[includeIndex];
if Length(includePath) > 0 then
includePath := IncludeTrailingPathDelimiter(includePath);
if FileExists(includePath + ALocation) then if FileExists(includePath + ALocation) then
begin begin