From bcf734364073f22e1199187572cb3e95bba3acae Mon Sep 17 00:00:00 2001 From: f1iwq2 Date: Sat, 7 Aug 2021 10:03:03 +0200 Subject: [PATCH] V3.1E --- UnitPrinc.dcu | Bin 203107 -> 203622 bytes UnitPrinc.dfm | 4 ++-- UnitPrinc.pas | 64 ++++++++++++++++++++++++++++++++------------------ 3 files changed, 43 insertions(+), 25 deletions(-) diff --git a/UnitPrinc.dcu b/UnitPrinc.dcu index 79e7ac591aa1be0ff1bc60b9340ec6b9a5f2beb8..e1d466958497bd8ece0c1e827ad96a3c261b232e 100644 GIT binary patch delta 10973 zcmZ|S4_H)Xx&ZL=ee;JI5@B=z2f;v{l!^+A0(A<)ArV0)84YEuQOFr>fFb89$~1Co z_QvAr%C2)yJR7^R>9ew{`@|NDkhD_T#%{E+SMEwHB_&?xb$1w|+wwv-3Ke12QsVDhx%nDkUC zd(>93NDvxv?Te`j&wj@lx%A|8zmvg!CvNvU;kY0d9h=$jSg`JBt$9xH6h|FbrEgPN zp8lp>eq_4m5yzZ(Y2j%W8}fGeGC>%sllG;toM9dt=0oTP!V=LM6m~t!)?3VawnP z-hzSSp!CIR_Sjut7zAPJT(viM|1tW-)qW+sv@G2J75Jj}IuG{`NNY{({+J_jtM#*X zhmqqAsSf6KAH%$SiS!z!8KfQ)duG+&76<}0)==YviW&FsQO7m8?V4F_F>+`YOV2&Z zOe>#;1}}PV37!@0lhEPx^2NdPG(rRq0jmoCrwQ7?vIWu&3w!47^U<@;w+5Drfz`9l zhmqr%#ggkWR?YVqS+Bilg<*8{uXt6dANTFPU$!)x43s!3yd5eNZZocW9*9b z^K`ZV8ni+K-SQa?JdZkrCDKSbwEsZTX0ZDcW0(9tS2I09S93zLXE6KvtjOED@jU5B zh1FtU!K|HNqHpQnA(JhMxHfz8mUQ157Q^4%BCT7)Ha;4$6t7VupW#CA3>b-iCFcG! zn8HBx&w=swMc4Z0NPl0$R%-tOS9S1*HJ*E=MP|0_zM-E(JmVGFv%!%rpGClqQ}5Ik zj2uNvrE)X7|LzsK8Lxb*V~<>aYhq?SMvhnI`dCZw=~Q?M9Os~R(sRynL0)r1UNdzi z7>WMtn47v13`GA;7~54-x3AWJQ+jMYTdu0LT^K5p60%rl)|Ft}TXNg0*kXF?7>WKX zn44;gf#|;mQc@XK7q9S9)bF+m}@|wGH_q zKbX}CBhh~jb5j?If$0Ab#+euSA@1uz79kzXX6CFtvs#|P<uIy-CQ$KX0!8-G=vnA$i-(;NSdG`OCXW!;#yqrNEOFwWf35qU@aU5!+o z&DLbixohUT!eRJS(L={*-~}U?1l^Fw_ipWbahn0lo;4EYqJ;yH(Neyvlux} z;tKdcR|)dh0O?9TbMUiwNqH9b3wB-l+QN?V*k#h;Ct3Bvweaml3_LfhJ4TM;WzxMH zS#0d9a)AR<@bOryls7Lwk&`VBsdyt>!;dYKe!Y=B$v%`e6u=+3tCFLDEs@d+SR~gh zmp&?B(R}H0>AwruVyU)(WkB7XR=FK@R* zt0@LjXYCdv$5Nc|uZF{!pY^MyMVr{ZIlJ-8n;+}ii>23IW(ySWYJ}D^o7g)F>Apgy z&P+veHtI^s6oG+ja2eNibJblz1xQlOI^I;&xTRx;61Ihi&1j!pycM|7W`r>Bv_2 zV|b>BMN0l6_K2jhvANOfsmz0S{ut}4@=cs*!)(PjpaSS7D#7AX4v)15J4!O ze4w}{e)=hO}^DI<#?snBVtV-C!VwDg6eW*ct`V|(PxD+0L(Rya;+o$J@BNa2|vom*c zwtaH4^%t)&D`Wp6js81ZI`6Go^VO^H(h0S>Z;9s9?d2M&a}U#pR(r1sN_fkOi>2(t z>_OehTJx1)-AU2>M*BXTghj31^Q2>`-1)g#4KSiT1|0GP-81-1fk^b1!`QBr>W(vm z{eN3UCU*k1#{RKIkN0=~wV`1Frh?;i*K{ixaBwL*GiyBkWG;9jM)TVrr_^ zzaG0yKVx4#BnHyubJE}KS`j1Bk3V?Y&)r@n$J48RZ2RHCvs(%ai)$hrP59RIUdA04}|NEV#)h9i!;~0w|0+V?VgYquZHZ2 z|LPvme5<{Ds?}Gq7#^Gs;YY-+_QO-*LGSm%9yxVPdjDg z?V#;Fd`R2RFvnaC98GT#VD#n^wO_)@r5j=btS@9NHHY3MZ7b#Xw|15C>x|o$w7y-=Z)y!u z*pBr@MZw|-aB6Wx>s$M|hDjF>@b%KQ13Xq*TE*AQ>(!{kq90&k(NT)}ka-GkNQAV_ z%cEQCs`x`%?R~6dK`8G~>81Dmyo}jeAN~=4D}fzv{pwe|Eqsx34qwDqX!KmKjNyyn zIE$;5p-Mg9#2-?}Nbj`rocRyI)FvJS|3fwM)SMV8>NM|Tzn89`=C$0kq}AKT2iOwj z3eMHrmHN;aelIWPQOa25Qm*84q2U}}#6$U9O>6bryq&Rq(#j5AwCVzv|3|FnoX=A( z=lhfnUZ8K$sMqktu!ps9;(5x5xv^?o8p;JJm;K)Bst~C zQ$81?rq;AS^JwmC*=f|AMk`Xq6eQS)0ae8OTN{PdCw!Z)~Z$%x_QPa}65 zHNWG+r%nt%zue<8YTn|)pcuQS%WOZZ%=d_=FYWkGU|>g|P~5UI!%p$_2*zai==2;^VOQ3tUj~0jx1_9rsok zHUGs09Us9=0ypp`$Xw)tf!D=CCXpv_<6fiY6D}n1M$9DfL|(bq=+j){LLxtfsbrqS zMJW1|3rV~UGif}TH$vtz7m|4wW=uSd_d@1#E~N1>%$T`}ckeT5u5iJ`wQ-Qi=4L(s znJ>9u=8>4m<=K1`GFQ2f&66=>;kn#dY1H`s!G&C2h$$<#@QnRN%{4AqxF0ix+{#S{ zjGC{xVC8j~vGGD~fy{L-6!H?x*tv~cVbwQWu<-`WlyEzDL(L5?*m*Z*oVHCo(nEMh8Yic^FGMj;)0v2@a|P|4ZRTGR}oco`|Vx?&ZmlQbEegQ!wS{)jS(gT1Zv%LQK_gKdB#&NY(KgOx5!MPk6zoiGx&t2QbyZ z>v_rx(ut4xIwrP$`!Np-@%5}T8w4dERt2^fE`);-Rc?7QW=2)X+jVo{U`*Aft62aC ziV2MJcv{$Z!lu9L2b;k z;z69cCo38IB&gF^p>*&fe}cbvto4rCVU|a*>`43t=S+2^(QYA|EdyoP>*T6CR=xF+A=istLc0@9`Q6MWPOgdptnYBcqQu z5RJ&#a#Bg7~%hMdnF zCs?E$sR%6*M(Bu0!hm#T#`)0h%mkz-GZ8UnB_WAf$wUf~Mwo~U!c1f%Nm;ps1xd~- zM0&DpNN<)M>B}l1oP;aVCuiLhdWcHGOH?EMS$;x9#-6An0?7Ci^+W^FNE|1ch*Lx} z(SoqGZIJ?e7O=G)7^>EG66X=^+Ad@uyPN1i2D5vKKBAu(AO?vcVwe~qMu{Ny!oFbYLYhDY{h7{&?AU%1V#Cf8N=tg?;dWc@4A4%RYfTU~~B!-Z*4ZdM=gcv2p zh;f2N%cUwpON1fK`8pyJX~{PbaYO=PMB4Hbi6kN!>BvvCDd{%*grtY{b1W z7x8SgAk7;Kk-m*K!cLSR{TrQxi*OSjWMHEe8QfTjI19Yd`2KSiRAcBW@FRhO8l=8J zB$XK^xLo(1VyZ_Y!^4`2Ne-+>fDo^8nJYc@SybJcRUb z9wtVJQDO`k*gQ_K1#+Y!v_u%8BO(a{GPpSo8QPox_=MrjMhr)vN<_wrV>cqb z_C!RxJq1bGo`$4tHz66@GZ6FkBqVoxHd4Pmm#`w$I|>P#5B2Y`6D3H^4kyyH!$r7} z-W?vKZ$~B4zr%|R?5IYvi~U3mQHOYo14KR1Kr|A^i6#TS|NOgftG6*w~9fR+G z!|q%PErgXQMB;Yakc8cKq69JSb|Hcr#~zml>2-M#O*M|AEoZ9-3~O5g#iXN0Z-V3xV7+6=EsVBGxh;^7dp%B z&E=KIduP;MbfCN%87=n{HON@GNCXg}9>+*`17dJD633A^_bCLLH7~^bZ*{j|Tv=W7cjj$6XgcBL9a1n08 zLsTMT6<(s6@Dnx2c!fv=5aZQ)nY|4@@;G8sG$ECHn~`-bIEs5a5EkEwH10i5bj!(! z9;A0~FVeTSkLV``h(ThA7$!!L{=K8Ic>nwNj$`=6LN$v6yY{J&?tNj1pu=%sp8?Ut z;W)Z40U6t8Boc`vWPD!=qDjNiS!qICl^KXwX-4WQvynh$E>iESw8&Ok2^-R(v?Ce& zorvJV(YoJ_6z=yBm56P>m#8LckPfAYm<|MxJB}*qQOkiw1U@E@qwWJuh{t!}l)T3x;)i|QaRI^2( zudhmrz8=HF(BY~`L@?mUya@>G*@(t@laSYQ6v=3^Hx0>rRAEB1y%|WZ*Gyy+xroJU zA*_hiYeT+xH^jbZ3mnvVofzMe&I-A>&~0}_#KMsxP;blrQ#6t>GW)QXzzTsd_t!;CBjgj7}`0%K2c-T z53Eod^^p%w81<$H;pjLXb>opM1&&%$;3)ZFII4VDt4gC%EUB=@gx2Ovm<=;SahO@7)5m2&9SlZ&Nfy*K ztcAMsYoTA?S|8N(t%ZhtYhj5Y8wz1C>h0N3Sf2xhojK63HwR`La-p~(SJOHFR34Pn zY=90O8}RHnxbk5|bv_)$S>UL~0&4>nC~305vL*|hqsanYhAeOn7~sWwQf>6 zR{$qDUI5dsO;GLH1iQ9whC&!%!<(UDZz0r;7eYhb7AVnefrh#*u)?wh>R^EVZh^X< zBB&cHf_`B(IO^O6D|)xVir#IoqIVmtNPGrXzyM8s&%ly^9SS?_P}pOK!X7&m_Sm7& zv;zuZFzSbPKwVQY)U^~t>%n4}^*;;6{%7I!FztjAy8{{o9B|avvDU^JjhzrkyUBZg9c$fD5JvTreG13X8i+Lv{L=ayW6a z8%oS>IH%bS8#KFNwy6R(2!l>P@;pq8JP)tikOy)w==8~ZA(y-ta*36A#g&kA?}xLs z9e`HD2jFaTlB?i!$yIPVS5>Q|QDmy_W(uKv-f+|<^>EaciGipZ1spUe)B`X~3`KP+ gG{aG&3*l&VVXJbkBA=^GArsC8^{rbX6k6^70_)b^s{jB1 delta 10533 zcmZA64_H&@)d2AOzDY2lBBt_35Gtw0iIq;Yd`cB-D#1oXp%MipwNX+NG(xDE#F9lm z%_hY>EuGmdYuV&$*<_V(Wi3OPbkfOI_LQz{vQMnE(n=p$rH^#dN2(lpl z&w0;#?t7D)aM3USF!PJw&wSuBK?vUyBNIkWgj7Ee6MgeU$X1~=%y__dFuT-tV9%q4 z&)JRpdDH6f&0JUe&Zf;Ts+jhj|J!~-&PP=5SPBj==AWE?XW-bsf6rEmj6-b@4E|XGctMs?4gh2AFb)lHI zimf&MCteWhaP84mGUs9I8maWmWWO_key6AUownvmMQ={;_hz8(RF!^a;1s8VJ^FMjqoo6BFBCyqVN7RTPiQh(XR#KdHEGe*|g;_B7x5K9n0eVoPc z_E_UBlG;RD!5m!+tPB6DtVTj}ye=H7tq=;!oDF^q7wmux}pr z4ZPmX7+3}Ii#6xx8%x7MwjDY#VsXS$X*PCg^;pqs1@QvS*iM!1_R`%(>Qj z0hasxYwp`MM%Jqu(f$Oh;I}p6%_mqiix8FTSYlFM)YS5D?-1<3y7XaevGl$c7+IeZ zpIOJAV1?o@*Ri?KpamMJ8zQF~!1<3nERL*$_D_i_9s6P8>(EPjk-mR5lM{3`iK1D@ z%$xoiAqaG}XTP^l<_x?HlM}Si4=eV47F{K;#rN^(ZGKR7^tLSAdudk7lTWftw&I3# zHFNK~8jR@E;E#|dF3}C!j1k-`=hrjM(%B0FTmLF?>iuNSaG(A{Tf*dA7>3Kluym$j z>%>yf>!z#=z&j1>^MI zx5T;)Yz2QbTzqsBOV3DvUQ_$MhUxUq=vz_9V4IjH0FZ)#=z%&8^-DTetX)!qeEfeH>7>Pi7O}fjZt9Vr=*GCzA>8I zcfI&b7AwwBYNy{huin=PBcJyq=7QV8z~_A(#_8L7eQI0$oKpPGfVbp*jZa{c$sJXp4JtU>_H?Vs{Sv6_bnhr`ajKY>^ngl~u3;k>$WM zLfInmt*tCB?#v>*+!E*lUu;!!uQK@UGSOTjezBFM^RtV@#9a3Dva3?1RXTg{w!+AI z7bm>?;jm2>TwUeeFTRxvk2Y~)c`p1MTP6B)*#a@t$aMVbBJuCJ@Wc7;BJnzuh{ugA z66!V?r8MjTBer2S(vqq@P+a}e;ZIkL!wn5!5Gg*lE_BLjjdE+76#5&x>Zc($H z#kH*6&d$k_mcWjZSFB1%O3;^aE6U!6}Oe|7tH^DRKX%m|z@@Lq3meP{(3^Om=0nY?N5&SVY$F^?U zUa7zPCrAh@&Ks>e;6^H(SXNk>5WI(~E_pw3I;{s`!e_h~%uYBjT3^PL{?fFUPJc<9 z?_`mYRQ%yo@rO_>KJpTaOJDKHP&M3Hf6?C&-eYjm$!C*f>zmRkE(D*<;780^=?ouC zKf?!Y6Ng&<`VuoTRwTw(vxUpxLHRm;t7M(?>Cd;_ghdoXFmWglRJgATa=4FuQKF-o ztyuPMmHt{_)w@3Z*)}=cK7mzdr?0w3tKJbW;;J)M`m2FeXMFm%+vZNKdVBh+tF$Ux zT=@#Dg6HfjfmLt%^rzdFPOUmUebp6OH7x$(6&B}N2UR}f>r*e{>(>2J>eZF^TL$B_PTn%{rITz?`gy67^}Yod1v(W<6LeopG-Cvxa~P+0+Aoel zCw4{r`$-o4Two#oIxzYAO1~WVyw84bp%mlO+I6@<;fVW=a8NBhy`8-cyONS$!Q&_t zoSm%-Br=ZPQ-q(G5NrKx{$ttFN$9Jn%7>B9n~Nt|94xP*c=GoB>M^m+&*mkkPZey! z1(O9Yn(nMPzau}tuyVH5j2|2CQ#h~1Zxqza@FkhaY=OeCix4UOt-#F37qNj(o;j z(g#?&<_YI5>tj;#=HzGiCj3?~bdJR@J$i@Zv+>=w++c&R;Mw?YTVXIf;{HxJD5VaH zneD8baWUpSwn%*PJ!Wlr?>%;Di$mL_NTmeKA51`orw%sr6{pv z7DlF)<=s4*du)5P$}?QJG!i3($gf=Pw`rCC%Z1A<7Q#=jXo|GTx4Cddi{aHzyCD2M z7e2LN`1w_@U8{VT3s+qjUi-WO!as1~^9BsRyq0u8t31nvYt0y5|56WO8yCLp!0^U( z3xwym;JH4A@z*yL#aiWiT(}W755k*YYau+(g|BrOesi-4!uPpwGYi98-wZ)`feYW5 zF#PsbPKj3e7cShgVR-vn3xpqV;aew$-`(~@_%|-xRzC#c-S3*qwaO2<@Le^|-t*k; zg6WUAaJKdTII)FxYvcTf-~-b#6P&ect7q`%@w=}_I{BI3O;}}F zaY4;TFr(oy+yt3RT!`V-aga&m8s7IKt@1J#G`tQoNj#A!9nyM~SGbVK8!?s4leq4X zR{1Fxl6Wg-Qh72rLgp$Ll6es&DKWX$C7EFSODDn0+^LKe@*l#%D~QApk3LJs$0CZ8Mm$YHJW zYc3dhHD*japDSL_DsOTjpIb0v<|eL!ns2yZ;m7^DP%F zybm*WZsTfrBW`=RVB^D>a==%K6H?!C!Oq7p_APf|JK% z#?4*42QrLv!Nn6XRl(hS5K;n)|rftyM-s%Ew)p^7Cq52dNlHRr5+r)o?%Wg;YGG{M?VJT3*A4 z++y87_(rB{x$zGkHp5f5Q6D47`LM#UJAWP=j3`)1GG;~{BpfJ0+BdY%fdf^Db5&Oa9E62btWS%A19gZkvkwm5X_0 zAL7qQ#y*;mF_tH~F7pj7?_cJt6!5olXsgkim`dgoe-(i9`~SOr#(~8&i?tjXK1ZsYmRY2E>t>MdTnJN2Za& ze8NPS2@7E(?1Y1G5-!A<=|)_c6@(XYXI3KZSw5sA%a5?lHAF3<@NBL_HJj^+2BMK@ zLbRKkiB=?Wb30PExr68=x`=M1esd4eOY|db%K)O-GDr*|sx6*ja)cNq#)xr(MN6d$ zLPdlj?rb#?iBx3A5b=bD&?4UKL?VeuMk=#YJY*`7hWN5|gdVBRHXzAcvyhanIf!Fx zK2o#QM3@N+QoGeg*a-*WMC!I0k@~GJBr(?=ji0~7+zJena=nN#w-U+E^%2#CpQs^f zi8`X5XdoJiCZZWJ<+dW`+#Y0nTQAWUjh{cZy&prx_5sASeGoBkA3|!k4-+HAC^3fA zZ67DtTq#lzDk6+f6Olv=QolVOY1pm-JVN7kEr!i`iAZZ+64H~Gf{f**5^01E8PC%b z1|o~dA&f*mVIs^3%eNr?J8Xm<@$~O-paVOc$lwka;YNmbR1jXmhji?$Cj3a}&Kjg^ zXD!mbvmQ|tG!TtM6QU|;CR&MhB+OILfvO8Sk;sBBB;M3b^boy>#?*&sP5s0GF^I(M z8X|^~_+2B!D5BXlMvNn=W)>r%K+?<}73wmF5o)Bu97)6w@q`BPnzcx!IT2|$ryxV- zRAktkhK!nZ$e1|^VY>}T*6u9Ah@|YvCrlnRb&r{_AZdGShs1k>>xUk_QEbi zXX!@tmL8%PFtP|ZF`3h$KGMYxpx%V=ar2~*WYg&$9TY|hz0&UF++uF zioysrVkwG5Y(+6dJOTgY3O`wj5)mN@$F8Deq`N4ENF~w;9ib--v3UL6MOhT)5Jn;& z=_xWHy+vlig7g*HkvHye2kNyukxIK8nfEtY1=?WuB8~P+!iO~3{fJP5 zgk%*b6DdS0l2e?97>o7D-wZf573a*u?_a@)(NM7&dHxNV1v6Q%wH_pr5 zsK2BFX(;g$l}KZWkMJWamdI+*u98}$yQGe&M|w&ck-R49{3=H?Mq!RtqMhg7X} zNyHHGgoe-(i9`~SOr#L0L>i$Z^n?MaFU^whl;%)qB=QLpVJ0ku4QVK~6Ar>jxRAzD zH&H=&iAtoY)JOOcp$5mkAJuxudMVj}W744}DQLz~cc>jX(t)G#P$$uiuxmX?<)L20 zcc_o(CkBW?Vu%~_eQy>*(VaRngj{dS3G#W^~kLL*95q zW=B-kIXwPt3een)FH3EBCAKWFEn`2#1|TgCZd^W zCEAG&q7zAap^NB29RKV^MqcPg=B<|vpz88LB(i)6i76jJUi%-}DC#U9M_T0`_7LbR zS0O?ej&2=p2vKM(RI^?cH z#@#1#TAuxm*FPZB#j_S=i0lOO^v+?6@2MlY7Ke7s=~}GRMyQvEXe0E??`b3Kc+`tW z<9Jm27#s~g21n);IBG}<^=PzZxI!o2|sn+;IdZ-9m)2AFNlgzDBzCA>VFprk$vI`n1X*>R}c3@d6k!%^xM zII7WiIU6 zVT3{$V8ccz9N7+qF?rB1DGy4L@}OZ-9;~qEK^+XR-#n-r-T`%yJ7Lp_JK?Cm09K3? zz>1LqSTRxnEA-F63K*d2Gq9p*7u5B6c0u9rE+`z{1%<=ApipOqLKvW{844SBLt*P~ zXg#zWw_1o>Eri!YXMqySbI_pXIXLQn?w$$;K@}0R7wS6qhH4{*tS}pIgITi;X3aL3 zt+m0dp$KN}`$9bGh`N0+J-8312lv6WWt9gI9tkLI9tkLI2(5y zZuv#1Y`tR102fLg9F8gs8IIb2Zy>6M!$Bht8Gzy5P*e|B4oCII!clK*3;Y8}HV^3w Pxo4Z3(qej0rc(Vs*gHM+ diff --git a/UnitPrinc.dfm b/UnitPrinc.dfm index b1e0cba..da38452 100644 --- a/UnitPrinc.dfm +++ b/UnitPrinc.dfm @@ -1,6 +1,6 @@ object FormPrinc: TFormPrinc - Left = 39 - Top = 183 + Left = 1294 + Top = 168 Width = 1212 Height = 664 Caption = 'Client TCP-IP CDM Rail ou USB - syst'#232'me LENZ' diff --git a/UnitPrinc.pas b/UnitPrinc.pas index b7e83e0..a7fac07 100644 --- a/UnitPrinc.pas +++ b/UnitPrinc.pas @@ -3760,7 +3760,7 @@ begin suivant_alg3:=adr; exit; end; - if aiguillage[index].position<>const_droit then + if aiguillage[index].position=const_devie then begin if NivDebug=3 then AfficheDebug('133 - aiguillage '+intToSTR(Adr)+' Pris en pointe dévié',clyellow); // AdrPrec:=Adr; // JU @@ -3820,7 +3820,8 @@ begin // AdrPrec:=Adr; // JU if Adr=0 then - begin Affiche('136 - Erreur fatale',clRed); + begin + Affiche('136 - Erreur fatale',clRed); if NivDebug>=1 then AfficheDebug('136 - Erreur fatale',clRed); suivant_alg3:=9999;exit; end; @@ -3835,8 +3836,13 @@ begin suivant_alg3:=adr; exit; end; - Affiche('138 - Erreur fatale - Aucun cas Aiguillage',clred); - if NivDebug=3 then AfficheDebug('138 - Erreur fatale - Aucun cas Aiguillage',clred); + if NivDebug=3 then + begin + s:='138 - Aiguillage '+IntToSTR(adr)+' non résolu'; + if aiguillage[index].position=const_inconnu then s:=s+' car position inconnue'; + AfficheDebug(s,clred); + end; + suivant_alg3:=9999;exit; end; @@ -3874,7 +3880,7 @@ begin end; // rechercher le port de destination de la tjd - Adr2:=0;A:=#0; + Adr2:=0;A:='Z'; if aiguillage[index].position=const_droit then begin A:=aiguillage[index].DDroitB; @@ -3909,6 +3915,15 @@ begin Affiche(s,clred); suivant_alg3:=9996; exit; + end + else + begin + if NivDebug=3 then + begin + s:='Erreur 1022 position TJD '+intToSTR(adr)+' non résolue car position inconnue'; + affichedebug(s,clred); + end; + suivant_alg3:=9996; end; end; @@ -3983,7 +3998,7 @@ begin suivant_alg3:=adr; exit; end; - s:='Erreur 1022, TJD '+IntToSTR(Adr)+'/'+IntToSTR(AdrTjdP)+' mal positionnée'; + s:='Erreur 1023, TJD '+IntToSTR(Adr)+'/'+IntToSTR(AdrTjdP)+' mal positionnée'; if nivDebug=3 then AfficheDebug(s,clred); Affiche(s,clred); Suivant_alg3:=9998;exit; @@ -4025,7 +4040,7 @@ begin suivant_alg3:=adr; exit; end; - s:='Erreur 1023, TJD '+IntToSTR(Adr)+'/'+IntToSTR(AdrTjdP)+' mal positionnée'; + s:='Erreur 1024, TJD '+IntToSTR(Adr)+'/'+IntToSTR(AdrTjdP)+' mal positionnée'; if nivDebug=3 then AfficheDebug(s,clred); Affiche(s,clred); Suivant_alg3:=9998;exit; @@ -4054,7 +4069,7 @@ begin suivant_alg3:=adr; exit; end; - s:='Erreur 1024, TJD '+IntToSTR(Adr)+'/'+IntToSTR(AdrTjdP)+' mal positionnée'; + s:='Erreur 1025, TJD '+IntToSTR(Adr)+'/'+IntToSTR(AdrTjdP)+' mal positionnée'; if nivDebug=3 then AfficheDebug(s,clred); Affiche(s,clred); Suivant_alg3:=9998; @@ -4084,7 +4099,7 @@ begin substitue; exit; end; - s:='1025 - Erreur fatale - position TJD/S '+IntToSTR(Adr)+'/'+intToSTR(AdrTJDP)+' inconnue'; + s:='1026 - Erreur fatale - position TJD/S '+IntToSTR(Adr)+'/'+intToSTR(AdrTJDP)+' inconnue'; Affiche(s,clred); AfficheDebug(s,clred); suivant_alg3:=9999;exit; @@ -4506,7 +4521,7 @@ begin //if resultatOU then Affiche('VRAI final',clyellow) else affiche('FAUX final',clred); if NivDebug=3 then begin - s:='Conditions de carré suivant aiguillages: '; + s:='Conditions supp. de carré suivant aiguillages: '; if ResultatOU then s:=s+'vrai : le signal doit afficher carré' else s:=s+'faux : le signal ne doit pas afficher de carré'; AfficheDebug(s,clyellow); end; @@ -4588,7 +4603,7 @@ end; // si renvoie 0, pas trouvé le signal suivant. // rang=1 pour feu suivant, 2 pour feu suivant le 1, etc // Dans AdresseFeuSuivant : adresse du feu suivant (variable globale) -function etat_signal_suivant(adresse,rang : integer) : integer ; +function etat_signal_suivant(adresse,rang : integer) : integer ; var num_feu,etat,AdrFeu,i,j,prec,AdrSuiv : integer; aspect,combine : word; TypePrec,TypeActuel : integer; @@ -4634,7 +4649,6 @@ begin if feux[i].Btype_suiv1=2 then TypeActuel:=2; if feux[i].Btype_suiv1=4 then TypeActuel:=2; // aiguillage triple if feux[i].Btype_suiv1=5 then TypeActuel:=3; // le type du feu 1=détécteur 2=aig 5=bis - repeat inc(j); if nivDebug=3 then AfficheDebug('Itération '+IntToSTR(j),clyellow); @@ -4648,7 +4662,6 @@ begin begin //if nivDebug=3 then AfficheDebug('Engagement j='+IntToSTR(j)+' '+IntToSTR(prec)+'/'+IntToSTR(actuel),clyellow); AdrSuiv:=suivant_alg3(prec,TypePrec,actuel,TypeActuel,1); - if Nivdebug=3 then AfficheDebug('Suivant='+intToSTR(AdrSuiv),clyellow); prec:=actuel;TypePrec:=TypeActuel; actuel:=AdrSuiv;TypeActuel:=typeGen; @@ -4667,7 +4680,6 @@ begin exit; end; end; - // si le suivant est un détecteur comporte t-il un signal? AdrFeu:=0; if (TypeActuel=1) then // détecteur? @@ -4709,7 +4721,6 @@ begin if (NivDebug=3) and (adrFeu=0) then AfficheDebug('Pas Trouvé de feu suivant au feu Adr='+IntToSTR(ADresse),clOrange); end; - // renvoie l'adresse de l'aiguille si elle est déviée après le signal et ce jusqu'au prochain signal // sinon renvoie 0 // adresse=adresse du signal @@ -5057,6 +5068,7 @@ function PresTrainPrec(AdrFeu : integer) : boolean; var PresTrain : boolean; j,i,Det_initial,Adr_El_Suiv,Btype_el_suivant,DetPrec1,DetPrec2,DetPrec3,DetPrec4 : integer; begin + If NivDebug=3 then AfficheDebug('Proc PresTrainPrec('+intToSTR(AdrFeu)+') ---------------',clOrange); i:=index_feu(Adrfeu); if i=0 then begin @@ -5072,7 +5084,7 @@ begin j:=1; repeat - if NivDebug=3 then afficheDebug('Séquence '+IntToSTR(j)+' de recherche des 4 détecteurs précédents-----',clOrange); + if NivDebug=3 then afficheDebug('Séquence '+IntToSTR(j)+' de recherche des 4 détecteurs précédents-----',clYellow); if (j=1) then begin det_initial:=feux[i].Adr_det1;Adr_El_Suiv:=feux[i].Adr_el_suiv1; @@ -5155,10 +5167,14 @@ var Adr_det,etat,Aig,Adr_El_Suiv, code,combine : word; s : string; begin - s:='Traitement du feu '+intToSTR(Adrfeu)+'------------------------------------'; + if signalDebug=AdrFeu then AffSignal:=true; - if AffSignal then AfficheDebug(s,clOrange); + if AffSignal then + begin + s:='Traitement du feu '+intToSTR(Adrfeu)+'------------------------------------'; + AfficheDebug(s,clOrange); + end; index:=index_feu(Adrfeu); if AdrFeu<>0 then begin @@ -5176,17 +5192,16 @@ begin exit; end; - // signal non directionnel + // signal non directionnel etat:=etat_signal_suivant(AdrFeu,1) ; // état du signal suivant + adresse du signal suivant dans Signal_Suivant if AffSignal then begin code_to_aspect(etat,code,combine); - s:='Etat signal suivant ('+intToSTR(AdresseFeuSuivant)+') est '; + s:='Etat_signal_suivant ('+intToSTR(AdresseFeuSuivant)+') est '; s:=s+' à '+etatSign[code]; if Combine<>0 then s:=s+' + '+etatSign[combine]; AfficheDebug(s,clyellow); end; - // signaux traités spécifiquement { if (AdrFeu=201) then @@ -5714,7 +5729,6 @@ begin begin //s:='Evt Det '+intToSTR(adresse)+'='+intToSTR(etat01); s:='Tick='+IntToSTR(tick)+' Evt Det='+IntToSTR(adresse)+'='+intToSTR(etat01); - Affiche(s,clyellow); if not(TraceListe) then AfficheDebug(s,clyellow); end; @@ -5843,7 +5857,11 @@ begin Affiche('Raz Evts ',clLime); end; s:='Tick='+IntToSTR(tick)+' Evt Aig '+intToSTR(adresse)+'='+intToSTR(pos); - if pos=const_droit then s:=s+' droit' else s:=s+' dévié'; + case pos of + const_droit : s:=s+' droit'; + const_devie : s:=s+' dévié'; + const_inconnu : s:=s+' inconnu'; + end; if inv then s:=s+' INV'; if AffAigDet then begin