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

Changed ifdef to a system constant for PathSeperator

Browse Source 
git-svn-id: trunk@13411 -
This commit is contained in:
andrew 2007-12-21 15:02:47 +00:00
parent dc3f3e4221
commit 95669f7a7c
1 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
docs/html/update_lcl_docs.lpr
View File

@ -54,8 +54,6 @@ begin
WriteLn(' FPDOCFORMAT, FPDOCPARAMS, FPDOC, FPDOCFOOTER, FPCDOCS, RTLLINKPREFIX, FCLLINKPREFIX');
WriteLn;
Halt(0);
end;
procedure ReadOptions;
@ -177,7 +175,7 @@ begin
if Result then
Exit;
Paths := TStringList.Create;
Paths.Delimiter:={$IFDEF MSWINDOWS}';'{$ELSE}':'{$ENDIF};
Paths.Delimiter:=PathSeparator;
Paths.DelimitedText := GetEnvironmentVariable('PATH');
for I := 0 to Paths.Count-1 do
begin