mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-21 09:58:13 +00:00
Code Issues Projects Releases Packages Wiki Activity

FIX: Get only real Lazarus revision

Browse source
This commit is contained in:
Alexander Koblov 2017-11-19 13:35:15 +00:00
commit 145bd7e584
1 changed files with 6 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

8
src/platform/udcversion.pas
View file

@ -451,10 +451,14 @@ begin
end;
function GetLazarusVersion: String;
var
I: Integer = 1;
begin
Result:= lazVersion;
if Length(lazRevision) > 0 then begin
Result += '-' + lazRevision;
while (I <= Length(lazRevision)) and (lazRevision[I] in ['0'..'9']) do
Inc(I);
if (I > 1) then begin
Result += '-' + Copy(lazRevision, 1, I - 1);
end;
end;