V8.5

Signaux_complexes_GL.dpr

@@ -18,6 +18,7 @@ uses
   UnitPareFeu in 'UnitPareFeu.pas',
   UnitAnalyseSegCDM in 'UnitAnalyseSegCDM.pas' {FormAnalyseCDM},
   Importation in 'Importation.pas' {FormImportation};
+
 {$R *.res}
 
 begin

Signaux_complexes_GL.map

@@ -1,104 +1,104 @@
 
  Start         Length     Name                   Class
- 0001:00000000 0017B6DCH .text                   CODE
+ 0001:00000000 0018322CH .text                   CODE
- 0002:00000000 00002C84H .data                   DATA
+ 0002:00000000 00002C88H .data                   DATA
- 0002:00002C84 045E33F9H .bss                    BSS
+ 0002:00002C88 045E33F9H .bss                    BSS
 
 
 Detailed map of segments
 
- 0001:00000000 00005EC7 C=CODE     S=.text    G=(none)   M=System   ACBP=A9
+ 0001:00000000 00005F13 C=CODE     S=.text    G=(none)   M=System   ACBP=A9
- 0001:00005EC8 00000140 C=CODE     S=.text    G=(none)   M=SysInit  ACBP=A9
+ 0001:00005F14 00000140 C=CODE     S=.text    G=(none)   M=SysInit  ACBP=A9
- 0001:00006008 00000108 C=CODE     S=.text    G=(none)   M=Types    ACBP=A9
+ 0001:00006054 00000108 C=CODE     S=.text    G=(none)   M=Types    ACBP=A9
- 0001:00006110 00000F38 C=CODE     S=.text    G=(none)   M=Windows  ACBP=A9
+ 0001:0000615C 00000F38 C=CODE     S=.text    G=(none)   M=Windows  ACBP=A9
- 0001:00007048 00000038 C=CODE     S=.text    G=(none)   M=Messages ACBP=A9
+ 0001:00007094 00000038 C=CODE     S=.text    G=(none)   M=Messages ACBP=A9
- 0001:00007080 00000338 C=CODE     S=.text    G=(none)   M=SysConst ACBP=A9
+ 0001:000070CC 00000338 C=CODE     S=.text    G=(none)   M=SysConst ACBP=A9
- 0001:000073B8 00006FF8 C=CODE     S=.text    G=(none)   M=SysUtils ACBP=A9
+ 0001:00007404 00006FF8 C=CODE     S=.text    G=(none)   M=SysUtils ACBP=A9
- 0001:0000E3B0 0000081B C=CODE     S=.text    G=(none)   M=VarUtils ACBP=A9
+ 0001:0000E3FC 0000081B C=CODE     S=.text    G=(none)   M=VarUtils ACBP=A9
- 0001:0000EBCC 0000809E C=CODE     S=.text    G=(none)   M=Variants ACBP=A9
+ 0001:0000EC18 0000809E C=CODE     S=.text    G=(none)   M=Variants ACBP=A9
- 0001:00016C6C 000001A0 C=CODE     S=.text    G=(none)   M=RTLConsts ACBP=A9
+ 0001:00016CB8 000001A0 C=CODE     S=.text    G=(none)   M=RTLConsts ACBP=A9
- 0001:00016E0C 0000083C C=CODE     S=.text    G=(none)   M=TypInfo  ACBP=A9
+ 0001:00016E58 0000083C C=CODE     S=.text    G=(none)   M=TypInfo  ACBP=A9
- 0001:00017648 00000358 C=CODE     S=.text    G=(none)   M=ActiveX  ACBP=A9
+ 0001:00017694 00000358 C=CODE     S=.text    G=(none)   M=ActiveX  ACBP=A9
- 0001:000179A0 0000A7EA C=CODE     S=.text    G=(none)   M=Classes  ACBP=A9
+ 0001:000179EC 0000A7EA C=CODE     S=.text    G=(none)   M=Classes  ACBP=A9
- 0001:0002218C 00000370 C=CODE     S=.text    G=(none)   M=Consts   ACBP=A9
+ 0001:000221D8 00000370 C=CODE     S=.text    G=(none)   M=Consts   ACBP=A9
- 0001:000224FC 00009BFB C=CODE     S=.text    G=(none)   M=Graphics ACBP=A9
+ 0001:00022548 00009BFB C=CODE     S=.text    G=(none)   M=Graphics ACBP=A9
- 0001:0002C0F8 00000124 C=CODE     S=.text    G=(none)   M=Math     ACBP=A9
+ 0001:0002C144 00000124 C=CODE     S=.text    G=(none)   M=Math     ACBP=A9
- 0001:0002C21C 000002B8 C=CODE     S=.text    G=(none)   M=Contnrs  ACBP=A9
+ 0001:0002C268 000002B8 C=CODE     S=.text    G=(none)   M=Contnrs  ACBP=A9
- 0001:0002C4D4 00000198 C=CODE     S=.text    G=(none)   M=CommCtrl ACBP=A9
+ 0001:0002C520 00000198 C=CODE     S=.text    G=(none)   M=CommCtrl ACBP=A9
- 0001:0002C66C 00000787 C=CODE     S=.text    G=(none)   M=MultiMon ACBP=A9
+ 0001:0002C6B8 00000787 C=CODE     S=.text    G=(none)   M=MultiMon ACBP=A9
- 0001:0002CDF4 00000038 C=CODE     S=.text    G=(none)   M=Imm      ACBP=A9
+ 0001:0002CE40 00000038 C=CODE     S=.text    G=(none)   M=Imm      ACBP=A9
- 0001:0002CE2C 00000FF8 C=CODE     S=.text    G=(none)   M=HelpIntfs ACBP=A9
+ 0001:0002CE78 00000FF8 C=CODE     S=.text    G=(none)   M=HelpIntfs ACBP=A9
- 0001:0002DE24 00000058 C=CODE     S=.text    G=(none)   M=WinSpool ACBP=A9
+ 0001:0002DE70 00000058 C=CODE     S=.text    G=(none)   M=WinSpool ACBP=A9
- 0001:0002DE7C 000010C8 C=CODE     S=.text    G=(none)   M=Printers ACBP=A9
+ 0001:0002DEC8 000010C8 C=CODE     S=.text    G=(none)   M=Printers ACBP=A9
- 0001:0002EF44 0000031F C=CODE     S=.text    G=(none)   M=FlatSB   ACBP=A9
+ 0001:0002EF90 0000031F C=CODE     S=.text    G=(none)   M=FlatSB   ACBP=A9
- 0001:0002F264 000003F0 C=CODE     S=.text    G=(none)   M=SyncObjs ACBP=A9
+ 0001:0002F2B0 000003F0 C=CODE     S=.text    G=(none)   M=SyncObjs ACBP=A9
- 0001:0002F654 000009BB C=CODE     S=.text    G=(none)   M=UxTheme  ACBP=A9
+ 0001:0002F6A0 000009BB C=CODE     S=.text    G=(none)   M=UxTheme  ACBP=A9
- 0001:00030010 00000038 C=CODE     S=.text    G=(none)   M=RichEdit ACBP=A9
+ 0001:0003005C 00000038 C=CODE     S=.text    G=(none)   M=RichEdit ACBP=A9
- 0001:00030048 00000038 C=CODE     S=.text    G=(none)   M=ToolWin  ACBP=A9
+ 0001:00030094 00000038 C=CODE     S=.text    G=(none)   M=ToolWin  ACBP=A9
- 0001:00030080 00000048 C=CODE     S=.text    G=(none)   M=ShellAPI ACBP=A9
+ 0001:000300CC 00000048 C=CODE     S=.text    G=(none)   M=ShellAPI ACBP=A9
- 0001:000300C8 00000038 C=CODE     S=.text    G=(none)   M=RegStr   ACBP=A9
+ 0001:00030114 00000038 C=CODE     S=.text    G=(none)   M=RegStr   ACBP=A9
- 0001:00030100 00000058 C=CODE     S=.text    G=(none)   M=WinInet  ACBP=A9
+ 0001:0003014C 00000058 C=CODE     S=.text    G=(none)   M=WinInet  ACBP=A9
- 0001:00030158 00000038 C=CODE     S=.text    G=(none)   M=UrlMon   ACBP=A9
+ 0001:000301A4 00000038 C=CODE     S=.text    G=(none)   M=UrlMon   ACBP=A9
- 0001:00030190 0000007C C=CODE     S=.text    G=(none)   M=ShlObj   ACBP=A9
+ 0001:000301DC 0000007C C=CODE     S=.text    G=(none)   M=ShlObj   ACBP=A9
- 0001:0003020C 00000060 C=CODE     S=.text    G=(none)   M=CommDlg  ACBP=A9
+ 0001:00030258 00000060 C=CODE     S=.text    G=(none)   M=CommDlg  ACBP=A9
- 0001:0003026C 00000038 C=CODE     S=.text    G=(none)   M=Dlgs     ACBP=A9
+ 0001:000302B8 00000038 C=CODE     S=.text    G=(none)   M=Dlgs     ACBP=A9
- 0001:000302A4 000036D1 C=CODE     S=.text    G=(none)   M=Dialogs  ACBP=A9
+ 0001:000302F0 000036D1 C=CODE     S=.text    G=(none)   M=Dialogs  ACBP=A9
- 0001:00033978 00004ADA C=CODE     S=.text    G=(none)   M=ExtCtrls ACBP=A9
+ 0001:000339C4 00004ADA C=CODE     S=.text    G=(none)   M=ExtCtrls ACBP=A9
- 0001:00038454 00000090 C=CODE     S=.text    G=(none)   M=ComStrs  ACBP=A9
+ 0001:000384A0 00000090 C=CODE     S=.text    G=(none)   M=ComStrs  ACBP=A9
- 0001:000384E4 000007A0 C=CODE     S=.text    G=(none)   M=Clipbrd  ACBP=A9
+ 0001:00038530 000007A0 C=CODE     S=.text    G=(none)   M=Clipbrd  ACBP=A9
- 0001:00038C84 00000128 C=CODE     S=.text    G=(none)   M=StrUtils ACBP=A9
+ 0001:00038CD0 00000128 C=CODE     S=.text    G=(none)   M=StrUtils ACBP=A9
- 0001:00038DAC 00003821 C=CODE     S=.text    G=(none)   M=Buttons  ACBP=A9
+ 0001:00038DF8 00003821 C=CODE     S=.text    G=(none)   M=Buttons  ACBP=A9
- 0001:0003C5D0 00000038 C=CODE     S=.text    G=(none)   M=ExtDlgs  ACBP=A9
+ 0001:0003C61C 00000038 C=CODE     S=.text    G=(none)   M=ExtDlgs  ACBP=A9
- 0001:0003C608 00000068 C=CODE     S=.text    G=(none)   M=IniFiles ACBP=A9
+ 0001:0003C654 00000068 C=CODE     S=.text    G=(none)   M=IniFiles ACBP=A9
- 0001:0003C670 00000068 C=CODE     S=.text    G=(none)   M=Registry ACBP=A9
+ 0001:0003C6BC 00000068 C=CODE     S=.text    G=(none)   M=Registry ACBP=A9
- 0001:0003C6D8 0000006C C=CODE     S=.text    G=(none)   M=Mapi     ACBP=A9
+ 0001:0003C724 0000006C C=CODE     S=.text    G=(none)   M=Mapi     ACBP=A9
- 0001:0003C744 00000058 C=CODE     S=.text    G=(none)   M=ExtActns ACBP=A9
+ 0001:0003C790 00000058 C=CODE     S=.text    G=(none)   M=ExtActns ACBP=A9
- 0001:0003C79C 00000038 C=CODE     S=.text    G=(none)   M=ListActns ACBP=A9
+ 0001:0003C7E8 00000038 C=CODE     S=.text    G=(none)   M=ListActns ACBP=A9
- 0001:0003C7D4 00009948 C=CODE     S=.text    G=(none)   M=ComCtrls ACBP=A9
+ 0001:0003C820 00009948 C=CODE     S=.text    G=(none)   M=ComCtrls ACBP=A9
- 0001:0004611C 00000EA0 C=CODE     S=.text    G=(none)   M=Themes   ACBP=A9
+ 0001:00046168 00000EA0 C=CODE     S=.text    G=(none)   M=Themes   ACBP=A9
- 0001:00046FBC 0000C698 C=CODE     S=.text    G=(none)   M=StdCtrls ACBP=A9
+ 0001:00047008 0000C698 C=CODE     S=.text    G=(none)   M=StdCtrls ACBP=A9
- 0001:00053654 00000168 C=CODE     S=.text    G=(none)   M=StdActns ACBP=A9
+ 0001:000536A0 00000168 C=CODE     S=.text    G=(none)   M=StdActns ACBP=A9
- 0001:000537BC 00000D1F C=CODE     S=.text    G=(none)   M=WinHelpViewer ACBP=A9
+ 0001:00053808 00000D1F C=CODE     S=.text    G=(none)   M=WinHelpViewer ACBP=A9
- 0001:000544DC 00011403 C=CODE     S=.text    G=(none)   M=Controls ACBP=A9
+ 0001:00054528 00011403 C=CODE     S=.text    G=(none)   M=Controls ACBP=A9
- 0001:000658E0 00001292 C=CODE     S=.text    G=(none)   M=ActnList ACBP=A9
+ 0001:0006592C 00001292 C=CODE     S=.text    G=(none)   M=ActnList ACBP=A9
- 0001:00066B74 00001B9C C=CODE     S=.text    G=(none)   M=ImgList  ACBP=A9
+ 0001:00066BC0 00001B9C C=CODE     S=.text    G=(none)   M=ImgList  ACBP=A9
- 0001:00068710 000066E1 C=CODE     S=.text    G=(none)   M=Menus    ACBP=A9
+ 0001:0006875C 000066E1 C=CODE     S=.text    G=(none)   M=Menus    ACBP=A9
- 0001:0006EDF4 0000CF8C C=CODE     S=.text    G=(none)   M=Forms    ACBP=A9
+ 0001:0006EE40 0000CF8C C=CODE     S=.text    G=(none)   M=Forms    ACBP=A9
- 0001:0007BD80 00000060 C=CODE     S=.text    G=(none)   M=ComConst ACBP=A9
+ 0001:0007BDCC 00000060 C=CODE     S=.text    G=(none)   M=ComConst ACBP=A9
- 0001:0007BDE0 00001259 C=CODE     S=.text    G=(none)   M=ComObj   ACBP=A9
+ 0001:0007BE2C 00001259 C=CODE     S=.text    G=(none)   M=ComObj   ACBP=A9
- 0001:0007D03C 00000038 C=CODE     S=.text    G=(none)   M=StdVCL   ACBP=A9
+ 0001:0007D088 00000038 C=CODE     S=.text    G=(none)   M=StdVCL   ACBP=A9
- 0001:0007D074 00001793 C=CODE     S=.text    G=(none)   M=AxCtrls  ACBP=A9
+ 0001:0007D0C0 00001793 C=CODE     S=.text    G=(none)   M=AxCtrls  ACBP=A9
- 0001:0007E808 00000060 C=CODE     S=.text    G=(none)   M=OleConst ACBP=A9
+ 0001:0007E854 00000060 C=CODE     S=.text    G=(none)   M=OleConst ACBP=A9
- 0001:0007E868 00003519 C=CODE     S=.text    G=(none)   M=OleCtrls ACBP=A9
+ 0001:0007E8B4 00003519 C=CODE     S=.text    G=(none)   M=OleCtrls ACBP=A9
- 0001:00081D84 00000050 C=CODE     S=.text    G=(none)   M=JConsts  ACBP=A9
+ 0001:00081DD0 00000050 C=CODE     S=.text    G=(none)   M=JConsts  ACBP=A9
- 0001:00081DD4 000133EC C=CODE     S=.text    G=(none)   M=jpeg     ACBP=A9
+ 0001:00081E20 000133EC C=CODE     S=.text    G=(none)   M=jpeg     ACBP=A9
- 0001:000951C0 00000314 C=CODE     S=.text    G=(none)   M=TlHelp32 ACBP=A9
+ 0001:0009520C 00000314 C=CODE     S=.text    G=(none)   M=TlHelp32 ACBP=A9
- 0001:000954D4 00000128 C=CODE     S=.text    G=(none)   M=WinSock  ACBP=A9
+ 0001:00095520 00000128 C=CODE     S=.text    G=(none)   M=WinSock  ACBP=A9
- 0001:000955FC 00003A78 C=CODE     S=.text    G=(none)   M=ScktComp ACBP=A9
+ 0001:00095648 00003A78 C=CODE     S=.text    G=(none)   M=ScktComp ACBP=A9
- 0001:00099074 000008EA C=CODE     S=.text    G=(none)   M=OleServer ACBP=A9
+ 0001:000990C0 000008EA C=CODE     S=.text    G=(none)   M=OleServer ACBP=A9
- 0001:00099960 00000598 C=CODE     S=.text    G=(none)   M=MSCommLib_TLB ACBP=A9
+ 0001:000999AC 00000598 C=CODE     S=.text    G=(none)   M=MSCommLib_TLB ACBP=A9
- 0001:00099EF8 00000040 C=CODE     S=.text    G=(none)   M=MMSystem ACBP=A9
+ 0001:00099F44 00000040 C=CODE     S=.text    G=(none)   M=MMSystem ACBP=A9
- 0001:00099F38 00000038 C=CODE     S=.text    G=(none)   M=Nb30     ACBP=A9
+ 0001:00099F84 00000038 C=CODE     S=.text    G=(none)   M=Nb30     ACBP=A9
- 0001:00099F70 00000A18 C=CODE     S=.text    G=(none)   M=MaskUtils ACBP=A9
+ 0001:00099FBC 00000A18 C=CODE     S=.text    G=(none)   M=MaskUtils ACBP=A9
- 0001:0009A988 00002108 C=CODE     S=.text    G=(none)   M=Mask     ACBP=A9
+ 0001:0009A9D4 00002108 C=CODE     S=.text    G=(none)   M=Mask     ACBP=A9
- 0001:0009CA90 0000924C C=CODE     S=.text    G=(none)   M=Grids    ACBP=A9
+ 0001:0009CADC 0000924C C=CODE     S=.text    G=(none)   M=Grids    ACBP=A9
- 0001:000A5CDC 00002A08 C=CODE     S=.text    G=(none)   M=UnitDebug ACBP=A9
+ 0001:000A5D28 0000191C C=CODE     S=.text    G=(none)   M=UnitPilote ACBP=A9
- 0001:000A86E4 000017B8 C=CODE     S=.text    G=(none)   M=UnitPilote ACBP=A9
+ 0001:000A7644 0000057C C=CODE     S=.text    G=(none)   M=Importation ACBP=A9
- 0001:000A9E9C 00000574 C=CODE     S=.text    G=(none)   M=Importation ACBP=A9
+ 0001:000A7BC0 00019434 C=CODE     S=.text    G=(none)   M=UnitAnalyseSegCDM ACBP=A9
- 0001:000AA410 000147BC C=CODE     S=.text    G=(none)   M=UnitAnalyseSegCDM ACBP=A9
+ 0001:000C0FF4 0000289B C=CODE     S=.text    G=(none)   M=UnitConfigTCO ACBP=A9
- 0001:000BEBCC 000027E0 C=CODE     S=.text    G=(none)   M=UnitConfigTCO ACBP=A9
+ 0001:000C3890 00000D78 C=CODE     S=.text    G=(none)   M=Unit_Pilote_aig ACBP=A9
- 0001:000C13AC 00000C64 C=CODE     S=.text    G=(none)   M=Unit_Pilote_aig ACBP=A9
+ 0001:000C4608 00003D24 C=CODE     S=.text    G=(none)   M=UnitConfigCellTCO ACBP=A9
- 0001:000C2010 00003BEC C=CODE     S=.text    G=(none)   M=UnitConfigCellTCO ACBP=A9
+ 0001:000C832C 00031BF8 C=CODE     S=.text    G=(none)   M=UnitTCO  ACBP=A9
- 0001:000C5BFC 000312F0 C=CODE     S=.text    G=(none)   M=UnitTCO  ACBP=A9
+ 0001:000F9F24 000031F0 C=CODE     S=.text    G=(none)   M=UnitSR   ACBP=A9
- 0001:000F6EEC 00002D1C C=CODE     S=.text    G=(none)   M=UnitSR   ACBP=A9
+ 0001:000FD114 00002BF0 C=CODE     S=.text    G=(none)   M=UnitCDF  ACBP=A9
- 0001:000F9C08 00002594 C=CODE     S=.text    G=(none)   M=UnitCDF  ACBP=A9
+ 0001:000FFD04 0000283F C=CODE     S=.text    G=(none)   M=verif_version ACBP=A9
- 0001:000FC19C 0003C444 C=CODE     S=.text    G=(none)   M=UnitConfig ACBP=A9
+ 0001:00102544 000011D0 C=CODE     S=.text    G=(none)   M=UnitPareFeu ACBP=A9
- 0001:001385E0 0000284B C=CODE     S=.text    G=(none)   M=verif_version ACBP=A9
+ 0001:00103714 0003C750 C=CODE     S=.text    G=(none)   M=UnitConfig ACBP=A9
- 0001:0013AE2C 000011D0 C=CODE     S=.text    G=(none)   M=UnitPareFeu ACBP=A9
+ 0001:0013FE64 00002BCC C=CODE     S=.text    G=(none)   M=UnitDebug ACBP=A9
- 0001:0013BFFC 00000C00 C=CODE     S=.text    G=(none)   M=UnitSimule ACBP=A9
+ 0001:00142A30 00000D2C C=CODE     S=.text    G=(none)   M=UnitSimule ACBP=A9
- 0001:0013CBFC 00002670 C=CODE     S=.text    G=(none)   M=Unitplace ACBP=A9
+ 0001:0014375C 000027E8 C=CODE     S=.text    G=(none)   M=Unitplace ACBP=A9
- 0001:0013F26C 0003BFAF C=CODE     S=.text    G=(none)   M=UnitPrinc ACBP=A9
+ 0001:00145F44 0003CE27 C=CODE     S=.text    G=(none)   M=UnitPrinc ACBP=A9
- 0001:0017B21C 000004C0 C=CODE     S=.text    G=(none)   M=Signaux_complexes_GL ACBP=A9
+ 0001:00182D6C 000004C0 C=CODE     S=.text    G=(none)   M=Signaux_complexes_GL ACBP=A9
  0002:00000000 000000CC C=DATA     S=.data    G=DGROUP   M=System   ACBP=A9
  0002:000000CC 00000020 C=DATA     S=.data    G=DGROUP   M=SysInit  ACBP=A9
  0002:000000EC 00000254 C=DATA     S=.data    G=DGROUP   M=SysUtils ACBP=A9
