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

LazFileUtils: fix uninitialized result in ChompPathDelim. Issue #0029866.

Browse Source 
git-svn-id: trunk@52004 -
This commit is contained in:
bart 2016-03-20 22:08:06 +00:00
parent e07c89f611
commit 5d6e5012ea
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
components/lazutils/lazfileutils.pas
View File

@ -733,10 +733,9 @@ function ChompPathDelim(const Path: string): string;
var var
Len, MinLen: Integer; Len, MinLen: Integer;
begin begin
Result:=Path;
if Path = '' then if Path = '' then
exit; exit;
Result:=Path;
Len:=length(Result); Len:=length(Result);
if (Result[1] in AllowDirectorySeparators) then begin if (Result[1] in AllowDirectorySeparators) then begin
MinLen := 1; MinLen := 1;