pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

fpexif: Minor optimization.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8642 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2022-12-08 17:58:19 +00:00
parent 4a596b1041
commit 68e8dba861
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
components/fpexif/fpemetadata.pas
View File

@ -529,12 +529,12 @@ var
sa: ansistring; sa: ansistring;
{$ENDIF} {$ENDIF}
begin begin
p := AStream.Position;
streamsize := AStream.Size; streamsize := AStream.Size;
if not ((ReadByte(AStream) = $FF) and (ReadByte(AStream) = M_SOI)) then if not ((ReadByte(AStream) = $FF) and (ReadByte(AStream) = M_SOI)) then
exit; exit;
p := AStream.Position;
while p < streamsize do begin while p < streamsize do begin
// The basic structure of the jpeg segments is // The basic structure of the jpeg segments is
// $FF ..... identifier (sometimes repeated) // $FF ..... identifier (sometimes repeated)