@@ -207,29 +207,28 @@ Detailed map of segments
  0002:00003E58 00000004 C=BSS      S=.bss     G=DGROUP   M=MaskUtils ACBP=A9
  0002:00003E5C 00000004 C=BSS      S=.bss     G=DGROUP   M=Mask     ACBP=A9
  0002:00003E60 00000004 C=BSS      S=.bss     G=DGROUP   M=Grids    ACBP=A9
- 0002:00003E64 0000002C C=BSS      S=.bss     G=DGROUP   M=UnitDebug ACBP=A9
+ 0002:00003E64 00000010 C=BSS      S=.bss     G=DGROUP   M=UnitPilote ACBP=A9
- 0002:00003E90 00000010 C=BSS      S=.bss     G=DGROUP   M=UnitPilote ACBP=A9
+ 0002:00003E74 00000010 C=BSS      S=.bss     G=DGROUP   M=Importation ACBP=A9
- 0002:00003EA0 00000010 C=BSS      S=.bss     G=DGROUP   M=Importation ACBP=A9
+ 0002:00003E84 000148B0 C=BSS      S=.bss     G=DGROUP   M=UnitAnalyseSegCDM ACBP=A9
- 0002:00003EB0 000148B0 C=BSS      S=.bss     G=DGROUP   M=UnitAnalyseSegCDM ACBP=A9
+ 0002:00018734 00000014 C=BSS      S=.bss     G=DGROUP   M=UnitConfigTCO ACBP=A9
- 0002:00018760 00000014 C=BSS      S=.bss     G=DGROUP   M=UnitConfigTCO ACBP=A9
+ 0002:00018748 00000014 C=BSS      S=.bss     G=DGROUP   M=Unit_Pilote_aig ACBP=A9
- 0002:00018774 00000014 C=BSS      S=.bss     G=DGROUP   M=Unit_Pilote_aig ACBP=A9
+ 0002:0001875C 00000014 C=BSS      S=.bss     G=DGROUP   M=UnitConfigCellTCO ACBP=A9
- 0002:00018788 00000014 C=BSS      S=.bss     G=DGROUP   M=UnitConfigCellTCO ACBP=A9
+ 0002:00018770 00418704 C=BSS      S=.bss     G=DGROUP   M=UnitTCO  ACBP=A9
- 0002:0001879C 00418700 C=BSS      S=.bss     G=DGROUP   M=UnitTCO  ACBP=A9
+ 0002:00430E74 00000010 C=BSS      S=.bss     G=DGROUP   M=UnitSR   ACBP=A9
- 0002:00430E9C 00000010 C=BSS      S=.bss     G=DGROUP   M=UnitSR   ACBP=A9
+ 0002:00430E84 00000014 C=BSS      S=.bss     G=DGROUP   M=UnitCDF  ACBP=A9
- 0002:00430EAC 00000014 C=BSS      S=.bss     G=DGROUP   M=UnitCDF  ACBP=A9
+ 0002:00430E98 00000020 C=BSS      S=.bss     G=DGROUP   M=verif_version ACBP=A9
- 0002:00430EC0 00000560 C=BSS      S=.bss     G=DGROUP   M=UnitConfig ACBP=A9
+ 0002:00430EB8 00000004 C=BSS      S=.bss     G=DGROUP   M=UnitPareFeu ACBP=A9
- 0002:00431420 00000020 C=BSS      S=.bss     G=DGROUP   M=verif_version ACBP=A9
+ 0002:00430EBC 00000560 C=BSS      S=.bss     G=DGROUP   M=UnitConfig ACBP=A9
- 0002:00431440 00000004 C=BSS      S=.bss     G=DGROUP   M=UnitPareFeu ACBP=A9
+ 0002:0043141C 0000002C C=BSS      S=.bss     G=DGROUP   M=UnitDebug ACBP=A9
- 0002:00431444 0000000C C=BSS      S=.bss     G=DGROUP   M=UnitSimule ACBP=A9
+ 0002:00431448 0000000C C=BSS      S=.bss     G=DGROUP   M=UnitSimule ACBP=A9
- 0002:00431450 00000008 C=BSS      S=.bss     G=DGROUP   M=Unitplace ACBP=A9
+ 0002:00431454 00000008 C=BSS      S=.bss     G=DGROUP   M=Unitplace ACBP=A9
- 0002:00431458 041B4FA0 C=BSS      S=.bss     G=DGROUP   M=UnitPrinc ACBP=A9
+ 0002:0043145C 041B4F9C C=BSS      S=.bss     G=DGROUP   M=UnitPrinc ACBP=A9
 
 Bound resource files
 
 c:\program files (x86)\borland\delphi7\Lib\Buttons.res
 c:\program files (x86)\borland\delphi7\Lib\ExtDlgs.res
 c:\program files (x86)\borland\delphi7\Lib\Controls.res
-UnitDebug.dfm
 UnitPilote.dfm
 Importation.dfm
 UnitAnalyseSegCDM.dfm
@@ -239,8 +238,9 @@ UnitConfigCellTCO.dfm
 UnitTCO.dfm
 UnitSR.dfm
 UnitCDF.dfm
-UnitConfig.dfm
 verif_version.dfm
+UnitConfig.dfm
+UnitDebug.dfm
 UnitSimule.dfm
 Unitplace.dfm
 UnitPrinc.dfm
@@ -248,4 +248,4 @@ Signaux_complexes_GL.res
 Signaux_complexes_GL.drf
 
 
-Program entry point at 0001:0017B52C
+Program entry point at 0001:0018307C

UnitAnalyseSegCDM.pas

@@ -4221,6 +4221,7 @@ procedure TFormAnalyseCDM.ButtonAffPortClick(Sender: TObject);
 var i,j,numport,erreur : integer;
 begin
   val(editPort.text,numport,erreur);
+  if numport<1 then exit;
   trouve_IndexPort(numport,i,j);
   if i<>-1 then
   begin
@@ -4523,6 +4524,7 @@ begin
     val(s,adresse2,erreur);
     erreur:=0;
   end;
+  if (adresse<1) or (adresse2<0) then exit;
 
   if erreur=0 then
   begin
@@ -4937,6 +4939,7 @@ procedure TFormAnalyseCDM.ButtonAffDetClick(Sender: TObject);
 var i,erreur : integer;
 begin
   val(EditDetecteur.text,i,erreur);
+  if i<1 then exit;
   if erreur=0 then dessine_det(i);
 end;
 
@@ -5021,8 +5024,6 @@ end;
 
 
 
-
-
 end.
 
 

UnitCDF.pas

@@ -128,13 +128,13 @@ begin
   begin
     caption:='Configuration du décodeur Digikeijs';
     label20.caption:='Tables d''aspects du signal en fonction du motif envoyé au décodeur Digikeijs';
-    label24.Caption:='1 à 5';
+    label24.Caption:='1 à 5  - Aspects de 0 à 255';
   end;
   if erreur=2 then
   begin
     caption:='Configuration du décodeur CDF';
     label20.Caption:='Tables d''aspects du signal en fonction du motif envoyé au décodeur CDF';
-    label24.Caption:='1 à 4';
+    label24.Caption:='1 à 4 - Aspects de 0 à 255';
   end;
 
   Label1.caption:=etats[1];
@@ -229,11 +229,13 @@ begin
 end;
 
 procedure TFormCDF.Edit1Change(Sender: TObject);
-var erreur : integer;
+var erreur,i : integer;
 begin
   if index<>0 then
   begin
-    val(Edit1.Text,Signaux[index].SR[1].sortie1,erreur);
+    val(Edit1.Text,i,erreur);
+    if (i<0) or (i>255) or (erreur<>0) then exit;
+    Signaux[index].SR[1].sortie1:=i;
     Maj_DB;
     if label1.Caption=etats[1] then Maj_Etat_Signal(0,carre);
     dessine_signal_CDF;
@@ -241,11 +243,13 @@ begin
 end;
 
 procedure TFormCDF.Edit2Change(Sender: TObject);
-var erreur : integer;
+var erreur,i : integer;
 begin
   if index<>0 then
   begin
-    val(Edit2.Text,Signaux[index].SR[2].sortie1,erreur);
+    val(Edit2.Text,i,erreur);
+    if (i<0) or (i>255) or (erreur<>0) then exit;
+    Signaux[index].SR[2].sortie1:=i;
     Maj_DB;
     if label2.Caption=etats[2] then Maj_Etat_Signal(0,semaphore);
     dessine_signal_CDF;
@@ -253,11 +257,13 @@ begin
 end;
 
 procedure TFormCDF.Edit3Change(Sender: TObject);
-var erreur : integer;
+var erreur,i : integer;
 begin
   if index<>0 then
   begin
-    val(Edit3.Text,Signaux[index].SR[3].sortie1,erreur);
+    val(Edit3.Text,i,erreur);
+    if (i<0) or (i>255) or (erreur<>0) then exit;
+    Signaux[index].SR[2].sortie1:=i;
     Maj_DB;
     if label3.Caption=etats[3] then Maj_Etat_Signal(0,semaphore_cli);
     dessine_signal_CDF;
@@ -265,11 +271,13 @@ begin
 end;
 
 procedure TFormCDF.Edit4Change(Sender: TObject);
-var erreur : integer;
+var erreur,i : integer;
 begin
   if index<>0 then
   begin
