paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-07 15:19:25 +01:00
Code Issues Packages Projects Releases Wiki Activity

LazUtils: fixed string[0] runtime error

Browse Source 
git-svn-id: trunk@42675 -
This commit is contained in:
martin 2013-09-08 09:54:59 +00:00
parent 773f710bde
commit 49cd2ecb33
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/lazutils/lazfileutils.pas
View File

@ -570,7 +570,7 @@ procedure DoPathDelims(var FileName: string);
var var
i: Integer; i: Integer;
begin begin
for i:=0 to length(FileName) do for i:=1 to length(FileName) do
{$IFDEF Windows} {$IFDEF Windows}
if Filename[i]='/' then if Filename[i]='/' then
Filename[i]:='\'; Filename[i]:='\';