paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-18 12:49:42 +02:00
Code Issues Packages Projects Releases Wiki Activity

FreeType: Clean up TFreeTypeFont.GetVersionNumber. Issue #40438.

Browse Source
This commit is contained in:
Juha 2023-08-09 14:05:49 +03:00
parent 4bf49d12ad
commit 441266a440
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/freetype/easylazfreetype.pas
View File

@ -1143,9 +1143,9 @@ begin
while (idxStart < length(VersionStr)) and not (VersionStr[idxStart] in['0'..'9']) do
inc(idxStart);
idxEnd := idxStart;
while (idxEnd+1 <= length(VersionStr)) and (VersionStr[idxEnd+1] in['0'..'9']) do inc(idxEnd);
if (idxEnd+1 <= length(VersionStr)) and (VersionStr[idxEnd+1] = '.') then inc(idxEnd);
while (idxEnd+1 <= length(VersionStr)) and (VersionStr[idxEnd+1] in['0'..'9']) do inc(idxEnd);
while (idxEnd < length(VersionStr)) and (VersionStr[idxEnd+1] in['0'..'9']) do inc(idxEnd);
if (idxEnd < length(VersionStr)) and (VersionStr[idxEnd+1] = '.') then inc(idxEnd);
while (idxEnd < length(VersionStr)) and (VersionStr[idxEnd+1] in['0'..'9']) do inc(idxEnd);
result := copy(VersionStr,idxStart,idxEnd-idxStart+1);
end;