-    val(Edit4.Text,Signaux[index].SR[4].sortie1,erreur);
+    val(Edit4.Text,i,erreur);
+    if (i<0) or (i>255) or (erreur<>0) then exit;
+    Signaux[index].SR[4].sortie1:=i;
     Maj_DB;
     if label4.Caption=etats[4] then Maj_Etat_Signal(0,vert);
     dessine_signal_CDF;
@@ -277,11 +285,13 @@ begin
 end;
 
 procedure TFormCDF.Edit5Change(Sender: TObject);
-var erreur : integer;
+var erreur,i : integer;
 begin
   if index<>0 then
   begin
-    val(Edit5.Text,Signaux[index].SR[5].sortie1,erreur);
+    val(Edit5.Text,i,erreur);
+    if (i<0) or (i>255) or (erreur<>0) then exit;
+    Signaux[index].SR[5].sortie1:=i;
     Maj_DB;
     if label5.Caption=etats[5] then Maj_Etat_Signal(0,vert_cli);
     dessine_signal_CDF;
@@ -289,11 +299,13 @@ begin
 end;
 
 procedure TFormCDF.Edit6Change(Sender: TObject);
-var erreur : integer;
+var erreur,i : integer;
 begin
   if index<>0 then
   begin
-    val(Edit6.Text,Signaux[index].SR[6].sortie1,erreur);
+    val(Edit6.Text,i,erreur);
+    if (i<0) or (i>255) or (erreur<>0) then exit;
+    Signaux[index].SR[6].sortie1:=i;
     Maj_DB;
     if label6.Caption=etats[6] then Maj_Etat_Signal(0,violet);
     dessine_signal_CDF;
@@ -301,11 +313,13 @@ begin
 end;
 
 procedure TFormCDF.Edit7Change(Sender: TObject);
-var erreur : integer;
+var erreur,i : integer;
 begin
   if index<>0 then
   begin
-    val(Edit7.Text,Signaux[index].SR[7].sortie1,erreur);
+    val(Edit7.Text,i,erreur);
+    if (i<0) or (i>255) or (erreur<>0) then exit;
+    Signaux[index].SR[7].sortie1:=i;
     Maj_DB;
     if label7.Caption=etats[7] then Maj_Etat_Signal(0,blanc);
     dessine_signal_CDF;
@@ -313,11 +327,13 @@ begin
 end;
 
 procedure TFormCDF.Edit8Change(Sender: TObject);
-var erreur : integer;
+var erreur,i : integer;
 begin
   if index<>0 then
   begin
-    val(Edit8.Text,Signaux[index].SR[8].sortie1,erreur);
+    val(Edit8.Text,i,erreur);
+    if (i<0) or (i>255) or (erreur<>0) then exit;
+    Signaux[index].SR[8].sortie1:=i;
     Maj_DB;
     if label8.Caption=etats[8] then Maj_Etat_Signal(0,blanc_cli);
     dessine_signal_CDF;
@@ -325,23 +341,31 @@ begin
 end;
 
 procedure TFormCDF.Edit9Change(Sender: TObject);
-var erreur : integer;
+var erreur,i : integer;
 begin
   if index<>0 then
   begin
-    val(Edit9.Text,Signaux[index].SR[9].sortie1,erreur);
+    val(Edit9.Text,i,erreur);
+    if (i<0) or (i>255) or (erreur<>0) then exit;
+    Signaux[index].SR[9].sortie1:=i;
     Maj_DB;
-    if label9.Caption=etats[9] then  begin Maj_Etat_Signal(0,semaphore);Maj_Etat_Signal(0,jaune);end;
+    if label9.Caption=etats[9] then
+    begin
+      Maj_Etat_Signal(0,semaphore);
+      Maj_Etat_Signal(0,jaune);
+    end;
     dessine_signal_CDF;
   end;
 end;
 
 procedure TFormCDF.Edit10Change(Sender: TObject);
-var erreur : integer;
+var erreur,i : integer;
 begin
   if index<>0 then
   begin
-    val(Edit10.Text,Signaux[index].SR[10].sortie1,erreur);
+    val(Edit10.Text,i,erreur);
+    if (i<0) or (i>255) or (erreur<>0) then exit;
+    Signaux[index].SR[10].sortie1:=i;
     Maj_DB;
     if label10.Caption=etats[10] then
     begin
@@ -353,11 +377,13 @@ begin
 end;
 
 procedure TFormCDF.Edit11Change(Sender: TObject);
-var erreur : integer;
+var erreur,i : integer;
 begin
   if index<>0 then
   begin
-    val(Edit11.Text,Signaux[index].SR[11].sortie1,erreur);
+    val(Edit11.Text,i,erreur);
+    if (i<0) or (i>255) or (erreur<>0) then exit;
+    Signaux[index].SR[11].sortie1:=i;
     Maj_DB;
     if label11.Caption=etats[11] then begin Maj_Etat_Signal(0,semaphore);Maj_Etat_Signal(0,ral_30);end;
     dessine_signal_CDF;
@@ -365,11 +391,13 @@ begin
 end;
 
 procedure TFormCDF.Edit12Change(Sender: TObject);
-var erreur : integer;
+var erreur,i: integer;
 begin
   if index<>0 then
   begin
-    val(Edit12.Text,Signaux[index].SR[12].sortie1,erreur);
+    val(Edit12.Text,i,erreur);
+    if (i<0) or (i>255) or (erreur<>0) then exit;
+    Signaux[index].SR[12].sortie1:=i;
     Maj_DB;
     if label12.Caption=etats[12] then begin Maj_Etat_Signal(0,semaphore);Maj_Etat_Signal(0,ral_60);end;
     dessine_signal_CDF;
@@ -377,11 +405,13 @@ begin
 end;
 
 procedure TFormCDF.Edit13Change(Sender: TObject);
-var erreur : integer;
+var erreur,i : integer;
 begin
   if index<>0 then
   begin
-    val(Edit13.Text,Signaux[index].SR[13].sortie1,erreur);
+    val(Edit13.Text,i,erreur);
+    if (i<0) or (i>255) or (erreur<>0) then exit;
+    Signaux[index].SR[13].sortie1:=i;
     Maj_DB;
     if label13.Caption=etats[13] then begin Maj_Etat_Signal(0,ral_60);Maj_Etat_Signal(0,jaune_cli);end;
     dessine_signal_CDF;
@@ -389,11 +419,13 @@ begin
 end;
 
 procedure TFormCDF.Edit14Change(Sender: TObject);
-var erreur : integer;
+var erreur,i : integer;
 begin
   if index<>0 then
   begin
-    val(Edit14.Text,Signaux[index].SR[14].sortie1,erreur);
+    val(Edit14.Text,i,erreur);
+    if (i<0) or (i>255) or (erreur<>0) then exit;
+    Signaux[index].SR[14].sortie1:=i;
     Maj_DB;
     if label14.Caption=etats[14] then begin Maj_Etat_Signal(0,semaphore);Maj_Etat_Signal(0,rappel_30);end;
     dessine_signal_CDF;
@@ -401,11 +433,13 @@ begin
 end;
 
 procedure TFormCDF.Edit15Change(Sender: TObject);
-var erreur : integer;
+var erreur,i : integer;
 begin
   if index<>0 then
   begin
-    val(Edit15.Text,Signaux[index].SR[15].sortie1,erreur);
+    val(Edit15.Text,i,erreur);
+    if (i<0) or (i>255) or (erreur<>0) then exit;
+    Signaux[index].SR[15].sortie1:=i;
     Maj_DB;
     if label15.Caption=etats[15] then begin Maj_Etat_Signal(0,semaphore);Maj_Etat_Signal(0,rappel_60);end;
     dessine_signal_CDF;
@@ -413,11 +447,13 @@ begin
 end;
 
 procedure TFormCDF.Edit16Change(Sender: TObject);
-var erreur : integer;
+var erreur,i : integer;
 begin
   if index<>0 then
   begin
-    val(Edit16.Text,Signaux[index].SR[16].sortie1,erreur);
+    val(Edit16.Text,i,erreur);
+    if (i<0) or (i>255) or (erreur<>0) then exit;
+    Signaux[index].SR[16].sortie1:=i;
     Maj_DB;
     if label16.Caption=etats[16] then begin Maj_Etat_Signal(0,rappel_30); Maj_Etat_Signal(0,jaune);end;
     dessine_signal_CDF;
@@ -425,11 +461,13 @@ begin
 end;
 
 procedure TFormCDF.Edit17Change(Sender: TObject);
-var erreur : integer;
+var erreur,i : integer;
 begin
   if index<>0 then
   begin
-    val(Edit17.Text,Signaux[index].SR[17].sortie1,erreur);
+    val(Edit17.Text,i,erreur);
+    if (i<0) or (i>255) or (erreur<>0) then exit;
+    Signaux[index].SR[17].sortie1:=i;
     Maj_DB;
     if label17.Caption=etats[17] then begin Maj_Etat_Signal(0,rappel_30); Maj_Etat_Signal(0,jaune_cli);end;
     dessine_signal_CDF;
@@ -437,11 +475,13 @@ begin
 end;
 
 procedure TFormCDF.Edit18Change(Sender: TObject);
-var erreur : integer;
+var erreur,i : integer;
 begin
   if index<>0 then
   begin
-    val(Edit18.Text,Signaux[index].SR[18].sortie1,erreur);
+    val(Edit18.Text,i,erreur);
+    if (i<0) or (i>255) or (erreur<>0) then exit;
+    Signaux[index].SR[18].sortie1:=i;
     Maj_DB;
     if label18.Caption=etats[18] then begin Maj_Etat_Signal(0,rappel_60); Maj_Etat_Signal(0,jaune);end;
     dessine_signal_CDF;
@@ -449,13 +489,19 @@ begin
 end;
 
 procedure TFormCDF.Edit19Change(Sender: TObject);
-var erreur : integer;
+var erreur,i : integer;
 begin
   if index<>0 then
   begin
-    val(Edit19.Text,Signaux[index].SR[19].sortie1,erreur);
+    val(Edit19.Text,i,erreur);
+    if (i<0) or (i>255) or (erreur<>0) then exit;
+    Signaux[index].SR[19].sortie1:=i;
     Maj_DB;
-    if label19.Caption=etats[19] then begin Maj_Etat_Signal(0,rappel_60);  Maj_Etat_Signal(0,jaune_cli);end;
+    if label19.Caption=etats[19] then
+    begin
+      Maj_Etat_Signal(0,rappel_60);
+      Maj_Etat_Signal(0,jaune_cli);
+    end;
     dessine_signal_CDF;
   end;
 end;

UnitConfig.dfm

@@ -1,6 +1,6 @@
 object FormConfig: TFormConfig
-  Left = 347
+  Left = 246
-  Top = 101
+  Top = 114
   Hint = 'Modifie la configuration selon les s'#233'lections choisies'
   BorderStyle = bsDialog
   Caption = 'Configuration g'#233'n'#233'rale'
@@ -681,7 +681,7 @@ object FormConfig: TFormConfig
     Top = 8
     Width = 633
     Height = 505
-    ActivePage = TabSheetTrains
+    ActivePage = TabSheetCDM
     Font.Charset = DEFAULT_CHARSET
     Font.Color = clBlack
     Font.Height = -11
@@ -1163,7 +1163,7 @@ object FormConfig: TFormConfig
       ImageIndex = 1
       object Label9: TLabel
         Left = 16
-        Top = 448
+        Top = 456
         Width = 294
         Height = 13
         Caption = 'Ces param'#232'tres sont utilis'#233's en fonctionnement sans CDM Rail'
@@ -1228,14 +1228,14 @@ object FormConfig: TFormConfig
       end
       object GroupBox4: TGroupBox
         Left = 8
-        Top = 128
+        Top = 208
         Width = 297
         Height = 65
         Caption = '4. Ent'#234'te des trames XpressNet vers l'#39'interface'
         TabOrder = 1
         object RadioButton1: TRadioButton
           Left = 8
-          Top = 24
+          Top = 20
           Width = 225
           Height = 17
           Caption = '0 : Sans ent'#234'te (interfaces s'#233'rie, Genli...)'
@@ -1252,7 +1252,7 @@ object FormConfig: TFormConfig
       end
       object GroupBox3: TGroupBox
         Left = 8
-        Top = 200
+        Top = 128
         Width = 297
         Height = 73
         Caption = 'Acc'#232's r'#233'seau '#224' l'#39'interface vers la centrale'
@@ -1337,7 +1337,7 @@ object FormConfig: TFormConfig
       end
       object GroupBox9: TGroupBox
         Left = 8
-        Top = 280
+        Top = 282
         Width = 297
         Height = 161
         Caption = 'Au d'#233'marrage de signaux complexes en mode autonome'
@@ -1429,7 +1429,7 @@ object FormConfig: TFormConfig
       end
       object GroupBox22: TGroupBox
         Left = 312
-        Top = 256
+        Top = 248
         Width = 297
         Height = 65
         Caption = 'Protocole de connexion '#224' la centrale ou '#224' l'#39'interface'
@@ -3009,8 +3009,8 @@ object FormConfig: TFormConfig
             end
           end
           object GroupBox19: TGroupBox
-            Left = 48
+            Left = 24
-            Top = 144
+            Top = 152
             Width = 233
             Height = 137
             Caption = 'Destinataire de l'#39'action '
@@ -3150,7 +3150,7 @@ object FormConfig: TFormConfig
               OnChange = EditTempoChange
             end
             object CheckRAZ: TCheckBox
-              Left = 32
+              Left = 40
               Top = 48
               Width = 145
               Height = 17
@@ -3197,13 +3197,13 @@ object FormConfig: TFormConfig
               OnChange = EditTrainDestChange
             end
             object ComboBoxAccComUSB: TComboBox
-              Left = 8
+              Left = 24
-              Top = 32
+              Top = 64
               Width = 201
               Height = 21
               Hint = 'Nom de l'#39'accessoire d'#233'fini dans l'#39'onglet "p'#233'riph'#233'riques COM/USB"'
               Style = csDropDownList
-              ItemHeight = 13
+              ItemHeight = 0
               ParentShowHint = False
               ShowHint = True
               TabOrder = 6
@@ -3224,24 +3224,24 @@ object FormConfig: TFormConfig
           end
         end
         object GroupBoxPNA: TGroupBox
-          Left = 152
+          Left = 32
-          Top = 240
+          Top = 40
           Width = 169
           Height = 121
           Caption = 'Actionneurs PN simples'
           TabOrder = 2
         end
         object GroupBoxPNZ: TGroupBox
-          Left = 88
+          Left = 72
-          Top = 320
+          Top = 368
           Width = 169
           Height = 65
           Caption = 'Zones de d'#233'tection'
           TabOrder = 3
         end
         object GroupBoxPN: TGroupBox
-          Left = 152
+          Left = 24
-          Top = 24
+          Top = 32
           Width = 249
           Height = 193
           Caption = 'Action gestion passage '#224' niveau'
@@ -3378,13 +3378,13 @@ object FormConfig: TFormConfig
             OnClick = RadioGroupActPNClick
           end
           object ComboBoxPNCom: TComboBox
-            Left = 8
+            Left = 72
-            Top = 104
+            Top = 128
             Width = 145
             Height = 21
             Hint = 'Nom de l'#39'accessoire d'#233'fini dans l'#39'onglet "p'#233'riph'#233'riques COM/USB"'
             Style = csDropDownList
-            ItemHeight = 13
+            ItemHeight = 0
             ParentShowHint = False
             ShowHint = True
             TabOrder = 10

UnitConfig.pas

@@ -649,9 +649,9 @@ var
   ligneDCC,decCourant,AffMemoFenetre,ligneClicAccPeriph,AncligneClicAccPeriph,ligneCherche,
   compt_Ligne,Style_aff,Ancien_Style,Ecran_SC,Mode_reserve,Max_Signal_Sens,nCantonsRes : integer;
 
-  ack_cdm,clicliste,config_modifie,clicproprietes,confasauver,trouve_MaxPort,
+  ack_cdm,clicliste,config_modifie,clicproprietes,confasauver,trouve_MaxPort,fermeSC,
   modif_branches,ConfigPrete,trouve_section_dccpp,trouve_section_trains,trouve_section_acccomusb,
