paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-23 00:39:44 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: Use correct path delimiters on Windows when publishing a project/package.

Browse Source 
git-svn-id: trunk@58798 -
This commit is contained in:
juha 2018-08-29 11:17:06 +00:00
parent 37069ae512
commit be4f5624f2
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
ide/publishprojectdlg.pas
View File

@ -207,15 +207,15 @@ procedure TPublisher.AdjustTopDir(const AFileName: string);
// Adjust the actual top directory. It will differ from the
// main dir when project/package has files up in directory structure.
var
RelPath: string;
RelPath, UpALevel: string;
Adjusted: Boolean;
begin
Assert(Pos('\',AFileName) = 0, 'AdjustTopDir: File name contains a backslash.');
UpALevel := '..' + DirectorySeparator;
RelPath := ExtractRelativePath(FTopDir, AFilename);
Adjusted := False;
while Copy(RelPath, 1, 3) = '../' do
while Copy(RelPath, 1, 3) = UpALevel do
begin
FTopDir := FTopDir + '../'; // This file is in upper dir. Move TopDir up, too.
FTopDir := FTopDir + UpALevel; // This file is in upper dir. Move TopDir up, too.
Delete(RelPath, 1, 3);
Adjusted := True;
end;