paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-08 10:59:44 +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 while (p>0) do begin
case Result[p] of case Result[p] of
PathDelim: exit; PathDelim: exit;
'.': Result:=copy(Result,p-1,length(Result)); '.': Result:=copy(Result,1, p-1);
else dec(p); else dec(p);
end; end;
end; end;