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

IDE: fixed using PathDelim of lpi and lps file

Browse Source 
git-svn-id: trunk@19495 -
This commit is contained in:
mattias 2009-04-18 21:40:04 +00:00
parent f5d7407d4a
commit 04e1d27de4
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
ide/project.pp
View File

@ -2437,6 +2437,7 @@ begin
Path:='ProjectOptions/'; Path:='ProjectOptions/';
StorePathDelim:=CheckPathDelim( StorePathDelim:=CheckPathDelim(
XMLConfig.GetValue(Path+'PathDelim/Value', PathDelim),fPathDelimChanged); XMLConfig.GetValue(Path+'PathDelim/Value', PathDelim),fPathDelimChanged);
fCurStorePathDelim:=StorePathDelim;
{$IFDEF IDE_MEM_CHECK}CheckHeapWrtMemCnt('TProject.ReadProject C reading values');{$ENDIF} {$IFDEF IDE_MEM_CHECK}CheckHeapWrtMemCnt('TProject.ReadProject C reading values');{$ENDIF}
FileVersion:= XMLConfig.GetValue(Path+'Version/Value',0); FileVersion:= XMLConfig.GetValue(Path+'Version/Value',0);
@ -2524,6 +2525,7 @@ begin
Path:='ProjectSession/'; Path:='ProjectSession/';
SessionStorePathDelim:=CheckPathDelim( SessionStorePathDelim:=CheckPathDelim(
XMLConfig.GetValue(Path+'PathDelim/Value', PathDelim),fPathDelimChanged); XMLConfig.GetValue(Path+'PathDelim/Value', PathDelim),fPathDelimChanged);
fCurStorePathDelim:=SessionStorePathDelim;
FileVersion:=XMLConfig.GetValue(Path+'Version/Value',0); FileVersion:=XMLConfig.GetValue(Path+'Version/Value',0);
@ -2546,6 +2548,7 @@ begin
xmlconfig.Free; xmlconfig.Free;
except except
end; end;
fCurStorePathDelim:=StorePathDelim;
xmlconfig:=nil; xmlconfig:=nil;
end else begin end else begin
// there is no .lps file -> create some defaults // there is no .lps file -> create some defaults