paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-06 01:57:16 +01:00
Code Issues Packages Projects Releases Wiki Activity

fixed ExtractFileNameWithoutExt (fixes issue #1782)

Browse Source 
git-svn-id: trunk@8834 -
This commit is contained in:
vincents 2006-02-27 11:39:01 +00:00
parent 2e81a8fee5
commit 18252b595d
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/include/fileutil.inc
View File

@ -324,7 +324,7 @@ begin
while (p>0) do begin
case Result[p] of
PathDelim: exit;
'.': Result:=copy(Result,p-1,length(Result));
'.': Result:=copy(Result,1, p-1);
else dec(p);
end;
end;