-  trouveAvecVerifIconesTCO,Affiche_avert,activ,trouve_section_dec_pers : boolean;
+  trouveAvecVerifIconesTCO,Affiche_avert,activ,trouve_section_dec_pers,Z21 : boolean;
 
   fichier : text;
 
@@ -693,7 +693,7 @@ var
 
 function config_com(s : string) : boolean;
 function envoi_CDM(s : string) : boolean;
-procedure connecte_CDM;
+function connecte_CDM : boolean;
 function place_id(s : string) : string;
 procedure decodeAig(s : string;var adr : integer;var B : char);
 function sauve_config : boolean;
@@ -729,7 +729,7 @@ begin
   repeat
     inc(temps);Sleep(100);
     Application.processMessages;
-  until ferme or ackCDM or nackCDM or (temps>30); // CDM répond < 1s
+  until fermeSC or ackCDM or nackCDM or (temps>30); // CDM répond < 1s
 
   if not(ackCDM) or nack then
   begin
@@ -803,16 +803,17 @@ begin
   ack_cdm:=false;
 end;
 
-procedure connecte_CDM;
+function connecte_CDM : boolean;
 var s : string;
     i : integer;
 begin
+  result:=false;
   // déconnexion de l'ancienne liaison éventuelle
   Formprinc.ClientSocketCDM.Close;
 
-  if (AdresseIPCDM<>'0') then
+  if (AdresseIPCDM<>'0') and IpOk(AdresseIPCDM) then
   begin
-    if(ProcessRunning('CDR')) then
+    if (ProcessRunning('CDR')) then
     begin
       // ouverture du socket CDM
       with Formprinc do
@@ -854,13 +855,14 @@ begin
         Application.ProcessMessages;
         SauvefiltrageDet0:=filtrageDet0;
         filtrageDet0:=0;
+        result:=true;
       end;
     end;
-    //else Affiche('CDM Rail non lancé',clOrange);
   end
   else
   begin
     if adresseIPCDM='0' then Affiche('La connexion à CDM n''est pas demandée car l''adresse IP est nulle dans '+NomConfig,clcyan);
+    if not(IpOk(AdresseIPCDM)) then Affiche('Adresse IP CDM incorrecte : '+AdresseIPCDM,clcyan);
   end;
 end;
 
@@ -1927,7 +1929,7 @@ begin
         if k=1 then
         for j:=1 to 19 do
         begin
-          s:=etats[j]+','+decodeur_pers[i].desc[j].Chcommande;
+          s:=utf8encode(etats[j])+','+decodeur_pers[i].desc[j].Chcommande;
           writeln(fichierN,s);
         end;
         if k=2 then
@@ -2869,8 +2871,9 @@ var s,sa,SOrigine: string;
         end;
         if c=1 then
         begin
-          k:=pos(',',sOrigine);
+          k:=pos(',',sOrigine);    // on ne tient compte que du 2ème champ
-          decodeur_pers[NbreDecPers].desc[adr].Chcommande:=copy(sOrigine,k+1,length(sOrigine)-k+1);
+          s:=copy(sOrigine,k+1,length(sOrigine)-k+1);  // on ne copie que le 2eme champ
+          decodeur_pers[NbreDecPers].desc[adr].Chcommande:=s;
           s:='';
           inc(adr);
         end;
@@ -3631,7 +3634,6 @@ var s,sa,SOrigine: string;
         Ecran_SC:=i;
       end;
 
-
       sa:=uppercase(Z21_ch)+'=';
       i:=pos(sa,s);
       if i=1 then
@@ -4158,7 +4160,9 @@ begin
      if (AdrBaseDetDccpp<0) or (AdrBaseDetDccpp>2048) then AdrBaseDetDccpp:=513;
 
     mode_Reserve:=RadioReserve.ItemIndex;  // 0 = par canton - 1=par détecteurs
+
     val(EditAlgo.Text,i,erreur);
+    if (i<1) or (i>1) then i:=1;
     Algo_localisation:=i;
 
     val(EditMaxSignalSens.Text,i,erreur);
@@ -4454,8 +4458,8 @@ begin
   with formconfig do
   begin
     ComboBoxDecCde.ItemIndex:=decodeur_pers[DecCourant].Peripherique-1;
-    formconfig.labelDecal.caption:='Commande'+#13+'Ascii';
+    formconfig.labelDecal.caption:='Commandes'+#13+'Ascii';
-    LabelDecal.Left:=150;
+    LabelDecal.Left:=160;
     formconfig.LabelSorties.visible:=false;
   end;
 end;
@@ -4535,13 +4539,14 @@ begin
   liste_portcom;
 end;
 
+// cliqué sur les checkbox de l'onglet des périphériques
 procedure TformConfig.cb_onclick(sender : TObject);
 var s : string;
     cb : TCheckBox;
 begin
   if clicliste or (ligneClicAccPeriph<0) then exit;
   cb:=(sender as Tcheckbox);
-  s := cb.Name;
+  s:=cb.Name;
   if pos('Aig',s)<>0 then Tablo_periph[ligneClicAccPeriph+1].ScvAig:=cb.Checked;
   if pos('Det',s)<>0 then Tablo_periph[ligneClicAccPeriph+1].ScvDet:=cb.Checked;
   if pos('Act',s)<>0 then Tablo_periph[ligneClicAccPeriph+1].ScvAct:=cb.Checked;
@@ -4574,7 +4579,6 @@ procedure fabrique_combos_periph;
 var i : integer;
     s : string;
 begin
-
   with FormConfig.ListBoxPeriph,FormConfig do
   begin
     ComboBoxAccComUSB.Clear;
@@ -4608,7 +4612,6 @@ begin
     // réaffiche le champ modifié dans le comboboxAccComUSB
     if Tablo_Actionneur[ligneclicAct+1].periph then if tablo_actionneur[ligneclicAct+1].fonction=i then ComboBoxAccComUSB.ItemIndex:=i-1;
 
-
     ComboBoxPNCom.items[i-1]:=s;
     if tablo_PN[lignecliqueePN+1].TypeCde=1 then if tablo_PN[lignecliqueePN+1].AdresseFerme=i then ComboBoxPNCom.ItemIndex:=i-1;
 
@@ -4702,7 +4705,7 @@ var i : integer;
 begin
   if clicListe then exit;
   i:=ComboStyle.ItemIndex;
-  // il faut changer le style dans la fenetre principale, sinon çà plante si on choisit windows.
+  // il faut changer le style dans la fenetre principale (formPrinc), sinon çà plante si on choisit windows.
   Style_Aff:=i;
 end;
 {$IFEND}
@@ -4928,10 +4931,11 @@ begin
       visible:=false;
     end;
 
+    // décalage d'adresse
     EditT[i]:=TEdit.create(FormConfig.TabSheetDecodeurs);
     with EditT[i] do
     begin
-      Name:='EditT'+intToSTR(i);
+      Name:='EditDecalT'+intToSTR(i);
       left:=180;Top:=y+10;Width:=30;Height:=15;
       text:='';
       parent:=TabSheetDecodeurs;
@@ -5870,7 +5874,8 @@ begin
     text:='';
     parent:=GroupBoxAvance;
     hint:='Nombre de détecteurs considérés comme trop distants'+#13+
-          'Cette valeur dépend de la taille du réseau';
+          'Cette valeur dépend de la taille du réseau:'+#13+
+          '3 pour les petits réseaux jusque 5 ou 6 pour les grands';
     ShowHint:=true;
   end;
 
@@ -6016,11 +6021,7 @@ begin
     ShowHint:=true;
   end;
 
-  // oui
+
-  {if FileExists('Image_Signaux.jpg') then ImageSignaux.Picture.LoadFromFile('Image_Signaux.jpg')
-  else
-    Affiche('Manque fichier "Image_Signaux.jpg"',clOrange);
-  }
   ImageSignaux.picture.Assign(formpilote.ImageSignaux.Picture);
 
   EditComUSB.Hint:='COMX:vitesse,parité,nombre de bits,bits de stop,protocole'+#13+
@@ -6067,14 +6068,19 @@ begin
   i:=pos(',',s);
   if i<>0 then delete(s,i,length(s)-i+1);
   val(s,adr,erreur);
-  if adr<0 then begin B:='?';adr:=0;exit;end;
+  if (adr<0) then begin B:='?';adr:=0;exit;end;
-  if erreur<>0 then
+  if (erreur<>0) and (erreur<=length(s)) then
   begin
     if s[erreur]='S' then begin B:='S';exit;end;
     if s[erreur]='P' then begin B:='P';exit;end;
     if s[erreur]='D' then begin B:='D';exit;end;
   end;
-
+  if erreur>length(s) then
+  begin
+    adr:=0;
+    B:='?';
+    exit;
+  end;
   B:='Z';
 end;
 
@@ -7975,7 +7981,7 @@ begin
   begin
     s:=EditDet1.Text;
     Val(s,i,erreur);
-    if (s<>'') and (erreur<>0) then begin LabelInfo.caption:='Erreur détecteur1 ';exit;end;
+    if (s='') or (erreur<>0) or (i<1) then begin LabelInfo.caption:='Erreur détecteur1 ';exit;end;
     LabelInfo.caption:=' ';
     Signaux[ligneClicSig+1].Adr_det1:=i;
     maj_hint_Signal(ligneClicSig+1);
@@ -7992,7 +7998,7 @@ var i,erreur : integer;
 begin
   s:=editTempoFeu.Text;
   Val(s,i,erreur);
-  if (s<>'') and (erreur<>0) then begin LabelInfo.caption:='Erreur temporisation décodeurs ';exit;end;
+  if (s='') or (erreur<>0) or (i<0) then begin LabelInfo.caption:='Erreur temporisation décodeurs ';exit;end;
   LabelInfo.caption:=' ';
   Tempo_Signal:=i;
 end;
@@ -8013,13 +8019,15 @@ begin
     if s<>'' then
     begin
       Val(s,i,erreur);
-      if erreur<>0 then
+      if (i<0) then begin LabelInfo.caption:='Erreur élément suivant 1';exit;end;
+      if (erreur<>0) and (erreur<=length(s)) then
       begin
         if (s[erreur]='A') and (erreur=1) then
         begin
           bt:=aig;
           delete(s,erreur,1);
           Val(s,i,erreur);
+          if i<0 then begin LabelInfo.caption:='Erreur élément suivant 1';exit;end;
         end
         else begin LabelInfo.caption:='Erreur élément suivant 1';exit;end;
       end
@@ -8057,7 +8065,7 @@ begin
   begin
     s:=EditDet2.Text;
     Val(s,i,erreur);
-    if (s<>'') and (erreur<>0) then begin LabelInfo.caption:='Erreur détecteur2 ';exit;end;
+    if (s='') or (erreur<>0) or (i<1) then begin LabelInfo.caption:='Erreur détecteur2 ';exit;end;
     LabelInfo.caption:=' ';
     Signaux[ligneClicSig+1].Adr_det2:=i;
     maj_hint_Signal(ligneClicSig+1);
@@ -8120,13 +8128,15 @@ begin
     if s<>'' then
     begin
       Val(s,i,erreur);
-      if erreur<>0 then
+      if (i<0) then begin LabelInfo.caption:='Erreur élément suivant 2';exit;end;
+      if (erreur<>0) and (erreur<=length(s)) then
       begin
         if (s[erreur]='A') and (erreur=1) then
         begin
           bt:=aig; 
           delete(s,erreur,1);
           Val(s,i,erreur);
+          if i<0 then begin LabelInfo.caption:='Erreur élément suivant 2';exit;end;
         end
         else begin LabelInfo.caption:='Erreur élément suivant 2';exit;end;
       end
@@ -8164,7 +8174,7 @@ begin
   begin
     s:=EditDet3.Text;
     Val(s,i,erreur);
-    if (s<>'') and (erreur<>0) then begin LabelInfo.caption:='Erreur détecteur3 ';exit;end;
+    if (s='') or (erreur<>0) or (i<1) then begin LabelInfo.caption:='Erreur détecteur3 ';exit;end;
     LabelInfo.caption:=' ';
     Signaux[ligneClicSig+1].Adr_det3:=i;
     maj_hint_Signal(ligneClicSig+1);
@@ -8196,13 +8206,15 @@ begin
     if s<>'' then
     begin
       Val(s,i,erreur);
-      if erreur<>0 then
+      if (i<0) then begin LabelInfo.caption:='Erreur élément suivant 3';exit;end;
+      if (erreur<>0) and (erreur<=length(s)) then
       begin
         if (s[erreur]='A') and (erreur=1) then
         begin
           bt:=aig; 
           delete(s,erreur,1);
           Val(s,i,erreur);
+          if i<0 then begin LabelInfo.caption:='Erreur élément suivant 3';exit;end;
         end
         else begin LabelInfo.caption:='Erreur élément suivant 3';exit;end;
       end
@@ -8240,7 +8252,7 @@ begin
   begin
     s:=EditDet4.Text;
     Val(s,i,erreur);
-    if (s<>'') and (erreur<>0) then begin LabelInfo.caption:='Erreur détecteur4 ';exit;end;
+    if (s='') or (erreur<>0) or (i<1) then begin LabelInfo.caption:='Erreur détecteur4 ';exit;end;
     LabelInfo.caption:=' ';
     Signaux[ligneClicSig+1].Adr_det4:=i;
     maj_hint_Signal(ligneClicSig+1);
@@ -8272,13 +8284,16 @@ begin
     if s<>'' then
     begin
       Val(s,i,erreur);
-      if erreur<>0 then
+      if (i<0) then begin LabelInfo.caption:='Erreur élément suivant 4';exit;end;
+
+      if (erreur<>0) and (erreur<=length(s)) then
       begin
         if (s[erreur]='A') and (erreur=1) then
         begin
           bt:=aig; 
           delete(s,erreur,1);
           Val(s,i,erreur);
+          if i<0 then begin LabelInfo.caption:='Erreur élément suivant 4';exit;end;
         end
         else begin LabelInfo.caption:='Erreur élément suivant 4';exit;end;
       end
@@ -8320,7 +8335,7 @@ begin
     if radioButtonLoc.Checked or RadioButtonAccess.Checked or RadioButtonSon.Checked  or radioButtonCde.checked then
     begin
       Val(s,act,erreur);
-      if s='' then exit;
+      if (s='') or (act<1) then exit;
 
       // 0=actionneur/détecteur  2=evt aig  3=MemZone
       if (Tablo_Actionneur[ligneClicAct+1].typdeclenche=3) or (Tablo_Actionneur[ligneClicAct+1].typdeclenche=0) then
@@ -8371,7 +8386,7 @@ begin
     if radioButtonLoc.Checked or RadioButtonAccess.Checked or RadioButtonSon.Checked then
     begin
       Val(s,det2,erreur);
-      if s='' then exit;
+      if (s='') or (det2<1) then exit;
       if erreur<>0 then
       begin
         LabelInfo.caption:='Erreur adresse détecteur';exit
@@ -8383,7 +8398,7 @@ begin
 
       // vérifier si les détecteurs sont contigus
       Val(EditAct.Text,det1,erreur);
-      if erreur<>0 then exit;
+      if (erreur<>0) or (det1<1) then exit;
       det_contigu(det1,det2,suiv,elSuiv);
       if (suiv=0) or (suiv>9995) then LabelInfo.Caption:='Les détecteurs '+intToSTR(det1)+' et '+intToSTR(det2)+' ne sont pas contigus'
       else LabelInfo.Caption:='';
@@ -8548,7 +8563,7 @@ begin
     if radioButtonLoc.Checked or RadioButtonAccess.Checked or RadioButtonCde.Checked then
     begin
       Val(s,fonction,erreur);
-      if erreur<>0 then
+      if (erreur<>0) or (fonction<1) then
       begin
         LabelInfo.caption:='Erreur fonction actionneur';exit
       end else LabelInfo.caption:=' ';
@@ -8603,7 +8618,7 @@ begin
     if radioButtonLoc.Checked then
     begin
       Val(s,tempo,erreur);
