GitHub-Mirror/x2xmldatabinding
1
0
Fork 0
mirror of synced 2024-11-24 11:43:09 +01: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;
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