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

V4.3

Browse Source
This commit is contained in:
f1iwq2
2022-06-15 20:18:14 +02:00
parent 932e5590c1
commit 0cac6550ee
22 changed files with 649 additions and 400 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
UnitSimule.pas
View File

@@ -59,16 +59,16 @@ begin
begin
Delete(s,1,i+4);
val(s,k,erreur);
if intervalle<>0 then k:=Index_Simule*Intervalle*10+tick+80 else // démarre dans 8s
k:=Index_Simule+tick+80 ;
if intervalle<>0 then k:=Index_Simule*Intervalle*10+tick+30 else // démarre dans 3s
k:=Index_Simule+tick+30 ;
Tablo_simule[index_simule].tick:=k;
// détecteur?
i:=pos('Det',s);
if i<>0 then
begin
Delete(s,1,i+2);
if s[1]='=' then delete(s,1,1);
if s[1]='=' then delete(s,1,1);
if s[1]=' ' then delete(s,1,1);
val(s,k,erreur);
Tablo_simule[index_simule].adresse:=k;