-      if erreur<>0 then
+      if (erreur<>0) or (tempo<0) then
       begin
         LabelInfo.caption:='Erreur Tempo actionneur';exit
       end else LabelInfo.caption:=' ';
@@ -8929,7 +8944,7 @@ begin
   begin 
     s:=EditAdrFerme.Text;
     Val(s,act,erreur);
-    if erreur<>0 then
+    if (erreur<>0) or (act<1) then
     begin
       LabelInfo.caption:='Erreur adresse actionneur ferme';exit
     end else LabelInfo.caption:=' ';
@@ -8978,7 +8993,7 @@ begin
   begin
     s:=EditAdrOuvre.Text;
     Val(s,act,erreur);
-    if erreur<>0 then
+    if (erreur<>0) or (act<1) then
     begin
       LabelInfo.caption:='Erreur adresse actionneur ouvre';exit
     end else LabelInfo.caption:=' ';
@@ -9393,10 +9408,10 @@ begin
         else
           with Signaux[j].Img do
           begin
-            Parent:=Formprinc.ScrollBox1;   // dire que l'image est dans la scrollBox1
+            Parent:=Formprinc.ScrollBoxSig;   // dire que l'image est dans la scrollBox1
             Top:=(HtImg+espY+20)*((j-1) div NbreImagePLigne);   // détermine les points d'origine
             Left:=10+ (LargImg+5)*((j-1) mod (NbreImagePLigne));
-            Name:='ImageFeu'+IntToSTR(Signaux[j].adresse);
+            Name:='ImageSignal'+IntToSTR(Signaux[j].adresse);
             Maj_Hint_Signal(j);
           end;
 
@@ -11679,7 +11694,7 @@ begin
       s:=encode_aig(ligneclicAig+1);
       ListBoxAig.items[ligneclicAig]:=s;
       formconfig.ListBoxAig.selected[ligneclicAig]:=true;
-    end ;
+    end;
   end; 
 end;
 
@@ -11749,13 +11764,13 @@ begin
     // créer les nouveau checkBox de feux blancs si de nouveaux ont été cochés
     if Signaux[index].FeuBlanc and (Signaux[index].checkFB=nil) then
     begin
-      Signaux[index].CheckFB:=TCheckBox.create(Formprinc.ScrollBox1);  // crée le handle
+      Signaux[index].CheckFB:=TCheckBox.create(Formprinc.ScrollBoxSig);  // crée le handle
       with Signaux[index].CheckFB do
       begin
         onClick:=formprinc.proc_checkBoxFB;  // affecter l'adresse de la procédure de traitement quand on clique dessus
         Hint:=intToSTR(index);
         caption:='dem FB';
-        Parent:=Formprinc.ScrollBox1;
+        Parent:=Formprinc.ScrollBoxSig;
         width:=100;height:=15;
         Top:=HtImg+15+((HtImg+EspY+20)*((index-1) div NbreImagePLigne));
         Left:=10+ (LargImg+5)*((index-1) mod (NbreImagePLigne));
@@ -12318,29 +12333,33 @@ begin
 end;
 
 procedure TFormConfig.EditAdresseTrainChange(Sender: TObject);
-var erreur :integer;
+var erreur,i :integer;
 begin
   if clicliste then exit;
   if affevt then affiche('Evt change adresse train',clyellow);
   if (ligneclicTrain<0) or (ligneclicTrain>=ntrains) or (ntrains<1) then exit;
-  val(EditAdresseTrain.text,trains[ligneclicTrain+1].adresse,erreur);
+  val(EditAdresseTrain.text,i,erreur);
+  if i<1 then exit;
+  trains[ligneclicTrain+1].adresse:=i;
   formconfig.ListBoxTrains.items[ligneclicTrain]:=Train_tablo(ligneclicTrain+1);
   ListBoxTrains.selected[ligneclicTrain]:=true;
 end;
 
 procedure TFormConfig.EditVitesseMaxiChange(Sender: TObject);
-var erreur :integer;
+var erreur,i :integer;
 begin
   if clicliste then exit;
   if affevt then affiche('Evt change vitesse maxi train',clyellow);
   if (ligneclicTrain<0) or (ligneclicTrain>=ntrains) or (ntrains<1) then exit;
-  val(EditVitesseMaxi.text,trains[ligneclicTrain+1].vitmax,erreur);
+  val(EditVitesseMaxi.text,i,erreur);
+  if i<1 then exit;
+  trains[ligneclicTrain+1].vitmax:=i;
   formconfig.ListBoxTrains.items[ligneclicTrain]:=Train_tablo(ligneclicTrain+1);
   formconfig.ListBoxTrains.selected[ligneclicTrain]:=true;
 end;
 
 procedure TFormConfig.EditVitNomChange(Sender: TObject);
-
var erreur : integer;
+
var erreur,i : integer;
 begin
   if clicliste then exit;
   if affevt then affiche('Evt change vitesse nominale train',clyellow);
@@ -12348,14 +12367,16 @@ begin
   if FormConfig.PageControl.ActivePage=FormConfig.TabSheetTrains then
   with Formconfig do
   begin
-    val(EditVitNom.text,trains[ligneclicTrain+1].vitNominale,erreur);
+    val(EditVitNom.text,i,erreur);
+    if i<1 then exit;
+    trains[ligneclicTrain+1].vitNominale:=i;
     ListBoxTrains.items[ligneclicTrain]:=Train_tablo(ligneclicTrain+1);
     ListBoxTrains.selected[ligneclicTrain]:=true;
   end;
 end;
 
 
procedure TFormConfig.EditVitRalentiChange(Sender: TObject);
-
var erreur : integer;
+
var erreur,i : integer;
 
begin
   if clicliste then exit;
   if affevt then affiche('Evt change vitesse ralenti train',clyellow);
@@ -12363,7 +12384,9 @@ end;
   if FormConfig.PageControl.ActivePage=FormConfig.TabSheetTrains then
   with Formconfig do
   begin
-    val(EditVitRalenti.text,trains[ligneclicTrain+1].vitRalenti,erreur);
+    val(EditVitRalenti.text,i,erreur);
+    if i<1 then exit;
+    trains[ligneclicTrain+1].vitRalenti:=i;
     ListBoxTrains.items[ligneclicTrain]:=Train_tablo(ligneclicTrain+1);
     ListBoxTrains.selected[ligneclicTrain]:=true;
   end;
@@ -12771,16 +12794,16 @@ procedure Tformconfig.modif_editT(Sender : TObject);
 var te : tEdit;
     adr,i,NbVoies,erreur,act,voie,det,numDet :integer;
     ouvre,ferme,v2Valide,v3valide,v4valide,v5valide : boolean;
-    s : string;
+    s,sb : string;
 begin
   if deccourant=0 then exit;
   te:=Sender as Tedit;
   s:=lowercase(te.Name);
+  sb:=te.Text;
 
-  if pos('EditOuvreEcran',s)<>0 then
+  if pos('editouvreecran',s)<>0 then
   begin
-    adr:=extract_int(s);
+    val(sb,i,erreur);
-    val(s,i,erreur);
     if (erreur<>0) or (i<1) then
     begin
       labelInfo.caption:='Erreur écran';
@@ -12791,11 +12814,11 @@ begin
     exit;
   end;
 
-  if pos('tditt',s)<>0 then
+  if pos('editdecalt',s)<>0 then
   begin
     adr:=extract_int(s);
-    val(s,i,erreur);
+    val(sb,i,erreur);
-    if erreur<>0 then
+    if (erreur<>0) or (i<0) then
     begin
       labelInfo.caption:='Erreur adresse';
       exit;
@@ -12809,17 +12832,16 @@ begin
   if pos('editv',s)<>0 then
   begin
     i:=lignecliqueePN+1;
-    voie:=extract_int(s);
+    voie:=extract_int(s);     // numéro de voie modifiée
-    ouvre:=pos('o',s)<>0;
+    ouvre:=pos('o',s)<>0;     // champ ouvre
-    ferme:=pos('f',s)<>0;
+    ferme:=pos('f',s)<>0;     // champ ferme
     if clicliste or (lignecliqueePN<0) then exit;
     if affevt then affiche('Evt EditVXX Change',clyellow);
     if FormConfig.PageControl.ActivePage=FormConfig.TabSheetAct then
     with Formconfig do
     begin
-      s:=te.Text;
+      Val(sb,act,erreur);
-      Val(s,act,erreur);
+      if (erreur<>0) or (act<=0) then
-      if (erreur<>0) then
       begin
         LabelInfo.caption:='Erreur adresse actionneur';
         if ferme then tablo_PN[i].voie[voie].ActFerme:=0;
@@ -12882,7 +12904,7 @@ begin
 
       s:=te.Text;
       Val(s,det,erreur);
-      if (erreur<>0) then
+      if (erreur<>0) or (det<=0) then
       begin
         LabelInfo.caption:='Erreur adresse détecteur';exit
       end else LabelInfo.caption:=' ';
@@ -13092,7 +13114,6 @@ begin
     k:=comBoBoxDec.ItemIndex;
     ComboBoxDec.Items[NbDecodeurdeBase+DecCourant-1]:=s;   // combobox du décodeur, onglet signaux  - change son itemindex
     ComboBoxDec.ItemIndex:=k;
-
     //vérifier si le décodeur est utilisé dans les signaux pour changer son hint
     for i:=1 to NbreSignaux do
     begin
@@ -13102,7 +13123,7 @@ begin
 
   EditNbreAdr.Text:=intToSTR(decodeur_pers[decCourant].NbreAdr);
   //Affiche('Décodeur courant = '+intToSTR(decCourant),clyellow);
-  if it=-1 then maj_decodeurs;
+  maj_decodeurs;
 
 end;
 
@@ -14273,7 +14294,7 @@ begin
 
     if (modele=aig) or (modele=triple) or (modele=crois) then
     begin
-      EditAdrAig.Color:=clWindow;
+      if sombre then editAdrAig.Color:=couleurfond else EditAdrAig.Color:=clWindow;
       LabelInfo.caption:=' ';
       aiguillage[index].adresse:=i;
       aiguillage[index].modifie:=true;

UnitConfigCellTCO.dfm

@@ -301,7 +301,7 @@ object FormConfCellTCO: TFormConfCellTCO
     end
     object GroupBoxAction: TGroupBox
       Left = 16
-      Top = 240
+      Top = 144
       Width = 249
       Height = 129
       Caption = 'Action'
@@ -314,14 +314,14 @@ object FormConfCellTCO: TFormConfCellTCO
       TabOrder = 6
       object Label3: TLabel
         Left = 104
-        Top = 74
+        Top = 73
         Width = 38
         Height = 13
         Caption = 'Adresse'
       end
       object Labela: TLabel
-        Left = 184
+        Left = 192
-        Top = 74
+        Top = 73
         Width = 6
         Height = 13
         Caption = #224
@@ -371,7 +371,7 @@ object FormConfCellTCO: TFormConfCellTCO
         OnClick = RadioButtonActionClick
       end
       object EditAdrSortie: TEdit
-        Left = 144
+        Left = 152
         Top = 70
         Width = 33
         Height = 21
@@ -379,9 +379,9 @@ object FormConfCellTCO: TFormConfCellTCO
         OnChange = EditAdrSortieChange
       end
       object EditEtat: TEdit
-        Left = 200
+        Left = 208
         Top = 70
-        Width = 25
+        Width = 17
         Height = 21
         Hint = '1 ou 2'
         ParentShowHint = False
@@ -389,6 +389,18 @@ object FormConfCellTCO: TFormConfCellTCO
         TabOrder = 6
         OnChange = EditEtatChange
       end
+      object RadioButtonStop: TRadioButton
+        Left = 8
+        Top = 88
+        Width = 177
+        Height = 17
+        Hint = 'Arr'#234'te tous les trains (mode autonome et CDM)'
+        Caption = 'Arr'#234'ter toutes les trains'
+        ParentShowHint = False
+        ShowHint = True
+        TabOrder = 7
+        OnClick = RadioButtonStopClick
+      end
     end
   end
   object CheckPinv: TCheckBox

UnitConfigCellTCO.pas

@@ -42,6 +42,7 @@ type
     EditEtat: TEdit;
     Labela: TLabel;
     RadioButtonV180: TRadioButton;
+    RadioButtonStop: TRadioButton;
     procedure EditAdrElementChange(Sender: TObject);
     procedure EditTexteCCTCOChange(Sender: TObject);
     procedure ButtonFonteClick(Sender: TObject);
@@ -69,6 +70,7 @@ type
     procedure EditEtatChange(Sender: TObject);
     procedure RadioButtonActionClick(Sender: TObject);
     procedure RadioButtonV180Click(Sender: TObject);
+    procedure RadioButtonStopClick(Sender: TObject);
   private
     { Déclarations privées }
   public
@@ -140,6 +142,8 @@ begin
         RadioButtonSC.Checked:=tco[indexTCO,Xclic,Yclic].PiedFeu=2;
         RadioButtonCDM.Checked:=tco[indexTCO,Xclic,Yclic].PiedFeu=3;
         RadioButtonAction.Checked:=tco[indexTCO,Xclic,Yclic].PiedFeu=4;
+        RadioButtonStop.Checked:=tco[indexTCO,Xclic,Yclic].PiedFeu=5;
+
         editNumTCO.Text:=intToSTR(tco[indexTCO,Xclic,Yclic].FeuOriente);
         if RadioButtonAction.Checked then
         begin
@@ -212,36 +216,36 @@ begin
     end;
   end;
 
-    // si voie ou rien ou signal ou quai
+  // si voie ou rien ou signal ou quai
-    if (Bimage=1) or (Bimage=0) or (Bimage=Id_signal) or (Bimage=Id_Quai) then
+  if (Bimage=1) or (Bimage=0) or (Bimage=Id_signal) or (Bimage=Id_Quai) then
+  begin
+    s:=Tco[indexTCO,XclicCell[indexTCO],YclicCell[indexTCO]].Texte;
+    with formTCO[indexTCO] do
     begin
-      s:=Tco[indexTCO,XclicCell[indexTCO],YclicCell[indexTCO]].Texte;
+      EditTexte.Text:=s;
-      with formTCO[indexTCO] do
+      EditTexte.Visible:=true;
-      begin
+      ComboRepr.Enabled:=true;
-        EditTexte.Text:=s;
-        EditTexte.Visible:=true;
-        ComboRepr.Enabled:=true;
-      end;
-    end
-    else
-    begin
-      formTCO[indexTCO].EditTexte.Visible:=false;
-      formTCO[indexTCO].comboRepr.Enabled:=false;
     end;
+  end
+  else
+  begin
+    formTCO[indexTCO].EditTexte.Visible:=false;
+    formTCO[indexTCO].comboRepr.Enabled:=false;
+  end;
 
-    s:=IntToSTR(Xclic)+','+intToSTR(yClic);
+  s:=IntToSTR(Xclic)+','+intToSTR(yClic);
-    FormTCO[indexTCO].GroupBox1.Caption:='Configuration cellule '+s;
+  FormTCO[indexTCO].GroupBox1.Caption:='Configuration cellule '+s;
-    XclicCellInserer:=XclicCell[indexTCO];
+  XclicCellInserer:=XclicCell[indexTCO];
-    YclicCellInserer:=YclicCell[indexTCO];
+  YclicCellInserer:=YclicCell[indexTCO];
-    FormTCO[indexTCO].EditAdrElement.Text:=IntToSTR(tco[indexTCO,XclicCellInserer,YclicCellInserer].Adresse);
+  FormTCO[indexTCO].EditAdrElement.Text:=IntToSTR(tco[indexTCO,XclicCellInserer,YclicCellInserer].Adresse);
-    FormTCO[indexTCO].EdittypeImage.Text:=IntToSTR(BImage);
+  FormTCO[indexTCO].EdittypeImage.Text:=IntToSTR(BImage);
-    FormTCO[indexTCO].ComboRepr.ItemIndex:=tco[indexTCO,XclicCell[indexTCO],YclicCell[indexTCO]].repr;
+  FormTCO[indexTCO].ComboRepr.ItemIndex:=tco[indexTCO,XclicCell[indexTCO],YclicCell[indexTCO]].repr;
-    FormTCO[indexTCO].ShapeCoulFond.Brush.Color:=tco[indexTCO,XclicCell[indexTCO],YclicCell[indexTCO]].CouleurFond;
+  FormTCO[indexTCO].ShapeCoulFond.Brush.Color:=tco[indexTCO,XclicCell[indexTCO],YclicCell[indexTCO]].CouleurFond;
-    FormTCO[indexTCO].CheckPinv.Checked:=tco[indextco,XclicCell[indexTCO],YclicCell[indexTCO]].inverse;
+  FormTCO[indexTCO].CheckPinv.Checked:=tco[indextco,XclicCell[indexTCO],YclicCell[indexTCO]].inverse;
 
