paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-07 15:47:53 +02:00
Code Issues Packages Projects Releases Wiki Activity

* avoid partial matches on extensions in TFPCustomImage.FindHandlerFromExtension

Browse Source 
Patch by Ondrej

git-svn-id: trunk@39172 -
This commit is contained in:
marco 2018-06-04 14:33:03 +00:00
parent e6a8c058e0
commit c3ac166614
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
packages/fcl-image/src/fpimage.inc
View File

@ -264,22 +264,25 @@ begin
result := FExtra.count;
end;
const dumchar = ';';
class function TFPCustomImage.FindHandlerFromExtension(extension: String
): TIHData;
var s : string;
r : integer;
begin
if extension='' then
Exit(nil);
extension := lowercase (extension);
if (extension <> '') and (extension[1] = '.') then
delete (extension,1,1);
with ImageHandlers do
begin
r := count-1;
s := extension + ';';
s := dumchar + extension + dumchar;
while (r >= 0) do
begin
Result := GetData(r);
if (pos(s,Result.Fextension+';') <> 0) then
if (pos(s, dumchar+Result.Fextension+dumchar) <> 0) then
Exit;
dec (r);
end;