paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-31 10:50:14 +02:00
Code Issues Packages Projects Releases Wiki Activity

* remove also 255 limit for ExtractFileExt

Browse Source 
git-svn-id: trunk@2033 -
This commit is contained in:
peter 2005-12-23 10:02:21 +00:00
parent 5008bb74b1
commit 9b0c8269bc
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rtl/objpas/sysutils/fina.inc
View File

@ -74,7 +74,7 @@ var i: longint;
begin
I := Length(FileName);
while (I > 0) and not (FileName[I] in ['/', '\', ':']) do Dec(I);
Result := Copy(FileName, I + 1, maxint);
Result := Copy(FileName, I + 1, MaxInt);
end;
function ExtractFileExt(const FileName: string): string;
@ -83,7 +83,7 @@ begin
I := Length(FileName);
while (I > 0) and not (FileName[I] in ['.', '/', '\', ':']) do Dec(I);
if (I > 0) and (FileName[I] = '.') then
Result := Copy(FileName, I, 255)
Result := Copy(FileName, I, MaxInt)
else Result := '';
end;