-    s:='El='+intToSTR(tco[indexTCO,XclicCell[indexTCO],YclicCell[indexTCO]].BImage);
+  s:='El='+intToSTR(tco[indexTCO,XclicCell[indexTCO],YclicCell[indexTCO]].BImage);
-    if tco[indexTCO,XclicCell[indexTCO],YclicCell[indexTCO]].adresse<>0 then s:=s+' Adr='+intToSTR(tco[indexTCO,XclicCell[indexTCO],YclicCell[indexTCO]].adresse);
+  if tco[indexTCO,XclicCell[indexTCO],YclicCell[indexTCO]].adresse<>0 then s:=s+' Adr='+intToSTR(tco[indexTCO,XclicCell[indexTCO],YclicCell[indexTCO]].adresse);
-    //hint:=s;
+  //hint:=s;
 
 
   if not(ConfCellTCO) then exit;
@@ -682,11 +686,9 @@ begin
   Xclic:=XclicCell[indexTCOCourant];
   Yclic:=YclicCell[indexTCOCourant];
 
-
   //Affiche(IntToSTR(x)+' '+IntToSTR(y),clyellow);
   val(editTypeImage.text,element,erreur);
 
-
   if erreur<>0 then exit;
 
   extrait_connect(element,c1,c2,c3,c4);
@@ -875,6 +877,8 @@ begin
   end;
 end;
 
+
+
 procedure TFormConfCellTCO.EditAdrSortieChange(Sender: TObject);
 var i,erreur : integer;
 begin
@@ -915,9 +919,22 @@ begin
   end;
 end;
 
+procedure TFormConfCellTCO.RadioButtonStopClick(Sender: TObject);
+var x,y : integer;
 begin
+  if clicTCO or actualize then exit;
+  if RadioButtonStop.Checked then
+  begin
+    x:=XClicCell[IndexTCOCourant];
+    y:=yClicCell[IndexTCOCourant];
+    tco[IndexTCOCourant,x,y].PiedFeu:=5;
+    efface_cellule(indexTCOCourant,PCanvasTCO[indexTCOcourant],x,y,pmcopy);
+    affiche_cellule(IndexTCOCourant,x,y);
+    actualise(indexTCOCourant);
+  end;
+end;
 
-
+begin
 end.
 
 

UnitConfigTCO.dfm

@@ -13,12 +13,13 @@ object FormConfigTCO: TFormConfigTCO
   Font.Style = []
   OldCreateOrder = False
   OnActivate = FormActivate
+  OnClose = FormClose
   OnCreate = FormCreate
   PixelsPerInch = 96
   TextHeight = 13
   object LabelErreur: TLabel
-    Left = 16
+    Left = 104
-    Top = 216
+    Top = 384
     Width = 3
     Height = 13
   end
@@ -202,9 +203,28 @@ object FormConfigTCO: TFormConfigTCO
     Top = 384
     Width = 75
     Height = 25
+    Caption = 'OK'
+    Default = True
     TabOrder = 3
     OnClick = BitBtnOkClick
-    Kind = bkOK
+    Glyph.Data = {
+      DE010000424DDE01000000000000760000002800000024000000120000000100
+      0400000000006801000000000000000000001000000000000000000000000000
+      80000080000000808000800000008000800080800000C0C0C000808080000000
+      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
+      3333333333333333333333330000333333333333333333333333F33333333333
+      00003333344333333333333333388F3333333333000033334224333333333333
+      338338F3333333330000333422224333333333333833338F3333333300003342
+      222224333333333383333338F3333333000034222A22224333333338F338F333
+      8F33333300003222A3A2224333333338F3838F338F33333300003A2A333A2224
+      33333338F83338F338F33333000033A33333A222433333338333338F338F3333
+      0000333333333A222433333333333338F338F33300003333333333A222433333
+      333333338F338F33000033333333333A222433333333333338F338F300003333
+      33333333A222433333333333338F338F00003333333333333A22433333333333
+      3338F38F000033333333333333A223333333333333338F830000333333333333
+      333A333333333333333338330000333333333333333333333333333333333333
+      0000}
+    NumGlyphs = 2
   end
   object RadioGroup1: TRadioGroup
     Left = 304

UnitConfigTCO.pas

@@ -80,6 +80,7 @@ type
     procedure RadioButtonCourbesClick(Sender: TObject);
     procedure FormCreate(Sender: TObject);
     procedure TrackBarEpaisseurChange(Sender: TObject);
+    procedure FormClose(Sender: TObject; var Action: TCloseAction);
   private
     { Déclarations privées }
   public
@@ -262,12 +263,18 @@ begin
     end;
 
     val(EditRatio.text,RatioC,erreur);
+    if (ratioC<5) or (ratioC>15) then
+    begin
+      LabelErreur.caption:='Erreur: ratio';
+      ok:=false;
+    end;
 
     AvecGrille[IndexTCO]:=checkDessineGrille.Checked;
     if checkCouleur.checked then ModeCouleurCanton:=1 else ModeCouleurCanton:=0;
 
   end;
   verif_config_TCO:=ok;
+  if ok then formConfigTCO.LabelErreur.caption:='';
   NbCellulesTCO[indexTCO]:=NbreCellX[indexTCO]*NbreCellY[indexTCO];
 end;
 
@@ -444,66 +451,8 @@ begin
 end;
 
 procedure TFormConfigTCO.BitBtnOkClick(Sender: TObject);
-var ok : boolean;
-    i,x,y,erreur : integer;
-    s : string;
 begin
-  ok:=true;
+  close;
-  if verif_config_TCO(indexTCOCourant) then
-  begin
-    with FormTCO[indexTCOCourant].ImageTCO do
-    begin
-      Width:=LargeurCell[indexTCOCourant]*NbreCellX[indexTCOCourant];
-      Height:=HauteurCell[indexTCOCourant]*NbreCellY[indexTCOCourant];
-    end;
-
-    for y:=1 to NbreCellY[indexTCOCourant] do
-      for x:=1 to NbreCellX[indexTCOCourant] do
-        begin
-          if tco[indexTCOCourant,x,y].CouleurFond=0 then tco[indexTCOCourant,x,y].CouleurFond:=clfond[indexTCOCourant];
-        end;
-
-    if RadioButtonLignes.Checked then
-    begin
-      if graphisme=2 then TCO_modifie:=true;
-      graphisme:=1 ;
-    end;
-    if RadioButtonCourbes.Checked then
-    begin
-      if graphisme=1 then TCO_modifie:=true;
-      graphisme:=2;
-    end;
-
-    epaisseur_voies:=trackBarEpaisseur.Position;
-
-    val(editEcran.Text,i,erreur);
-    if i<1 then i:=1;
-    if i<>EcranTCO[indexTCOcourant] then tco_modifie:=true;
-    EcranTCO[indexTCOcourant]:=i;
-    AvecGrille[IndexTCOCourant]:=checkDessineGrille.Checked;
-    if ok then
-    begin
-      for i:=1 to 10 do
-      begin
-        if NomFichierTCO[i]<>stringGridTCO.Cells[1,i] then
-        begin
-          config_modifie:=true;
-          s:=stringGridTCO.Cells[1,i];
-          // on peut vérifier le .cfg mais bon
-          Affiche('Le nom du fichier '+NomFichierTCO[i]+' sera sauvegardé en '+s,clyellow);
-          NomFichierTCO[i]:=s;
-        end
-        else
-        NomFichierTCO[i]:=stringGridTCO.Cells[1,i];
-      end;
-      calcul_cellules(IndexTCOcourant);
-      affiche_TCO(indexTCOcourant);
-
-      dessine_icones(indexTCOCourant);
-      LabelErreur.caption:='';
-      close;
-   end;
-  end;
 end;
 
 procedure TFormConfigTCO.CheckBoxCreerEvtClick(Sender: TObject);
@@ -593,8 +542,68 @@ begin
   TrackBarEpaisseur.Hint:='Epaisseur = '+IntToSTR(i);
 end;
 
+procedure TFormConfigTCO.FormClose(Sender: TObject;var Action: TCloseAction);
+var ok : boolean;
+    i,x,y,erreur : integer;
+    s : string;
+begin
+  ok:=true;
+  if verif_config_TCO(indexTCOCourant) then
+  begin
+    with FormTCO[indexTCOCourant].ImageTCO do
+    begin
+      Width:=LargeurCell[indexTCOCourant]*NbreCellX[indexTCOCourant];
+      Height:=HauteurCell[indexTCOCourant]*NbreCellY[indexTCOCourant];
+    end;
 
+    for y:=1 to NbreCellY[indexTCOCourant] do
+      for x:=1 to NbreCellX[indexTCOCourant] do
+        begin
+          if tco[indexTCOCourant,x,y].CouleurFond=0 then tco[indexTCOCourant,x,y].CouleurFond:=clfond[indexTCOCourant];
+        end;
 
+    if RadioButtonLignes.Checked then
+    begin
+      if graphisme=2 then TCO_modifie:=true;
+      graphisme:=1 ;
+    end;
+    if RadioButtonCourbes.Checked then
+    begin
+      if graphisme=1 then TCO_modifie:=true;
+      graphisme:=2;
+    end;
 
+    epaisseur_voies:=trackBarEpaisseur.Position;
 
+    val(editEcran.Text,i,erreur);
+    if i<1 then i:=1;
+    if i<>EcranTCO[indexTCOcourant] then tco_modifie:=true;
+    EcranTCO[indexTCOcourant]:=i;
+    AvecGrille[IndexTCOCourant]:=checkDessineGrille.Checked;
+    if ok then
+    begin
+      for i:=1 to 10 do
+      begin
+        if NomFichierTCO[i]<>stringGridTCO.Cells[1,i] then
+        begin
+          config_modifie:=true;
+          s:=stringGridTCO.Cells[1,i];
+          // on peut vérifier le .cfg mais bon
+          Affiche('Le nom du fichier '+NomFichierTCO[i]+' sera sauvegardé en '+s,clyellow);
+          NomFichierTCO[i]:=s;
+        end
+        else
+        NomFichierTCO[i]:=stringGridTCO.Cells[1,i];
+      end;
+      menu_tco(nbreTCO);
+      calcul_cellules(IndexTCOcourant);
+      affiche_TCO(indexTCOcourant);
+      dessine_icones(indexTCOCourant);
+      LabelErreur.caption:='';
+    end;
+  end
+  else action:=tCloseAction(caNone);  // si la config est nok, on ferme pas la fenetre
+end;
+
+begin
 end.

UnitDebug.dfm

@@ -4,6 +4,7 @@ object FormDebug: TFormDebug
   Width = 884
   Height = 732
   VertScrollBar.Increment = 67
+  VertScrollBar.Position = 17
   VertScrollBar.Tracking = True
   Caption = 'Fen'#234'tre de d'#233'bug'
   Color = clWindow
@@ -20,13 +21,13 @@ object FormDebug: TFormDebug
   OnCreate = FormCreate
   OnKeyPress = FormKeyPress
   DesignSize = (
-    851
+    859
-    693)
+    701)
   PixelsPerInch = 96
   TextHeight = 13
   object Label1: TLabel
     Left = 615
-    Top = 4
+    Top = -13
     Width = 108
     Height = 13
     Anchors = [akTop, akRight]
@@ -42,7 +43,7 @@ object FormDebug: TFormDebug
   end
   object LabelTitreDebug: TLabel
     Left = 463
-    Top = 2
+    Top = -15
     Width = 131
     Height = 18
     Anchors = [akTop, akRight]
@@ -56,7 +57,7 @@ object FormDebug: TFormDebug
   end
   object EditNivDebug: TEdit
     Left = 774
-    Top = 2
+    Top = -15
     Width = 49
     Height = 21
     Anchors = [akTop, akRight]
@@ -72,7 +73,7 @@ object FormDebug: TFormDebug
   end
   object ButtonEcrLog: TButton
     Left = 462
-    Top = 328
+    Top = 311
     Width = 97
     Height = 29
     Anchors = [akTop, akRight]
@@ -82,7 +83,7 @@ object FormDebug: TFormDebug
   end
   object ButtonRazTampon: TButton
     Left = 462
-    Top = 360
+    Top = 343
     Width = 97
     Height = 33
     Anchors = [akTop, akRight]
@@ -93,7 +94,7 @@ object FormDebug: TFormDebug
   end
   object ButtonCherche: TButton
     Left = 462
-    Top = 296
+    Top = 279
     Width = 97
     Height = 25
     Hint = 'Cherche la cha'#238'ne "erreur"'
@@ -106,7 +107,7 @@ object FormDebug: TFormDebug
   end
   object ButtonAffEvtChrono: TButton
     Left = 462
-    Top = 256
+    Top = 239
     Width = 97
     Height = 33
     Anchors = [akTop, akRight]
@@ -117,7 +118,7 @@ object FormDebug: TFormDebug
   end
   object ButtonCop: TButton
     Left = 462
-    Top = 208
+    Top = 191
     Width = 97
     Height = 41
     Anchors = [akTop, akRight]
@@ -134,7 +135,7 @@ object FormDebug: TFormDebug
   end
   object ButtonRazLog: TButton
     Left = 462
-    Top = 400
+    Top = 383
     Width = 97
     Height = 33
     Anchors = [akTop, akRight]
@@ -145,7 +146,7 @@ object FormDebug: TFormDebug
   end
   object GroupBox1: TGroupBox
     Left = 468
-    Top = 600
+    Top = 583
     Width = 369
     Height = 185
     Anchors = [akTop, akRight]
@@ -295,7 +296,7 @@ object FormDebug: TFormDebug
   end
   object GroupBox2: TGroupBox
     Left = 460
-    Top = 20
+    Top = 3
     Width = 384
     Height = 149
     Anchors = [akTop, akRight]
@@ -508,7 +509,7 @@ object FormDebug: TFormDebug
   end
   object RichDebug: TRichEdit
     Left = 8
-    Top = 8
+    Top = -9
     Width = 445
     Height = 685
     Anchors = [akLeft, akTop, akRight, akBottom]
@@ -521,7 +522,7 @@ object FormDebug: TFormDebug
   end
   object GroupBox5: TGroupBox
     Left = 468
-    Top = 488
+    Top = 471
     Width = 372
     Height = 57
     Anchors = [akTop, akRight]
@@ -588,7 +589,7 @@ object FormDebug: TFormDebug
   end
   object ButtonRazTout: TButton
     Left = 463
-    Top = 176
+    Top = 159
     Width = 97
     Height = 25
     Hint = 
@@ -603,7 +604,7 @@ object FormDebug: TFormDebug
   end
   object GroupBox6: TGroupBox
     Left = 468
-    Top = 552
+    Top = 535
     Width = 372
     Height = 41
     Anchors = [akTop, akRight]
@@ -680,7 +681,7 @@ object FormDebug: TFormDebug
   end
   object MemoEvtDet: TRichEdit
     Left = 565
-    Top = 174
+    Top = 157
     Width = 280
     Height = 307
     Anchors = [akTop, akRight]

UnitDebug.pas

@@ -206,7 +206,10 @@ begin
   compt_erreur:=0;
   LigneErreur:=0;
   if debug=1 then Affiche('Fin création fenêtre debug',clLime);
