easylinux/SignauxComplexes
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

V3.83

Browse Source
This commit is contained in:
f1iwq2
2022-03-27 11:51:28 +02:00
parent 9b8cefeeed
commit 46314f659e
23 changed files with 916 additions and 611 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
verif_version.pas
View File

@@ -23,7 +23,7 @@ var
Lance_verif : integer;
verifVersion,notificationVersion : boolean;
Const Version='3.82'; // sert à la comparaison de la version publiée
Const Version='3.83'; // sert à la comparaison de la version publiée
SousVersion=' '; // en cas d'absence de sous version mettre un espace
implementation
@@ -200,16 +200,17 @@ begin
s2:=version;
// i:=pos('.',s2);if i<>0 then s2[i]:=',';
s:=AnsiUppercase(s);
l:=length(s);
SV_publie:=s[l];
if Sv_publie in ['0'..'9'] then Sv_Publie:=' ' else s:=copy(s,1,l-1);
val(s,V_publie,erreur);
val(s,V_publie,erreur);
if erreur<>0 then exit;
val(s2,V_utile,erreur);
val(s2,V_utile,erreur);
if erreur<>0 then exit;
if (V_utile<V_publie) or
if (V_utile<V_publie) or
((V_utile=V_publie) and (SousVersion<SV_publie)) then
begin
FormVersion.Top:=10;