-
+  // && débug=====================
+  //CheckBoxEvtDetAig.Checked:=true;
+  //CheckTrame.checked:=true;
+  // fin debug====================
   couleurs_debug;
 end;
 
@@ -377,8 +380,7 @@ begin
   ancdebug:=NivDebug;
   NivDebug:=3;
   Val(EditSigSuiv.Text,adr,erreur);
-  if erreur<>0 then exit;
+  if (erreur<>0) and (adr>0) then etat_signal_suivant(Adr,1,AdrSigSuivant) ;
-  etat_signal_suivant(Adr,1,AdrSigSuivant) ;
   NivDebug:=AncDebug;
 end;
 
@@ -394,8 +396,10 @@ begin
   if (s1='') or (s2='') then exit;
   if s1[1]='A' then begin type1:=aig;delete(s1,1,1);end else type1:=det;
   if s2[1]='A' then begin type2:=aig;delete(s2,1,1);end else type2:=det;
-  Val(s1,prec,erreur); if erreur<>0 then exit;
+  Val(s1,prec,erreur);
-  Val(s2,Actuel,erreur); if erreur<>0 then exit;
+  if (erreur<>0) or (prec<1) then exit;
+  Val(s2,Actuel,erreur);
+  if (erreur<>0) or (actuel<1) then exit;
   Adr:=detecteur_suivant_El(prec,type1,actuel,type2,1);
   if Adr<9996 then AfficheDebug('Le détecteur suivant aux éléments '+IntToSTR(prec)+'/'+IntToSTR(actuel)+' est '+IntToSTR(Adr),clyellow)
   else AfficheDebug('Pas trouvé de détecteur suvant aux éléments '+IntToSTR(prec)+'/'+IntToSTR(actuel),clyellow); 
@@ -407,7 +411,8 @@ var Adr,erreur,ancdebug : integer ;
 begin
   ancdebug:=NivDebug;
   NivDebug:=3;
-  Val(EditSigSuiv.Text,Adr,erreur); if erreur<>0 then exit;
+  Val(EditSigSuiv.Text,Adr,erreur);
+  if (erreur=0) or (adr<1) then exit;
   if test_memoire_zones(Adr) then AfficheDebug('Présence train',clYellow) else
     AfficheDebug('Absence train',clyellow);
   NivDebug:=AncDebug;
@@ -417,7 +422,8 @@ end;
 procedure TFormDebug.ButtonCPClick(Sender: TObject);
 var Adr,erreur,ancdebug,adrtrain,voie : integer ;
 begin
-  Val(EditSigSuiv.Text,Adr,erreur); if erreur<>0 then exit;
+  Val(EditSigSuiv.Text,Adr,erreur);
+  if (erreur<>0) or (adr<1) then exit;
   ancdebug:=NivDebug;
   NivDebug:=3;
   if PresTrainPrec(Adr,Nb_cantons_Sig,false,voie,adrtrain) then AfficheDebug('Présence train '+intToSTR(AdrTrain),clYellow) else
@@ -429,7 +435,8 @@ procedure TFormDebug.Button2Click(Sender: TObject);
 var Adr,erreur,ancdebug,train : integer ;
     reservetraintiers : boolean;
 begin
-  Val(EditSigSuiv.Text,Adr,erreur); if erreur<>0 then exit;
+  Val(EditSigSuiv.Text,Adr,erreur);
+  if (erreur<>0) or (Adr<1) then exit;
   ancdebug:=NivDebug;
   NivDebug:=3;
   Cond_Carre(Adr);
@@ -454,28 +461,28 @@ procedure TFormDebug.ButtonSimuDet0Click(Sender: TObject);
 var det,erreur : integer;
 begin
   val(EditSimuDet.Text,det,erreur);
-  if erreur=0 then Event_Detecteur(det,false,'');
+  if (erreur=0) and (det>0) then Event_Detecteur(det,false,'');
 end;
 
 procedure TFormDebug.ButtonSimuDet1Click(Sender: TObject);
 var det,erreur : integer;
 begin
   val(EditSimuDet.Text,det,erreur);
-  if erreur=0 then Event_Detecteur(det,true,'');
+  if (erreur=0) and (det>0) then Event_Detecteur(det,true,'');
 end;
 
 procedure TFormDebug.ButtonSimuAct1Click(Sender: TObject);
 var det,erreur : integer;
 begin
   val(EditSimuDet.Text,det,erreur);
-  if erreur=0 then Event_Act(det,0,1,'');
+  if (erreur=0) and (det>0) then Event_Act(det,0,1,'');
 end;
 
 procedure TFormDebug.ButtonSimuAct0Click(Sender: TObject);
 var det,erreur : integer;
 begin
   val(EditSimuDet.Text,det,erreur);
-  if erreur=0 then Event_Act(det,0,0,'');
+  if (erreur=0) and (det>0)  then Event_Act(det,0,0,'');
 end;
 
 procedure TFormDebug.ButtonRazToutClick(Sender: TObject);
@@ -512,8 +519,10 @@ begin
   if (s1='') or (s2='') then exit;
   if s1[1]='A' then begin type1:=aig;delete(s1,1,1);end else type1:=det;
   if s2[1]='A' then begin type2:=aig;delete(s2,1,1);end else type2:=det;
-  Val(s1,prec,erreur); if erreur<>0 then exit;
+  Val(s1,prec,erreur);
-  Val(s2,Actuel,erreur); if erreur<>0 then exit;
+  if (erreur<>0) or (prec<1) then exit;
+  Val(s2,Actuel,erreur);
+  if (erreur<>0) or (actuel<1) then exit;
   Adr:=suivant_Alg3(prec,type1,actuel,type2,1);
   if Adr<9995 then
   begin

UnitPrinc.dfm

@@ -1,10 +1,11 @@
 object FormPrinc: TFormPrinc
-  Left = 114
+  Left = 27
-  Top = 237
+  Top = 202
-  Width = 1149
-  Height = 699
   Anchors = [akLeft, akTop, akRight]
+  BorderStyle = bsSingle
   Caption = 'Signaux complexes'
+  ClientHeight = 648
+  ClientWidth = 1133
   Color = clBtnFace
   Font.Charset = DEFAULT_CHARSET
   Font.Color = clWindowText
@@ -13,18 +14,20 @@ object FormPrinc: TFormPrinc
   Font.Style = []
   Menu = MainMenu1
   OldCreateOrder = False
+  Position = poDefault
   Scaled = False
+  Visible = True
   OnClose = FormClose
   OnCreate = FormCreate
   OnResize = FormResize
   DesignSize = (
-    1141
+    1133
     648)
   PixelsPerInch = 96
   TextHeight = 13
   object LabelTitre: TLabel
     Left = 8
-    Top = 2
+    Top = 10
     Width = 173
     Height = 18
     Caption = 'Signaux complexes GL'
@@ -37,7 +40,7 @@ object FormPrinc: TFormPrinc
   end
   object Image9feux: TImage
     Left = 1064
-    Top = 0
+    Top = 8
     Width = 57
     Height = 105
     Picture.Data = {
@@ -227,7 +230,7 @@ object FormPrinc: TFormPrinc
   end
   object Image7feux: TImage
     Left = 440
-    Top = 0
+    Top = 8
     Width = 57
     Height = 105
     Picture.Data = {
@@ -395,7 +398,7 @@ object FormPrinc: TFormPrinc
   end
   object Image5feux: TImage
     Left = 728
-    Top = -8
+    Top = 0
     Width = 41
     Height = 89
     Picture.Data = {
@@ -495,7 +498,7 @@ object FormPrinc: TFormPrinc
   end
   object Image4feux: TImage
     Left = 704
-    Top = 0
+    Top = 8
     Width = 41
     Height = 97
     Picture.Data = {
@@ -587,7 +590,7 @@ object FormPrinc: TFormPrinc
   end
   object Image3feux: TImage
     Left = 600
-    Top = 8
+    Top = 16
     Width = 33
     Height = 57
     Picture.Data = {
@@ -668,7 +671,7 @@ object FormPrinc: TFormPrinc
   end
   object Image2feux: TImage
     Left = 1064
-    Top = 104
+    Top = 112
     Width = 33
     Height = 57
     Picture.Data = {
@@ -742,7 +745,7 @@ object FormPrinc: TFormPrinc
   end
   object Image2Dir: TImage
     Left = 656
-    Top = 0
+    Top = 8
     Width = 41
     Height = 25
     Picture.Data = {
@@ -817,7 +820,7 @@ object FormPrinc: TFormPrinc
   end
   object Image3Dir: TImage
     Left = 848
-    Top = 0
+    Top = 8
     Width = 49
     Height = 25
     Picture.Data = {
@@ -895,7 +898,7 @@ object FormPrinc: TFormPrinc
   end
   object Image4Dir: TImage
     Left = 792
-    Top = 0
+    Top = 8
     Width = 57
     Height = 25
     Picture.Data = {
@@ -983,7 +986,7 @@ object FormPrinc: TFormPrinc
   end
   object Image5Dir: TImage
     Left = 880
-    Top = 0
+    Top = 8
     Width = 65
     Height = 25
     Picture.Data = {
@@ -1081,7 +1084,7 @@ object FormPrinc: TFormPrinc
   end
   object Image6Dir: TImage
     Left = 960
-    Top = 0
+    Top = 8
     Width = 81
     Height = 25
     Picture.Data = {
@@ -1189,7 +1192,7 @@ object FormPrinc: TFormPrinc
   end
   object ImageSignal20: TImage
     Left = 1048
-    Top = 416
+    Top = 424
     Width = 57
     Height = 105
     Picture.Data = {
@@ -1429,7 +1432,7 @@ object FormPrinc: TFormPrinc
   object StatusBar1: TStatusBar
     Left = 0
     Top = 626
-    Width = 1141
+    Width = 1133
     Height = 22
     Panels = <
       item
@@ -1457,7 +1460,7 @@ object FormPrinc: TFormPrinc
   end
   object MSCommUSBInterface: TMSComm
     Left = 1064
-    Top = 192
+    Top = 200
     Width = 32
     Height = 32
     OnComm = MSCommUSBInterfaceComm
@@ -1467,7 +1470,7 @@ object FormPrinc: TFormPrinc
   end
   object Button1: TButton
     Left = 744
-    Top = 8
+    Top = 16
     Width = 75
     Height = 25
     Anchors = [akTop, akRight]
@@ -1478,7 +1481,7 @@ object FormPrinc: TFormPrinc
   end
   object GrandPanel: TPanel
     Left = 8
-    Top = 48
+    Top = 56
     Width = 1057
     Height = 476
     TabOrder = 3
@@ -1518,7 +1521,7 @@ object FormPrinc: TFormPrinc
       OnChange = FenRichChange
       OnMouseDown = FenRichMouseDown
     end
-    object ScrollBox1: TScrollBox
+    object ScrollBoxSig: TScrollBox
       Left = 536
       Top = 176
       Width = 465
@@ -1532,7 +1535,7 @@ object FormPrinc: TFormPrinc
       ParentColor = False
       TabOrder = 1
     end
-    object GroupBox1: TGroupBox
+    object GroupBoxAcc: TGroupBox
       Left = 497
       Top = 21
       Width = 265
@@ -1589,7 +1592,7 @@ object FormPrinc: TFormPrinc
         OnClick = ButtonDevieClick
       end
     end
-    object GroupBox3: TGroupBox
+    object GroupBoxTrains: TGroupBox
       Left = 497
       Top = 64
       Width = 265
@@ -1967,7 +1970,7 @@ object FormPrinc: TFormPrinc
         Text = '<1>'
       end
       object ButtonEnv: TButton
-        Left = 0
+        Left = 8
         Top = 88
         Width = 88
         Height = 33
@@ -1978,9 +1981,9 @@ object FormPrinc: TFormPrinc
         OnClick = ButtonEnvClick
       end
     end
-    object GroupBox2: TGroupBox
+    object GroupBoxCV: TGroupBox
-      Left = 721
+      Left = 481
-      Top = 56
+      Top = -8
       Width = 265
       Height = 129
       Anchors = [akTop, akRight]
@@ -2043,7 +2046,7 @@ object FormPrinc: TFormPrinc
   end
   object MSCommCde1: TMSComm
     Left = 1064
-    Top = 272
+    Top = 280
     Width = 32
     Height = 32
     OnComm = MSCommCde1Comm
@@ -2053,7 +2056,7 @@ object FormPrinc: TFormPrinc
   end
   object MSCommCde2: TMSComm
     Left = 1064
-    Top = 304
+    Top = 312
     Width = 32
     Height = 32
     OnComm = MSCommCde2Comm

UnitSR.dfm

@@ -3,7 +3,7 @@ object FormSR: TFormSR
   Top = 73
   BorderStyle = bsDialog
   Caption = 'Configuration du d'#233'codeur du signal St'#233'phane Ravaut'
-  ClientHeight = 562
+  ClientHeight = 540
   ClientWidth = 475
   Color = clBtnFace
   Font.Charset = DEFAULT_CHARSET
@@ -18,21 +18,21 @@ object FormSR: TFormSR
   TextHeight = 13
   object LabelAdrSR1: TLabel
     Left = 24
-    Top = 64
+    Top = 72
     Width = 63
     Height = 13
     Caption = 'LabelAdrSR1'
   end
   object Label1: TLabel
     Left = 120
-    Top = 48
+    Top = 56
     Width = 15
     Height = 13
     Caption = '+ 2'
   end
   object Label2: TLabel
     Left = 120
-    Top = 72
+    Top = 80
     Width = 12
     Height = 13
     Caption = '- 1'
@@ -78,33 +78,33 @@ object FormSR: TFormSR
   end
   object Shape1: TShape
     Left = 16
-    Top = 96
+    Top = 104
     Width = 409
     Height = 1
   end
   object LabelAdrSR2: TLabel
     Left = 24
-    Top = 120
+    Top = 128
     Width = 63
     Height = 13
     Caption = 'LabelAdrSR2'
   end
   object Label7: TLabel
     Left = 120
-    Top = 104
+    Top = 112
     Width = 15
     Height = 13
     Caption = '+ 2'
   end
   object Label8: TLabel
     Left = 120
-    Top = 128
+    Top = 136
     Width = 12
     Height = 13
     Caption = '- 1'
   end
   object Label6: TLabel
-    Left = 336
+    Left = 344
     Top = 24
     Width = 21
     Height = 16
@@ -118,56 +118,56 @@ object FormSR: TFormSR
   end
   object LabelCV1: TLabel
     Left = 320
-    Top = 48
+    Top = 56
     Width = 20
     Height = 13
     Caption = 'CV='
   end
   object LabelCV2: TLabel
     Left = 384
-    Top = 48
+    Top = 56
     Width = 20
     Height = 13
     Caption = 'CV='
   end
   object LabelCV3: TLabel
     Left = 320
-    Top = 72
+    Top = 80
     Width = 20
     Height = 13
     Caption = 'CV='
   end
   object LabelCV4: TLabel
     Left = 384
-    Top = 72
+    Top = 80
     Width = 20
     Height = 13
     Caption = 'CV='
   end
   object LabelCV5: TLabel
     Left = 320
-    Top = 110
+    Top = 118
     Width = 20
     Height = 13
     Caption = 'CV='
   end
   object LabelCV6: TLabel
     Left = 384
-    Top = 110
+    Top = 118
     Width = 20
     Height = 13
     Caption = 'CV='
   end
   object LabelCV7: TLabel
     Left = 320
-    Top = 134
+    Top = 142
     Width = 20
     Height = 13
     Caption = 'CV='
   end
   object LabelCV8: TLabel
     Left = 384
-    Top = 134
+    Top = 142
     Width = 20
     Height = 13
     Caption = 'CV='
@@ -449,55 +449,55 @@ object FormSR: TFormSR
   end
   object Shape7: TShape
     Left = 16
-    Top = 448
+    Top = 440
     Width = 409
     Height = 1
   end
   object LabelAdrSR8: TLabel
     Left = 24
-    Top = 472
+    Top = 464
     Width = 63
     Height = 13
     Caption = 'LabelAdrSR2'
   end
   object Label20: TLabel
     Left = 120
-    Top = 456
+    Top = 448
     Width = 15
     Height = 13
     Caption = '+ 2'
   end
   object Label21: TLabel
     Left = 120
-    Top = 480
+    Top = 472
     Width = 12
     Height = 13
     Caption = '- 1'
   end
   object LabelCV29: TLabel
     Left = 320
-    Top = 460
+    Top = 452
     Width = 20
     Height = 13
     Caption = 'CV='
   end
   object LabelCV30: TLabel
     Left = 384
-    Top = 460
+    Top = 452
     Width = 20
     Height = 13
     Caption = 'CV='
   end
   object LabelCV31: TLabel
     Left = 320
-    Top = 484
+    Top = 476
     Width = 20
     Height = 13
     Caption = 'CV='
   end
   object LabelCV32: TLabel
     Left = 384
-    Top = 484
+    Top = 476
     Width = 20
     Height = 13
     Caption = 'CV='
@@ -511,7 +511,7 @@ object FormSR: TFormSR
   end
   object ComboBoxAdr1: TComboBox
     Left = 160
-    Top = 48
+    Top = 56
     Width = 145
     Height = 21
     Style = csDropDownList
@@ -521,7 +521,7 @@ object FormSR: TFormSR
   end
   object ComboBoxAdr2: TComboBox
     Left = 160
-    Top = 72
+    Top = 80
     Width = 145
     Height = 21
     Style = csDropDownList
@@ -531,7 +531,7 @@ object FormSR: TFormSR
   end
   object ComboBoxAdr3: TComboBox
     Left = 160
-    Top = 104
+    Top = 112
     Width = 145
     Height = 21
     Style = csDropDownList
@@ -541,7 +541,7 @@ object FormSR: TFormSR
   end
   object ComboBoxAdr4: TComboBox
     Left = 160
-    Top = 128
+    Top = 136
     Width = 145
     Height = 21
     Style = csDropDownList
@@ -651,7 +651,7 @@ object FormSR: TFormSR
   end
   object ComboBoxAdr15: TComboBox
     Left = 160
-    Top = 456
+    Top = 448
     Width = 145
     Height = 21
     Style = csDropDownList
@@ -661,7 +661,7 @@ object FormSR: TFormSR
   end
   object ComboBoxAdr16: TComboBox
     Left = 160
-    Top = 480
+    Top = 472
     Width = 145
     Height = 21
     Style = csDropDownList
@@ -670,8 +670,8 @@ object FormSR: TFormSR
     OnChange = ComboBoxAdr16Change
   end
   object BitBtnok: TBitBtn
-    Left = 16
+    Left = 24
-    Top = 520
+    Top = 504
     Width = 75
     Height = 25
     TabOrder = 16

UnitTCO.dfm

@@ -1,8 +1,8 @@
 object FormTCO: TFormTCO
-  Left = 73
+  Left = 114
-  Top = 79
+  Top = 116
-  Width = 1212
+  Width = 1218
-  Height = 661
+  Height = 594
   VertScrollBar.Visible = False
   Caption = 'c'
   Color = clBtnFace
@@ -24,13 +24,13 @@ object FormTCO: TFormTCO
   OnKeyPress = FormKeyPress
   OnMouseWheel = FormMouseWheel
   DesignSize = (
-    1196
+    1210
-    602)
+    543)
   PixelsPerInch = 96
   TextHeight = 13
   object LabelZoom: TLabel
-    Left = 1167
+    Left = 1168
-    Top = 3
+    Top = 0
     Width = 32
     Height = 13
     Anchors = [akTop, akRight]
@@ -43,24 +43,24 @@ object FormTCO: TFormTCO
     ParentFont = False
   end
   object ImageTemp: TImage
-    Left = 1020
+    Left = 1021
-    Top = 3
+    Top = 0
     Width = 121
     Height = 121
     Anchors = [akTop, akRight]
   end
   object ImageTemp2: TImage
-    Left = 1019
+    Left = 1020
-    Top = 132
+    Top = 129
     Width = 121
     Height = 121
     Anchors = [akTop, akRight]
   end
   object ScrollBox: TScrollBox
-    Left = 10
+    Left = 8
-    Top = 15
+    Top = 12
-    Width = 687
+    Width = 690
-    Height = 410
+    Height = 347
     HorzScrollBar.Smooth = True
     HorzScrollBar.Tracking = True
     VertScrollBar.Smooth = True
@@ -71,13 +71,13 @@ object FormTCO: TFormTCO
     ParentColor = False
     TabOrder = 1
     DesignSize = (
-      683
+      686
-      406)
+      343)
     object ImageTCO: TImage
       Left = 120
       Top = 41
-      Width = 486
+      Width = 489
-      Height = 320
+      Height = 257
       Anchors = [akLeft, akTop, akRight, akBottom]
       AutoSize = True
       ParentShowHint = False
@@ -91,8 +91,8 @@ object FormTCO: TFormTCO
     end
   end
   object TrackBarZoom: TTrackBar
-    Left = 1157
+    Left = 1166
-    Top = 18
+    Top = 15
     Width = 41
     Height = 311
     Anchors = [akTop, akRight]
@@ -108,9 +108,9 @@ object FormTCO: TFormTCO
     OnChange = TrackBarZoomChange
   end
   object PanelBas: TPanel
-    Left = 2
+    Left = 0
-    Top = 461
+    Top = 395
-    Width = 1199
+    Width = 1202
     Height = 140
     Anchors = [akLeft, akRight, akBottom]
     Color = clActiveBorder
@@ -123,7 +123,7 @@ object FormTCO: TFormTCO
     TabOrder = 2
     OnDragOver = PanelBasDragOver
     DesignSize = (
-      1199
+      1202
       140)
     object Label1: TLabel
       Left = 240
@@ -906,7 +906,7 @@ object FormTCO: TFormTCO
       ParentFont = False
     end
     object ButtonSauveTCO: TButton
-      Left = 1090
+      Left = 1093
       Top = 8
       Width = 96
       Height = 33
@@ -918,7 +918,7 @@ object FormTCO: TFormTCO
       OnClick = ButtonSauveTCOClick
     end
     object ButtonConfigTCO: TButton
-      Left = 1090
+      Left = 1093
       Top = 48
       Width = 96
       Height = 33
@@ -929,7 +929,7 @@ object FormTCO: TFormTCO
       OnClick = ButtonConfigTCOClick
     end
     object ButtonSimu: TButton
-      Left = 878
+      Left = 881
       Top = 80
       Width = 113
       Height = 25
@@ -939,18 +939,6 @@ object FormTCO: TFormTCO
       TabStop = False
       OnClick = ButtonSimuClick
     end
-    object ButtonMasquer: TButton
-      Left = 1090
-      Top = 88
-      Width = 96
-      Height = 33
-      Anchors = [akTop, akRight]
-      Caption = 'Masquer bandeau'
-      TabOrder = 3
-      TabStop = False
-      WordWrap = True
-      OnClick = ButtonMasquerClick
-    end
     object GroupBox1: TGroupBox
       Left = 8
       Top = 3
@@ -963,7 +951,7 @@ object FormTCO: TFormTCO
       Font.Name = 'Arial Narrow'
       Font.Style = []
       ParentFont = False
-      TabOrder = 4
+      TabOrder = 3
       object Label41: TLabel
         Left = 72
         Top = 18
@@ -1134,30 +1122,30 @@ object FormTCO: TFormTCO
       end
     end
     object buttonRaz: TButton
-      Left = 987
+      Left = 1094
       Top = 88
       Width = 97
       Height = 33
       Anchors = [akTop, akRight]
       Caption = 'Raz des occupations'
-      TabOrder = 5
+      TabOrder = 4
       TabStop = False
       WordWrap = True
       OnClick = buttonRazClick
     end
     object ButtonCalibrage: TButton
-      Left = 918
+      Left = 921
       Top = 56
       Width = 75
       Height = 25
       Anchors = [akTop, akRight]
       Caption = 'Calibrage'
-      TabOrder = 6
+      TabOrder = 5
       TabStop = False
       OnClick = ButtonCalibrageClick
     end
     object ButtonDessiner: TButton
-      Left = 987
+      Left = 990
       Top = 48
       Width = 97
       Height = 33
@@ -1168,24 +1156,24 @@ object FormTCO: TFormTCO
       Caption = 'Dessiner le TCO'
       ParentShowHint = False
       ShowHint = True
-      TabOrder = 7
+      TabOrder = 6
       TabStop = False
       OnClick = ButtonDessinerClick
     end
     object ButtonAffSC: TButton
-      Left = 987
+      Left = 990
       Top = 8
       Width = 97
       Height = 33
       Anchors = [akTop, akRight]
       Caption = 'Afficher Signaux Complexes'
-      TabOrder = 8
+      TabOrder = 7
       TabStop = False
       WordWrap = True
       OnClick = ButtonAffSCClick
     end
     object RadioGroupSel: TRadioGroup
-      Left = 839
+      Left = 842
       Top = 8
       Width = 138
       Height = 49
@@ -1200,7 +1188,7 @@ object FormTCO: TFormTCO
         'Cellules s'#233'lectionn'#233'es'
         'fen'#234'tre d'#233'pla'#231'able')
       ParentFont = False
-      TabOrder = 9
+      TabOrder = 8
       OnClick = RadioGroupSelClick
     end
   end

Unitplace.pas

@@ -239,7 +239,11 @@ procedure TFormPlace.Edit1Change(Sender: TObject);
 var i,erreur : integer;
 begin
   val(edit1.Text,i,erreur);
-  if erreur<>0 then exit;
+  if (erreur<>0) or (i<0) then
+  begin
+    LabelTexte.caption:='Erreur détecteur 1';
+    exit;
+  end;
   if index_adresse_detecteur(i)=0 then
   begin
     LabelTexte.caption:='Détecteur '+intToSTR(i)+' inexistant';
@@ -254,7 +258,11 @@ procedure TFormPlace.Edit2Change(Sender: TObject);
 var i,erreur : integer;
 begin
   val(edit2.Text,i,erreur);
-  if erreur<>0 then exit;
+  if (erreur<>0) or (i<0) then
+  begin
+    LabelTexte.caption:='Erreur détecteur 2';
+    exit;
+  end;
   if index_adresse_detecteur(i)=0 then
   begin
     LabelTexte.caption:='Détecteur '+intToSTR(i)+' inexistant';
@@ -269,7 +277,11 @@ procedure TFormPlace.Edit3Change(Sender: TObject);
 var i,erreur : integer;
 begin
   val(edit3.Text,i,erreur);
-  if erreur<>0 then exit;
+  if (erreur<>0) or (i<0) then
+  begin
+    LabelTexte.caption:='Erreur détecteur 3';
+    exit;
+  end;
   if index_adresse_detecteur(i)=0 then
   begin
     LabelTexte.caption:='Détecteur '+intToSTR(i)+' inexistant';
@@ -284,7 +296,11 @@ procedure TFormPlace.Edit4Change(Sender: TObject);
 var i,erreur : integer;
 begin
   val(edit4.Text,i,erreur);
-  if erreur<>0 then exit;
+  if (erreur<>0) or (i<0) then
+  begin
+    LabelTexte.caption:='Erreur détecteur 4';
+    exit;
+  end;
   if index_adresse_detecteur(i)=0 then
   begin
     LabelTexte.caption:='Détecteur '+intToSTR(i)+' inexistant';
@@ -299,7 +315,11 @@ procedure TFormPlace.Edit5Change(Sender: TObject);
 var i,erreur : integer;
 begin
   val(edit5.Text,i,erreur);
-  if erreur<>0 then exit;
+  if (erreur<>0) or (i<0) then
+  begin
+    LabelTexte.caption:='Erreur détecteur 5';
+    exit;
+  end;
   if index_adresse_detecteur(i)=0 then
   begin
     LabelTexte.caption:='Détecteur '+intToSTR(i)+' inexistant';
@@ -314,7 +334,11 @@ procedure TFormPlace.Edit6Change(Sender: TObject);
 var i,erreur : integer;
 begin
   val(edit6.Text,i,erreur);
-  if erreur<>0 then exit;
+  if (erreur<>0) or (i<0) then
+  begin
+    LabelTexte.caption:='Erreur détecteur 6';
+    exit;
+  end;
   if index_adresse_detecteur(i)=0 then
   begin
     LabelTexte.caption:='Détecteur '+intToSTR(i)+' inexistant';
@@ -449,7 +473,7 @@ procedure TFormPlace.EditDir1Change(Sender: TObject);
 var i,erreur : integer;
 begin
   val(editDir1.Text,i,erreur);
-  if erreur<>0 then exit;
+  if (erreur<>0) or (i<0) then exit;
   if index_adresse_detecteur(i)=0 then
   begin
     LabelTexte.caption:='Détecteur '+intToSTR(i)+' inexistant';
@@ -463,7 +487,7 @@ procedure TFormPlace.EditDir2Change(Sender: TObject);
 var i,erreur : integer;
 begin
   val(editDir2.Text,i,erreur);
-  if erreur<>0 then exit;
+  if (erreur<>0) or (i<0) then exit;
   if index_adresse_detecteur(i)=0 then
   begin
     LabelTexte.caption:='Détecteur '+intToSTR(i)+' inexistant';
@@ -477,7 +501,7 @@ procedure TFormPlace.EditDir3Change(Sender: TObject);
 var i,erreur : integer;
 begin
   val(editDir3.Text,i,erreur);
-  if erreur<>0 then exit;
+  if (erreur<>0) or (i<0) then exit;
   if index_adresse_detecteur(i)=0 then
   begin
     LabelTexte.caption:='Détecteur '+intToSTR(i)+' inexistant';
@@ -487,13 +511,11 @@ begin
   placement[3].detdir:=i;
 end;
 
-
-
 procedure TFormPlace.EditDir4Change(Sender: TObject);
 var i,erreur : integer;
 begin
   val(editDir4.Text,i,erreur);
-  if erreur<>0 then exit;
+  if (erreur<>0) or (i<0) then exit;
   if index_adresse_detecteur(i)=0 then
   begin
     LabelTexte.caption:='Détecteur '+intToSTR(i)+' inexistant';
@@ -507,7 +529,7 @@ procedure TFormPlace.EditDir5Change(Sender: TObject);
 var i,erreur : integer;
 begin
   val(editDir5.Text,i,erreur);
-  if erreur<>0 then exit;
+  if (erreur<>0) or (i<0) then exit;
   if index_adresse_detecteur(i)=0 then
   begin
     LabelTexte.caption:='Détecteur '+intToSTR(i)+' inexistant';
@@ -521,7 +543,7 @@ procedure TFormPlace.EditDir6Change(Sender: TObject);
 var i,erreur : integer;
 begin
   val(editDir6.Text,i,erreur);
-  if erreur<>0 then exit;
+  if (erreur<>0) or (i<0) then exit;
   if index_adresse_detecteur(i)=0 then
   begin
     LabelTexte.caption:='Détecteur '+intToSTR(i)+' inexistant';

verif_version.pas

@@ -25,7 +25,7 @@ var
   verifVersion,notificationVersion,essai : boolean;
   chemin_Dest,chemin_src,date_creation,nombre_tel : string;
 
-Const  Version='8.43';  // sert à la comparaison de la version publiée
+Const  Version='8.5';  // sert à la comparaison de la version publiée
        SousVersion=' '; // A B C ... en cas d'absence de sous version mettre un espace
        // pour unzip
        SHCONTCH_NOPROGRESSBOX = 4;

versions.txt

@@ -233,5 +233,15 @@ version 8.41 : Am
 version 8.42 : Création d'un onglet de paramètres avancés.
                Fichier d'aide affichable depuis le menu.
 version 8.43 : Correction d'un bug sur l'importation des détecteurs depuis CDM rail.
+version 8.44 : Gestion de la centrale Z21 en mode autonome en Xpressnet.
+               Amélioration des réservations des aiguillages.
+               Amélioration affichages des trajets dans les TCOs.
+               Amélioration des réceptions des trames XpressNet.
+               Ajout d'une action "arrêt des trains" pour les TCOs
+
+                
+			   
+
+