easylinux/SignauxComplexes
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
Files
5e35f9a042b84265134781c9bd1b8dc9ddbe4b66
SignauxComplexes/UnitConfig.pas
f1iwq2 5e35f9a042 V5.74
2023-04-10 18:17:03 +02:00

10130 lines
305 KiB
ObjectPascal
Raw Blame History

Unit UnitConfig;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls , jpeg, ComCtrls ,StrUtils, Unitprinc,
MMSystem, Buttons , UnitPareFeu, verif_version;
type
TFormConfig = class(TForm)
ButtonAppliquerEtFermer: TButton;
LabelInfo: TLabel;
Image1: TImage;
PageControl: TPageControl;
TabSheetCDM: TTabSheet;
TabSheetAutonome: TTabSheet;
GroupBox1: TGroupBox;
Label1: TLabel;
Label2: TLabel;
EditAdrIPCDM: TEdit;
EditPortCDM: TEdit;
GroupBox5: TGroupBox;
CheckVerifVersion: TCheckBox;
CheckInfoVersion: TCheckBox;
CheckLanceCDM: TCheckBox;
CheckAvecTCO: TCheckBox;
GroupBox6: TGroupBox;
RadioButton4: TRadioButton;
RadioButton5: TRadioButton;
RadioButton6: TRadioButton;
RadioButton7: TRadioButton;
RadioButton8: TRadioButton;
RadioButton9: TRadioButton;
RadioButton10: TRadioButton;
RadioButton11: TRadioButton;
RadioButton12: TRadioButton;
GroupBox7: TGroupBox;
RadioButton13: TRadioButton;
RadioButton14: TRadioButton;
RadioButton15: TRadioButton;
RadioButton16: TRadioButton;
RadioButton17: TRadioButton;
RadioButton18: TRadioButton;
GroupBox2: TGroupBox;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
EditcomUSB: TEdit;
EditTempoOctetUSB: TEdit;
EditTempoReponse: TEdit;
GroupBox4: TGroupBox;
RadioButton1: TRadioButton;
RadioButton2: TRadioButton;
GroupBox3: TGroupBox;
Label7: TLabel;
Label8: TLabel;
EditIPLenz: TEdit;
EditportLenz: TEdit;
GroupBox8: TGroupBox;
CheckBoxServAig: TCheckBox;
CheckBoxServDet: TCheckBox;
CheckBoxServAct: TCheckBox;
CheckServPosTrains: TCheckBox;
Label6: TLabel;
Label9: TLabel;
Label11: TLabel;
TabSheetAig: TTabSheet;
Label12: TLabel;
TabSheetBranches: TTabSheet;
Label14: TLabel;
TabSheetSig: TTabSheet;
Label15: TLabel;
TabSheetAct: TTabSheet;
Label16: TLabel;
CheckBoxSrvSig: TCheckBox;
Memo1: TMemo;
Memo2: TMemo;
Memo3: TMemo;
Memo4: TMemo;
GroupBox9: TGroupBox;
GroupBox11: TGroupBox;
LabelAdresse: TLabel;
GroupBox10: TGroupBox;
RadioButtonsans: TRadioButton;
RadioButton30kmh: TRadioButton;
RadioButton60kmh: TRadioButton;
ImageAig: TImage;
ImageTJD: TImage;
ImageTri: TImage;
GroupBox12: TGroupBox;
ImageSignal: TImage;
LabelAdrSig: TLabel;
GroupBox13: TGroupBox;
LabelDec: TLabel;
LabelDetAss: TLabel;
LabelElSuiv: TLabel;
GroupBoxRadio: TGroupBox;
RadioButtonLoc: TRadioButton;
GroupBoxAct: TGroupBox;
GroupBoxPN: TGroupBox;
Label21: TLabel;
EditAdrFerme: TEdit;
Label22: TLabel;
EditAdrOuvre: TEdit;
EditCmdFerme: TEdit;
EditCdeOuvre: TEdit;
Label23: TLabel;
LabelV2: TLabel;
LabelV3: TLabel;
EditV1F: TEdit;
Shape1: TShape;
StaticText1: TStaticText;
StaticText2: TStaticText;
EditV2F: TEdit;
EditV3F: TEdit;
EditV1O: TEdit;
EditV2O: TEdit;
EditV3O: TEdit;
Label17: TLabel;
MemoCarre: TMemo;
RichAig: TRichEdit;
ComboBoxDec: TComboBox;
RichSig: TRichEdit;
EditDet1: TEdit;
EditSuiv1: TEdit;
Label24: TLabel;
Label25: TLabel;
EditDet2: TEdit;
EditSuiv2: TEdit;
Label26: TLabel;
EditDet3: TEdit;
EditSuiv3: TEdit;
Label27: TLabel;
EditDet4: TEdit;
EditSuiv4: TEdit;
CheckVerrouCarre: TCheckBox;
Label28: TLabel;
CheckInverse: TCheckBox;
RadioButtonAccess: TRadioButton;
CheckFenEt: TCheckBox;
GroupBox15: TGroupBox;
EditNbDetDist: TEdit;
Label31: TLabel;
CheckBoxInitAig: TCheckBox;
EditAdrSig: TEdit;
Label32: TLabel;
EditTempoAig: TEdit;
EditAdrAig: TEdit;
ComboBoxAig: TComboBox;
GroupBox16: TGroupBox;
LabelHG: TLabel;
Edit_HG: TEdit;
LabelBG: TLabel;
EditPointe_BG: TEdit;
ImageAffiche: TImage;
EditP1: TEdit;
EditP2: TEdit;
EditP3: TEdit;
EditP4: TEdit;
LabelHD: TLabel;
EditDevie_HD: TEdit;
LabelBD: TLabel;
EditDroit_BD: TEdit;
Label18: TLabel;
EditDevieS2: TEdit;
LabelTJD1: TLabel;
LabelTJD2: TLabel;
Label33: TLabel;
ComboBoxAsp: TComboBox;
EditSpecUni: TEdit;
LabelUni: TLabel;
Buttonrestaure: TButton;
GroupBox14: TGroupBox;
ButtonNouvAcc: TButton;
ButtonSupAcc: TButton;
RichAct: TRichEdit;
GroupBox17: TGroupBox;
ButtonNouvPN: TButton;
ButtonSupPN: TButton;
RichPN: TRichEdit;
ButtonNouvFeu: TButton;
ButtonSupFeu: TButton;
ButtonInsFeu: TButton;
GroupBox18: TGroupBox;
EditAct: TEdit;
LabelActionneur: TLabel;
EditEtatActionneur: TEdit;
Label30: TLabel;
LabelTrain: TLabel;
EditTrainDecl: TEdit;
GroupBox19: TGroupBox;
LabelTempo: TLabel;
EditTempo: TEdit;
CheckRAZ: TCheckBox;
LabelFonction: TLabel;
EditFonctionAccess: TEdit;
Labela: TLabel;
EditEtatFoncSortie: TEdit;
ButtonNouvAig: TButton;
BoutSupAig: TButton;
ButtonAjSup: TButton;
ButtonRestaureAig: TButton;
GroupBox20: TGroupBox;
ButtonValLigne: TButton;
RichBranche: TRichEdit;
ButtonVerifConfig: TButton;
LabelResult: TLabel;
Label34: TLabel;
EditAigTriple: TEdit;
GroupBox21: TGroupBox;
Label37: TLabel;
Label38: TLabel;
EditTempo10: TEdit;
Label39: TLabel;
EditV4F: TEdit;
EditV4O: TEdit;
Label41: TLabel;
EditFonte: TEdit;
ComboBoxDD: TComboBox;
LabelL: TLabel;
EditL: TEdit;
CheckBoxFB: TCheckBox;
Label20: TLabel;
ButtonConfigSR: TButton;
GroupBoxEtatTJD: TGroupBox;
RadioButtonTJD2: TRadioButton;
RadioButtonTJD4: TRadioButton;
RadioButtonSon: TRadioButton;
EditSon: TEdit;
LabelNomSon: TLabel;
SpeedButtonJoue: TSpeedButton;
CheckBoxRazSignaux: TCheckBox;
EditTempoFeu: TEdit;
Label35: TLabel;
Label36: TLabel;
ButtonTestAct: TButton;
RadioGroup1: TRadioGroup;
RadioButtonActDet: TRadioButton;
RadioButtonZones: TRadioButton;
EditAct2: TEdit;
OpenDialogSon: TOpenDialog;
SpeedButtonCharger: TSpeedButton;
LabelNumBranche: TLabel;
EditTrainDest: TEdit;
Label42: TLabel;
Label43: TLabel;
CheckBandeauTCO: TCheckBox;
EditNbCantons: TEdit;
Label44: TLabel;
CheckPosAig: TCheckBox;
ButtonEnregistre: TButton;
Label45: TLabel;
Label46: TLabel;
Label47: TLabel;
Label48: TLabel;
Label49: TLabel;
Label50: TLabel;
Shape2: TShape;
EditZdet1V1F: TEdit;
EditZdet1V1O: TEdit;
EditZdet2V1F: TEdit;
EditZdet2V1O: TEdit;
EditZdet1V2F: TEdit;
EditZdet2V2F: TEdit;
EditZdet1V2O: TEdit;
EditZdet2V2O: TEdit;
EditZdet1V3F: TEdit;
EditZdet2V3F: TEdit;
EditZdet1V3O: TEdit;
EditZdet2V3O: TEdit;
EditZdet1V4F: TEdit;
EditZdet2V4F: TEdit;
EditZdet1V4O: TEdit;
EditZdet2V4O: TEdit;
CheckBoxDemarUSB: TCheckBox;
CheckBoxDemarEth: TCheckBox;
Memo5: TMemo;
EditLAY: TEdit;
Label13: TLabel;
Button1: TButton;
Button3: TButton;
CheckPnPulse: TCheckBox;
CheckFVC: TCheckBox;
CheckFRC: TCheckBox;
Label40: TLabel;
RadioButtonAig: TRadioButton;
GroupBox22: TGroupBox;
RadioButtonDCC: TRadioButton;
RadioButtonXpress: TRadioButton;
TabSheetDccpp: TTabSheet;
RichCdeDccpp: TRichEdit;
Label10: TLabel;
RichEditTrains: TRichEdit;
GroupBox24: TGroupBox;
EditNomTrain: TEdit;
EditAdresseTrain: TEdit;
EditVitesseMaxi: TEdit;
Label51: TLabel;
Label52: TLabel;
Label53: TLabel;
ButtonNT: TButton;
ButtonSupprime: TButton;
GroupBox23: TGroupBox;
CheckEnvAigDccpp: TCheckBox;
Image2: TImage;
ButtonEnv: TButton;
Label19: TLabel;
EditBase: TEdit;
Label29: TLabel;
TabSheetTrains: TTabSheet;
Label54: TLabel;
Label55: TLabel;
EditDebug: TEdit;
Label56: TLabel;
EditVitRalenti: TEdit;
Label57: TLabel;
EditVitNom: TEdit;
LabelInfVitesse: TLabel;
CheckRoulage: TCheckBox;
GroupBox25: TGroupBox;
Label58: TLabel;
EditFiltrDet: TEdit;
CheckBoxVerifXpressNet: TCheckBox;
LabelCrois: TLabel;
Image3: TImage;
ButtonPFCDM: TButton;
Label59: TLabel;
EditV5F: TEdit;
EditV5O: TEdit;
EditZdet1V5F: TEdit;
EditZdet2V5F: TEdit;
EditZdet1V5O: TEdit;
EditZdet2V5O: TEdit;
Label60: TLabel;
procedure ButtonAppliquerEtFermerClick(Sender: TObject);
procedure FormActivate(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure RichAigMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure RadioButtonsansClick(Sender: TObject);
procedure RadioButton30kmhClick(Sender: TObject);
procedure RadioButton60kmhClick(Sender: TObject);
procedure ComboBoxDecChange(Sender: TObject);
procedure RichSigMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure CheckVerrouCarreClick(Sender: TObject);
procedure EditActChange(Sender: TObject);
procedure RichActMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure EditEtatActionneurChange(Sender: TObject);
procedure EditTrainDeclChange(Sender: TObject);
procedure EditFonctionAccessChange(Sender: TObject);
procedure EditEtatFoncSortieChange(Sender: TObject);
procedure EditTempoChange(Sender: TObject);
procedure CheckRAZClick(Sender: TObject);
procedure CheckInverseClick(Sender: TObject);
procedure ComboBoxAspChange(Sender: TObject);
procedure ButtonrestaureClick(Sender: TObject);
procedure RadioButtonLocClick(Sender: TObject);
procedure RadioButtonAccessClick(Sender: TObject);
procedure RichPNMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure EditAdrFermeChange(Sender: TObject);
procedure EditCmdFermeChange(Sender: TObject);
procedure EditAdrOuvreChange(Sender: TObject);
procedure EditCdeOuvreChange(Sender: TObject);
procedure EditV1FChange(Sender: TObject);
procedure EditV1OChange(Sender: TObject);
procedure EditV2FChange(Sender: TObject);
procedure EditV2OChange(Sender: TObject);
procedure EditV3FChange(Sender: TObject);
procedure EditV3OChange(Sender: TObject);
procedure ButtonNouvAccClick(Sender: TObject);
procedure ButtonNouvPNClick(Sender: TObject);
procedure ButtonSupAccClick(Sender: TObject);
procedure ButtonSupPNClick(Sender: TObject);
procedure ButtonNouvFeuClick(Sender: TObject);
procedure ButtonSupFeuClick(Sender: TObject);
procedure ButtonInsFeuClick(Sender: TObject);
procedure ButtonNouvAigClick(Sender: TObject);
procedure BoutSupAigClick(Sender: TObject);
procedure ButtonAjSupClick(Sender: TObject);
procedure ButtonRestaureAigClick(Sender: TObject);
procedure ComboBoxAigChange(Sender: TObject);
procedure ButtonValLigneClick(Sender: TObject);
procedure RichBrancheMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure ButtonVerifConfigClick(Sender: TObject);
procedure MemoCarreChange(Sender: TObject);
procedure CheckInvInitClick(Sender: TObject);
procedure EditV4FChange(Sender: TObject);
procedure EditV4OChange(Sender: TObject);
procedure ComboBoxDDChange(Sender: TObject);
procedure EditLChange(Sender: TObject);
procedure CheckBoxFBClick(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure EditP3KeyPress(Sender: TObject; var Key: Char);
procedure EditP4KeyPress(Sender: TObject; var Key: Char);
procedure EditP1KeyPress(Sender: TObject; var Key: Char);
procedure EditP2KeyPress(Sender: TObject; var Key: Char);
procedure EditDevieS2KeyPress(Sender: TObject; var Key: Char);
procedure ButtonConfigSRClick(Sender: TObject);
procedure EditDet1Change(Sender: TObject);
procedure EditSuiv1Change(Sender: TObject);
procedure EditAdrSigChange(Sender: TObject);
procedure EditDet2Change(Sender: TObject);
procedure EditSuiv2Change(Sender: TObject);
procedure EditDet3Change(Sender: TObject);
procedure EditSuiv3Change(Sender: TObject);
procedure EditDet4Change(Sender: TObject);
procedure EditSuiv4Change(Sender: TObject);
procedure EditSpecUniChange(Sender: TObject);
procedure EditAdrAigChange(Sender: TObject);
procedure EditAigTripleChange(Sender: TObject);
procedure EditPointe_BGChange(Sender: TObject);
procedure EditDroit_BDChange(Sender: TObject);
procedure EditDevie_HDChange(Sender: TObject);
procedure EditTempo10Change(Sender: TObject);
procedure Edit_HGChange(Sender: TObject);
procedure PageControlChange(Sender: TObject);
procedure RadioButtonTJD2Click(Sender: TObject);
procedure RadioButtonTJD4Click(Sender: TObject);
procedure RadioButtonSonClick(Sender: TObject);
procedure EditSonChange(Sender: TObject);
procedure SpeedButtonJoueClick(Sender: TObject);
procedure EditTempoFeuChange(Sender: TObject);
procedure ButtonTestActClick(Sender: TObject);
procedure RadioButtonActDetClick(Sender: TObject);
procedure RadioButtonZonesClick(Sender: TObject);
procedure EditAct2Change(Sender: TObject);
procedure SpeedButtonChargerClick(Sender: TObject);
procedure RichBrancheKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure EditTrainDestChange(Sender: TObject);
procedure RichAigKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure RichSigKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure ButtonEnregistreClick(Sender: TObject);
procedure EditZdet1V1FChange(Sender: TObject);
procedure EditZdet2V1FChange(Sender: TObject);
procedure EditZdet1V1OChange(Sender: TObject);
procedure EditZdet2V1OChange(Sender: TObject);
procedure EditZdet1V2FChange(Sender: TObject);
procedure EditZdet2V2FChange(Sender: TObject);
procedure EditZdet1V2OChange(Sender: TObject);
procedure EditZdet2V2OChange(Sender: TObject);
procedure EditZdet1V3FChange(Sender: TObject);
procedure EditZdet2V3FChange(Sender: TObject);
procedure EditZdet1V3OChange(Sender: TObject);
procedure EditZdet2V3OChange(Sender: TObject);
procedure EditZdet1V4FChange(Sender: TObject);
procedure EditZdet1V4OChange(Sender: TObject);
procedure EditZdet2V4OChange(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure CheckPnPulseClick(Sender: TObject);
procedure CheckFVCClick(Sender: TObject);
procedure CheckFRCClick(Sender: TObject);
procedure RadioButtonAigClick(Sender: TObject);
procedure ButtonEnvClick(Sender: TObject);
procedure EditBaseChange(Sender: TObject);
procedure RichCdeDccppChange(Sender: TObject);
procedure CheckEnvAigDccppClick(Sender: TObject);
procedure RichEditTrainsMouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
procedure ButtonSupprimeClick(Sender: TObject);
procedure EditNomTrainChange(Sender: TObject);
procedure EditAdresseTrainChange(Sender: TObject);
procedure EditVitesseMaxiChange(Sender: TObject);
procedure ButtonNTClick(Sender: TObject);
procedure EditVitNomChange(Sender: TObject);
procedure EditVitRalentiChange(Sender: TObject);
procedure CheckBoxVerifXpressNetClick(Sender: TObject);
procedure RichActKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure RichPNKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure RichEditTrainsKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure ButtonPFCDMClick(Sender: TObject);
procedure EditV5FChange(Sender: TObject);
procedure EditV5OChange(Sender: TObject);
procedure EditZdet1V5FChange(Sender: TObject);
procedure EditZdet2V5FChange(Sender: TObject);
procedure EditZdet1V5OChange(Sender: TObject);
procedure EditZdet2V5OChange(Sender: TObject);
procedure EditLAYChange(Sender: TObject);
procedure EditLAYExit(Sender: TObject);
private
{ D<>clarations priv<69>es }
public
{ D<>clarations publiques }
end;
const
// constantes du fichier de configuration
NomConfig='ConfigGenerale.cfg';
Debug_ch='Debug';
AntiTimeoutEthLenz_ch='AntiTimeoutEthLenz';
Verif_AdrXpressNet_ch='Verif_AdrXpressNet';
Filtrage_det_ch='Filtrage_det';
Algo_localisation_ch='Algo_localisation';
Avec_roulage_ch='Avec_roulage';
nb_det_dist_ch='nb_det_dist';
IpV4_PC_ch='IpV4_PC';
retro_ch='retro';
Init_aig_ch='Init_Aig';
LAY_ch='Lay';
Maxcom_ch='MaxCom';
Init_dem_aig_ch='Init_Dem_Aig';
Init_dem_interfaceUSBCOM_ch='Init_demUSBCOM';
Init_dem_interfaceEth_ch='Init_demETH';
IPV4_INTERFACE_ch='Ipv4_interface';
PROTOCOLE_SERIE_ch='Protocole_serie';
INTER_CAR_ch='Inter_car';
Tempo_maxi_ch='Tempo_maxi';
Entete_ch='Entete';
TCO_ch='TCO';
MasqueBandeauTCO_ch='MasqueBandeauTCO';
CDM_ch='CDM';
Serveur_interface_ch='Serveur_interface';
fenetre_ch='Fenetre';
Tempo_aig_ch='Tempo_Aig';
Nb_cantons_Sig_ch='Nb_cantons_Sig';
Tempo_Feu_ch='Tempo_Feu';
Algo_Unisemaf_ch='Alg_Unisemaf';
NOTIF_VERSION_ch='notif_version';
verif_version_ch='verif_version';
Fonte_ch='Fonte';
Protocole_ch='Protocole';
Raz_signaux_ch='RazSignaux';
EnvAigDccpp_ch='EnvAigDccpp';
AdrBaseDetDccpp_ch='AdrBaseDetDccpp';
AvecVerifIconesTCO_ch='AvecVerifIconesTCO';
// sections de config
section_aig_ch='[section_aig]';
section_sig_ch='[section_sig]';
section_act_ch='[section_act]';
section_branches_ch='[section_branches]';
section_dccpp_ch='[section_dcc++]';
section_initpp_ch='[init_dcc++]';
section_trains_ch='[section_trains]';
section_placement_ch='[section_placement]';
var
FormConfig: TFormConfig;
AdresseIPCDM,AdresseIP,PortCom,recuCDM,residuCDM,trainsauve : string;
portCDM,TempoOctet,TimoutMaxInterface,Valeur_entete,PortInterface,prot_serie,NumPort,debug,
LigneCliqueePN,AncLigneCliqueePN,clicMemo,Nb_cantons_Sig,protocole,Port,
ligneclicAig,AncLigneClicAig,ligneClicSig,AncligneClicSig,EnvAigDccpp,AdrBaseDetDccpp,
ligneClicBr,AncligneClicBr,ligneClicAct,AncLigneClicAct,Adressefeuclic,NumTrameCDM,
Algo_localisation,Verif_AdrXpressNet,ligneclicTrain,AncligneclicTrain,AntiTimeoutEthLenz : integer;
ack_cdm,clicliste,config_modifie,clicproprietes,confasauver,trouve_MaxPort,
modif_branches,ConfigPrete,trouve_section_dccpp,trouve_section_trains,
trouveAvecVerifIconesTCO,Affiche_avert : boolean;
fichier : text;
function config_com(s : string) : boolean;
function envoi_CDM(s : string) : boolean;
procedure connecte_CDM;
function place_id(s : string) : string;
procedure decodeAig(s : string;var adr : integer;var B : char);
function sauve_config : boolean;
procedure lit_config;
Procedure aff_champs_sig_feux(index : integer);
function verif_coherence : boolean;
function compile_branche(s : string;i : integer) : boolean;
function encode_sig_feux(i : integer): string;
implementation
uses UnitDebug,UnitTCO, UnitSR, UnitCDF;
{$R *.dfm}
// envoi d'une cha<68>ne Com_IPC <20> CDM par socket, puis attend l'ack ou le nack
function envoi_CDM(s : string) : boolean;
var temps : integer;
begin
if CDM_connecte=false then begin envoi_CDM:=false;exit;end;
if traceTrames then afficheDebug(s,clLime);
Formprinc.ClientSocketCDM.Socket.SendText(s);
// attend l'ack
ackCDM:=false;nackCDM:=false;
temps:=0;
repeat
inc(temps);Sleep(100);
Application.processMessages;
until ferme or ackCDM or nackCDM or (temps>30); // CDM r<>pond < 1s
if not(ackCDM) or nack then
begin
Affiche('Pas de r<>ponse de CDM Rail',clRed);
end;
envoi_CDM:=ackCDM;
end;
// ins<6E>re l'id pour le serveur CDM dans une cha<68>ne
function place_id(s : string) : string;
begin
delete(s,5,2);
insert(id_cdm,s,5);
place_id:=s;
end;
procedure Maj_Hint_feu(i : integer);
var s : string;
begin
// ne pas supprimer le @ espace et = qui sert de marqueur pour identifier le feu
s:='@='+inttostr(feux[i].Adresse)+' Decodeur='+intToSTR(feux[i].Decodeur)+' Adresse d<>tecteur associ<63>='+intToSTR(feux[i].Adr_det1)+
' Adresse <20>lement suivant='+intToSTR(feux[i].Adr_el_suiv1);
if feux[i].Btype_suiv1=aig then s:=s+' (aig)';
feux[i].Img.Hint:=s;
end;
// demande les services Com-IP <20> CDM
function services_CDM : boolean;
var s,ss : string;
i : integer;
begin
//s:=place_id('C-C-00-0002-RQSERV-RTSIM|030|03|SRV=ATNT;SRV=ADET;SRV=AACT;');
s:=place_id('C-C-00-0002-RQSERV-RTSIM|xxx|xx|');
i:=0;
if Srvc_Aig then begin s:=s+'SRV=ATNT;';inc(i);end;
if Srvc_Act then begin s:=s+'SRV=AACT;';inc(i);end;
if Srvc_Det then begin s:=s+'SRV=ADET;';inc(i);end;
if Srvc_PosTrain then begin s:=s+'SRV=TSXY;';inc(i);end ;
if Srvc_Sig then begin s:=s+'SRV=ASIG;';inc(i);end;
// ins<6E>re le nombre de param<61>tres
ss:=format('%.*d',[2,i]) ;
delete(s,30,2);
insert(ss,s,30);
// ins<6E>re la longueur des param<61>tres
i:=length(s)-29;
ss:=format('%.*d',[3,i]) ;
delete(s,26,3);
insert(ss,s,26);
envoi_CDM(s);
sleep(100);
if ack_cdm then
begin
s:='Services accept<70>s: ';
if Srvc_Aig then s:=s+'- aiguillages ';
if Srvc_Act then s:=s+'- actionneurs ';
if Srvc_Det then s:=s+'- d<>tecteurs ';
if Srvc_PosTrain then s:=s+'- position des trains ';
if Srvc_sig then s:=s+'- <20>tat des signaux ';
Affiche(s,clYellow);
end;
services_CDM:=ack_cdm;
ack_cdm:=false;
end;
procedure connecte_CDM;
var s : string;
i : integer;
begin
// d<>connexion de l'ancienne liaison <20>ventuelle
Formprinc.ClientSocketCDM.Close;
if (AdresseIPCDM<>'0') then
begin
if(ProcessRunning('CDR')) then
begin
// ouverture du socket CDM
with Formprinc do
begin
ClientSocketCDM.port:=portCDM;
ClientSocketCDM.Address:=AdresseIPCDM;
ClientSocketCDM.Open;
end;
i:=0;
repeat
Sleep(50);
inc(i);
Application.processMessages;
until (i>10) or CDM_connecte ;
//if i>10 then affiche('Timeout',clred);
if not(CDM_connecte) then begin Affiche('Socket CDM non connect<63>',clOrange);exit;end;
// connexion <20> CDM rail
recuCDM:='';
s:='C-C-00-0001-CMDGEN-_CNCT|000|';
envoi_cdm(s);
if ack_cdm then
begin
ack_cdm:=false;
Id_CDM:=copy(recuCDM,5,2); // r<>cup<75>re l'ID re<72>u de CDM, <20> utiliser dans toutes les futures trames
recucdm:='';
s:='Connect<63> au serveur CDM rail avec l''ID='+Id_CDM;
Affiche(s,clYellow);
CDM_connecte:=true;
// demande des services
services_CDM;
// demande la description des trains
s:=place_id('C-C-01-0002-DSCTRN-DLOAD|000|');
ntrains_cdm:=0;
envoi_CDM(s);
sleep(10);
Application.ProcessMessages;
SauvefiltrageDet0:=filtrageDet0;
filtrageDet0:=0;
end;
end;
//else Affiche('CDM Rail non lanc<6E>',clOrange);
end
else
begin
if adresseIPCDM='0' then Affiche('La connexion <20> CDM n''est pas demand<6E>e car l''adresse IP est nulle dans '+NomConfig,cyan);
end;
end;
// teste si une adresse IP V4 est ok
function Ipok(s : string) : boolean;
var i,k,octet,erreur : integer;
begin
for k:=1 to 3 do
begin
i:=pos('.',s);
if i=0 then begin IpOK:=false;exit;end;
val(copy(s,1,i-1),octet,erreur);if (erreur<>0) or (octet>255) then begin IpOK:=false;exit;end;
delete(s,1,i);
end;
val(s,octet,erreur);if (erreur<>0) or (octet>255) then begin IpOK:=false;exit;end;
ipOK:=true;
end;
// v<>rifie si la config de la com s<>rie/usb est ok
function config_com(s : string) : boolean;
var sa : string;
i,erreur,vitesse : integer;
begin
sa:=s;
prot_serie:=-1;
// trouver la vitesse
i:=pos(':',s);
if i<>0 then
begin
delete(s,1,i);
val(s,vitesse,i);
if (vitesse<>300) and (vitesse<>1200) and (vitesse<>2400) and (vitesse<>4800) and (vitesse<>9600) and
(vitesse<>19200) and (vitesse<>38400) and (vitesse<>57600) and (vitesse<>115200) then
begin
Affiche('Vitesse COM ('+intToSTR(vitesse)+') incorrecte',clred);
result:=false;
exit;
end;
end
else
begin
result:=false;
exit;
end;
// supprimer la dernier param<61>tre
i:=pos(',',s);
if i<>0 then
begin
delete(s,1,i);
i:=pos(',',s);
if i<>0 then
begin
delete(s,1,i);
i:=pos(',',s);
if i<>0 then
begin
delete(s,1,i);
i:=pos(',',s);
if i<>0 then
begin
delete(s,1,i);
Val(s,prot_serie,erreur);
end;
end;
end;
end;
i:=pos('COM',sa);
if i<>0 then delete(sa,1,3);
val(sa,Numport,erreur);
config_com:=not( (i=0) or (NumPort>MaxPortCom) or (prot_serie=-1) or (prot_serie>4) or (i=0) );
end;
// transforme l'aiguillage de la base de donn<6E>es aiguillage en texte
function encode_aig(index : integer): string;
var s : string;
c : char;
tjdC,tjsC,triC,croi : boolean;
begin
if index=0 then exit;
s:=IntToSTR(aiguillage[index].Adresse);
tjdC:=aiguillage[index].modele=tjd;
tjsC:=aiguillage[index].modele=tjs;
triC:=aiguillage[index].modele=triple;
croi:=aiguillage[index].modele=crois;
if tjdC then s:=s+'TJD';
if tjsC then s:=s+'TJS';
if croi then s:=s+'CROI';
if triC then begin s:=s+'TRI,';s:=s+intToSTR(aiguillage[index].AdrTriple);end;
s:=s+',';
// aiguillage normal ou triple
if not(tjdC) and not(tjsC) and not(croi) then
begin
// P
s:=s+'P';s:=s+intToSTR(aiguillage[index].Apointe);
c:=aiguillage[index].APointeB ;
if (c<>'Z') and (c<>#0) then s:=s+c;
//if c=#0 then s:=s+'Z';
// D
s:=s+',D';s:=s+intToSTR(aiguillage[index].Adroit);
c:=aiguillage[index].ADroitB ;
if (c<>'Z') and (c<>#0) then s:=s+c;
//if c=#0 then s:=s+'Z';
// S
s:=s+',S';s:=s+intToSTR(aiguillage[index].Adevie);
c:=aiguillage[index].AdevieB ;
if (c<>'Z') and (c<>#0) then s:=s+c;
//if c=#0 then s:=s+'Z';
// S2 aiguillage triple
if triC then
begin
s:=s+',S2-';
s:=s+intToSTR(aiguillage[index].Adevie2);
c:=aiguillage[index].Adevie2B ;
if (c<>'Z') and (c<>#0) then s:=s+c;
//if c=#0 then s:=s+'Z';
end;
end;
// tjd 2/4 <20>tats ou tjs
if (tjdC or tjsC) then
begin
s:=s+'D('+intToSTR(aiguillage[index].Adroit);
c:=aiguillage[index].AdroitB;if c<>'Z' then s:=s+c;
s:=s+','+intToSTR(aiguillage[index].DDroit)+aiguillage[index].DDroitB+'),';
s:=s+'S('+intToSTR(aiguillage[index].Adevie);
c:=aiguillage[index].AdevieB;if c<>'Z' then s:=s+c;
s:=s+','+intToSTR(aiguillage[index].DDevie)+aiguillage[index].DDevieB+')';
end;
if croi then
begin
s:=s+'D('+intToSTR(aiguillage[index].Adroit);
c:=aiguillage[index].AdroitB;if c<>'Z' then s:=s+c;
s:=s+','+intToSTR(aiguillage[index].DDroit)+aiguillage[index].DDroitB+'),';
s:=s+'S('+intToSTR(aiguillage[index].Adevie);
c:=aiguillage[index].AdevieB;if c<>'Z' then s:=s+c;
s:=s+','+intToSTR(aiguillage[index].DDevie)+aiguillage[index].DDevieB+')';
end;
if tjsC then
begin
s:=s+',L'+intToSTR(aiguillage[index].Tjsint)+aiguillage[index].TjsintB;
end;
// vitesse de franchissement et inversion
if not(croi) then
begin
if aiguillage[index].vitesse=0 then s:=s+',V0';
if aiguillage[index].vitesse=30 then s:=s+',V30';
if aiguillage[index].vitesse=60 then s:=s+',V60';
if aiguillage[index].inversionCDM=1 then s:=s+',I1' else s:=s+',I0';
end;
// valeur d'initialisation
if not(croi) then
begin
s:=s+',INIT(';
s:=s+IntToSTR(aiguillage[index].posInit)+',';
s:=s+IntToSTR(aiguillage[index].temps)+')';
end;
if tjdC then
begin
if aiguillage[index].EtatTJD=2 then s:=s+',E2' else s:=s+',E4';
end;
encode_aig:=s;
end;
// renvoie un A si BT est un aiguillage (aig, tjd, tjs tri)
function TypeEl_to_char(BT : TEquipement) : string;
begin
case BT of // 1=d<>tecteur 2=aig ou TJD ou TJS 4=tri
det : TypeEl_to_char:='';
aig,tjd,tjs,triple : TypeEl_to_char:='A';
end;
end;
function TypeElAIg_to_char(adr : integer;c : char) : string;
var s: string;
begin
if (adr=0) and (c<>'D') and (c<>'S') and (c<>'P') then s:='Buttoir';
if adr<>0 then
begin
if c='P' then s:='pointe de l''aiguillage '+IntToSTR(adr) else
if c='S' then s:='position d<>vi<76>e de l''aiguillage '+IntToSTR(adr) else
if c='D' then s:='position droite de l''aiguillage '+IntToSTR(adr) else
if (c<>'D') and (c<>'S') and (c<>'P') then s:='d<>tecteur '+IntToSTR(adr) else
s:='erreur';
end;
TypeElAIg_to_char:=s;
end;
// transforme le signal du tableau feux[] en texte
function encode_sig_feux(i : integer): string;
var s : string;
adresse,aspect,j,k,NfeuxDir,CondCarre,nc : integer;
begin
// adresse
adresse:=feux[i].adresse;
if affevt then Affiche('Encode_sig_feux('+IntToSTR(i)+') : adresse='+IntToSTR(adresse),clyellow);
if adresse=0 then begin encode_sig_feux:='';exit;end;
s:=IntToSTR(adresse)+',';
// forme - D=directionnel ajouter 10
aspect:=feux[i].aspect;
if aspect<10 then s:=s+IntToSTR(aspect)+',' else s:=s+'D'+intToSTR(aspect-10)+',';
// bouton feu blanc, n'existe pas pour un feu directionnel (aspect>10)
if aspect<10 then begin if feux[i].feublanc then s:=s+'1,' else s:=s+'0,';end;
// d<>codeur
s:=s+IntToSTR(feux[i].decodeur)+',';
// detecteur et <20>lement suivant (4 maxi)
if aspect<10 then
begin
s:=s+'('+IntToSTR(feux[i].Adr_det1)+','+TypeEl_To_char(feux[i].Btype_suiv1)+IntToSTR(feux[i].Adr_el_suiv1);
j:=feux[i].Adr_det2;
if j<>0 then s:=s+','+IntToSTR(feux[i].Adr_det2)+','+TypeEl_To_char(feux[i].Btype_suiv2)+IntToSTR(feux[i].Adr_el_suiv2);
j:=feux[i].Adr_det3;
if j<>0 then s:=s+','+IntToSTR(feux[i].Adr_det3)+','+TypeEl_To_char(feux[i].Btype_suiv3)+IntToSTR(feux[i].Adr_el_suiv3);
j:=feux[i].Adr_det4;
if j<>0 then s:=s+','+IntToSTR(feux[i].Adr_det4)+','+TypeEl_To_char(feux[i].Btype_suiv4)+IntToSTR(feux[i].Adr_el_suiv4);
s:=s+'),';
//verrouillage au carr<72>
if feux[i].verrouCarre then s:=s+'1' else s:=s+'0';
// feu vert cli
if feux[i].checkFV then s:=s+',FVC1' else s:=s+',FVC0';
// feu rouge cli
if feux[i].checkFR then s:=s+',FRC1' else s:=s+',FRC0';
// si unisemaf, param<61>tre suppl<70>mentaire
if (feux[i].decodeur=6) then s:=s+',U'+intToSTR(feux[i].unisemaf);
// conditions suppl<70>mentaires pour le carr<72>
for nc:=1 to 6 do
begin
CondCarre:=Length(feux[i].condcarre[nc]); // nombre de conditions (nombre de parenth<74>ses ex 3 pour (A21S,A6D)(A30S,A20D)(A1D,A2S,A3D)
dec(condcarre);
if condCarre>0 then
begin
s:=s+',(';
for k:=1 to condcarre do
begin
s:=s+'A'+IntToSTR(feux[i].condcarre[nc][k].Adresse)+feux[i].condcarre[nc][k].PosAig;
if k<condcarre then s:=s+',';
end;
s:=s+')';
end;
end;
// d<>codeur SR
if feux[i].decodeur=7 then
begin
s:=s+',SR(';
for nc:=1 to 8 do
begin
s:=s+intToSTR(feux[i].SR[nc].sortie1)+',';
s:=s+intToSTR(feux[i].SR[nc].sortie0);
if nc<8 then s:=s+',' else s:=s+')';
end;
end;
// d<>codeur CDF ou digikeijs
if (feux[i].decodeur=2) or (feux[i].decodeur=5) then
begin
s:=s+',MOT(';
for nc:=1 to 19 do
begin
s:=s+intToSTR(feux[i].SR[nc].sortie1);
if nc<19 then s:=s+',' else s:=s+')';
end;
s:=s+',NA'+intToSTR(feux[i].na);
end;
end
else
// feux directionnels
begin
NfeuxDir:=aspect-10;
for j:=1 to NfeuxDir+1 do
begin
s:=s+'(';
for k:=1 to Length(feux[i].AigDirection[j])-1 do
begin
s:=s+'A'+IntToSTR(feux[i].AigDirection[j][k].adresse) + feux[i].AigDirection[j][k].posaig;
if k<Length(feux[i].AigDirection[j])-1 then s:=s+',';
end;
s:=s+')';
end;
end;
encode_sig_feux:=s;
end;
// d<>code la ligne de signal et la stocke dans l'index i du tableau feux
function decode_ligne_feux(chaine_signal : string;i : integer) : boolean;
var s,chaine,sa : string;
j,k,l,t,id,adresse,adr,erreur ,asp,bd: integer;
c : char;
multiple,fini : boolean;
begin
decode_ligne_feux:=true; // pas de doublon
if i=0 then
begin
AfficheDebug('Erreur 670 : index nul',clred);
exit;
end;
s:=chaine_signal;
j:=pos(',',s);
if j>1 then
begin
// adresse de signal
val(s,adresse,erreur);
if adresse=0 then begin affiche('Erreur 671 ligne '+s,clred);exit;end;
// v<>rifier si le signal existe pour ne pas le stocker
for id:=1 to NbreFeux do
begin
if feux[id].adresse=adresse then
begin
decode_ligne_feux:=false;
exit;
end;
end;
inc(nbreFeux);
Delete(s,1,j);
feux[i].adresse:=adresse;
j:=pos(',',s);
if j>1 then
begin
sa:=copy(s,1,j-1);
if sa[1]='D' then
// feu directionnel ------------------------------------------
begin
delete(sa,1,1);
j:=pos(',',s);
val(sa,l,erreur); // nombre de feux du signal directionnel
if l>6 then
begin
Affiche('Erreur 672 ligne '+chaine_signal+' 6 feux maximum pour un panneau directionnel',clred);
exit;
end;
feux[i].aspect:=l+10;Delete(s,1,j);
// d<>codeur
val(s,adr,erreur);
Feux[i].decodeur:=adr;
if (adr>NbDecodeur-1) then Affiche('Erreur 673 ligne '+chaine_signal+' : erreur d<>codeur inconnu',clred);
j:=pos(',',s);Delete(s,1,j);
// liste des aiguillages
k:=1; // num<75>ro de feu directionnel
repeat
// boucle de direction
delete(s,1,1); // supprimer ( ou le ,
j:=1; // Nombre de descriptions d'aiguillages dans le feu
repeat
if s[1]<>'A' then begin Affiche('Erreur 674 ligne '+chaine_signal,clred);exit;end;
delete(s,1,1);
val(s,adr,erreur); // adresse
c:=#0;
if erreur<>0 then c:=s[erreur]; // type
setlength(feux[i].AigDirection[k],j+1); // augmenter le tableau dynamique
feux[i].AigDirection[k][j].PosAig:=c;
feux[i].AigDirection[k][j].Adresse:=adr;
delete(s,1,erreur); // supprime jusque S
//Affiche(s,clLime);
if s[1]=',' then delete(s,1,1);
inc(j);
until s[1]=')';
delete(s,1,1);
inc(k);
until length(s)<1;
dec(k);
if k<>l+1 then
begin
Affiche('Erreur 675 ligne '+chaine_signal,clred);
Affiche('Nombre incorrect de description des aiguillages: '+intToSTR(k)+' pour '+intToSTR(l)+' feux directionnels',clred);
end;
end
else
// feu de signalisation---------------------------------
begin
val(sa,asp,erreur); //aspect
if (asp<2) or (asp=6) or (asp=8) or (asp>9) then
begin
Affiche('Erreur 676: configuration aspect ('+intToSTR(asp)+') signal incorrect <20> la ligne '+chaine_signal,clRed);
asp:=2;
end;
feux[i].aspect:=asp;Delete(s,1,j);
j:=pos(',',s);
if j>1 then begin Feux[i].FeuBlanc:=(copy(s,1,j-1))='1';delete(s,1,j);end;
j:=pos(',',s);
val(s,Feux[i].decodeur,erreur);
if (Feux[i].decodeur>NbDecodeur-1) then Affiche('Erreur 677 Ligne '+chaine_signal+' : erreur d<>codeur inconnu: '+intToSTR(Feux[i].decodeur),clred);
if j<>0 then delete(s,1,j);
feux[i].Adr_el_suiv1:=0;feux[i].Adr_el_suiv2:=0;feux[i].Adr_el_suiv3:=0;feux[i].Adr_el_suiv4:=0;
feux[i].Btype_Suiv1:=rien;feux[i].Btype_Suiv2:=rien;feux[i].Btype_Suiv3:=rien;feux[i].Btype_Suiv4:=rien;
feux[i].Adr_det1:=0;feux[i].Adr_det2:=0;feux[i].Adr_det3:=0;feux[i].Adr_det4:=0;
// <20>l<EFBFBD>ments optionnels des voies suppl<70>mentaires
if j<>0 then
begin
sa:=s;
multiple:=s[1]='(';
if multiple then
begin
delete(s,1,1);
j:=0;
repeat
adr:=0;
k:=pos(',',s);
if k>1 then
begin
val(s,adr,erreur); // extraire l'adresse
Delete(s,1,k);
if Adr>NbMemZone then
begin
Affiche('Erreur 677A : ligne '+chaine_signal+' : adresse d<>tecteur trop grand: '+intToSTR(adr),clred);
Adr:=NbMemZone;
end;
end;
inc(j);
if (j=1) then feux[i].Adr_det1:=adr;
if (j=2) then feux[i].Adr_det2:=adr;
if (j=3) then feux[i].Adr_det3:=adr;
if (j=4) then feux[i].Adr_det4:=adr;
//type de l'<27>l<EFBFBD>ment suivant (1=d<>tecteur 2=aig ou TJD ou TJS 4=tri
if s[1]='A' then
begin
if (j=1) then feux[i].Btype_Suiv1:=aig;
if (j=2) then feux[i].Btype_Suiv2:=aig;
if (j=3) then feux[i].Btype_Suiv3:=aig;
if (j=4) then feux[i].Btype_Suiv4:=aig;
delete(s,1,1);
end
else
begin // d<>tecteur
if (j=1) then feux[i].Btype_Suiv1:=det;
if (j=2) then feux[i].Btype_Suiv2:=det;
if (j=3) then feux[i].Btype_Suiv3:=det;
if (j=4) then feux[i].Btype_Suiv4:=det;
end;
Val(s,adr,erreur);
if (j=1) then feux[i].Adr_el_suiv1:=Adr;
if (j=2) then feux[i].Adr_el_suiv2:=Adr;
if (j=3) then feux[i].Adr_el_suiv3:=Adr;
if (j=4) then feux[i].Adr_el_suiv4:=Adr;
delete(s,1,erreur-1);
if s[1]=',' then delete(s,1,1);
fini:=s[1]=')';
until (fini) or (j>4);
end;
end;
if (j>4) or (not(multiple)) then
begin
Affiche('Erreur 678: fichier de configuration ligne erronn<6E>e : '+chaine_signal,clred);
closefile(fichier);
exit;
end;
k:=pos(',',s);
delete(s,1,k);
//Affiche('s='+s,clyellow);
if length(s)=0 then begin Affiche('Erreur 679: fichier de configuration ligne erronn<6E>e : '+chaine_signal,clred); closefile(fichier);exit;end;
feux[i].VerrouCarre:=s[1]='1';
delete(s,1,1);
if length(s)>0 then if s[1]=',' then delete(s,1,1);
if copy(s,1,3)='FVC' then
begin
delete(s,1,3);
if length(s)>0 then begin feux[i].checkFV:=s[1]='1';delete(s,1,1);end;
end;
if length(s)>0 then if s[1]=',' then delete(s,1,1);
if copy(s,1,3)='FRC' then
begin
delete(s,1,3);
if length(s)>0 then begin feux[i].checkFR:=s[1]='1';delete(s,1,1);end;
end;
if length(s)>0 then if s[1]=',' then delete(s,1,1);
if length(s)>0 then if s[1]='U' then delete(s,1,1);
// si d<>codeur UniSemaf (6) champ suppl<70>mentaire U
if (Feux[i].decodeur=6) then
begin
Val(s,k,erreur);
delete(s,1,erreur);
if k=0 then
begin
if Feux[i].decodeur=6 then begin Affiche('Erreur 680 Ligne '+chaine_signal+' Manque d<>finition d<>codeur UniSemaf signal '+intToSTR(adresse),clred);end;
end
else
begin
Feux[i].UniSemaf:=k;
if Feux[i].decodeur=6 then
begin
erreur:=verif_UniSemaf(adresse,k);
if erreur=1 then begin Affiche('Erreur 681 Ligne '+chaine_signal+' Erreur code Unisemaf',clred);end;
if erreur=2 then
begin
Affiche('Erreur 682 Ligne '+chaine_signal+' Erreur coh<6F>rence signal (Adresse='+intToSTR(adresse)+' Aspect='+intToSTR(asp)+' et code Unisemaf=('+intToSTR(k)+')',clred);
end;
end;
end;
end;
end;
// voir si conditions suppl<70>mentaires de carr<72>
l:=1; // nombre de parenth<74>ses
repeat
t:=pos('(',s);
if t=1 then
begin
//Affiche('Conditions suppl<70>mentaires pour le feu '+IntToSTR(adresse)+' parenth<74>se '+intToSTR(l),clyellow);
k:=pos(')',s);
sa:=copy(s,t+1,k-t); // contient l'int<6E>rieur des parenth<74>ses sans les parenth<74>ses
delete(s,1,k+1);//Affiche(s,clYellow);
// boucle dans la parenth<74>se
bd:=0;
repeat
inc(bd);
setlength(feux[i].condCarre[l],bd+1); // une condition en plus
k:=pos(',',sa);
if k<>0 then
chaine:=copy(sa,1,k-1)
else
chaine:=sa;
if chaine[1]='A' then
begin
delete(chaine,1,1);
val(chaine,adresse,erreur);
feux[i].condCarre[l][bd].Adresse:=adresse;
if erreur<>0 then feux[i].condCarre[l][bd].PosAig:=chaine[erreur] else
Affiche('Erreur 683 D<>finition du signal '+IntToSTR(feux[i].adresse)+': Manque D ou S dans les conditions de carr<72> des aiguillages',clred);
end;
k:=pos(',',sa);if k<>0 then delete(sa,1,k);
until k=0;
inc(l);
end;
until t<>1;
if length(s)>1 then if s[1]=',' then delete(s,1,1);
// champ SR
if length(s)>2 then
if copy(s,1,2)='SR' then
begin
delete(s,1,3);
for l:=1 to 8 do
begin
k:=pos(',',s);
val(s,j,erreur);
delete(s,1,k);
feux[i].SR[l].sortie1:=j;
k:=pos(',',s);
val(s,j,erreur);
delete(s,1,k);
feux[i].SR[l].sortie0:=j;
end;
end;
// champ motif
if length(s)>3 then
if copy(s,1,3)='MOT' then
begin
delete(s,1,4);
for l:=1 to 19 do
begin
k:=pos(',',s);
val(s,j,erreur);
delete(s,1,k);
feux[i].SR[l].sortie1:=j;
end;
j:=pos('NA',s);
if j<>1 then affiche('Manque param<61>tre NA dans ligne '+chaine_signal,clred)
else
begin
delete(s,1,2);
val(s,j,erreur);
if (j<0) or (j>5) then
begin
j:=5;affiche('Param<61>tre NA incorrect dans ligne '+chaine_signal,clred)
end;
feux[i].na:=j;
end;
end;
end;
end;
end;
// transforme l'actionneur type loco ou actionneur ou son du tableau en texte
// param<61>tre d'entr<74>e : index
function encode_act_loc_son(i : integer): string;
var s : string;
adresse : integer;
begin
// adresse
adresse:=Tablo_Actionneur[i].adresse;
// type actionneur
case Tablo_Actionneur[i].typdeclenche of
0 :
begin
s:=IntToSTR(adresse);// if tablo_actionneur[i].det then s:=s+'Z';
end;
// type m<>moire de zone
3 :
begin
s:='Mem['+IntToSTR(adresse)+','+IntToSTR(Tablo_Actionneur[i].adresse2)+']';
end;
// type aiguillage
2 :
begin
s:='A'+IntToSTR(adresse);
end;
end;
if Tablo_Actionneur[i].loco then
s:=s+','+IntToSTR(Tablo_Actionneur[i].Etat)+','+Tablo_Actionneur[i].trainDecl+',F'+
IntToSTR(Tablo_Actionneur[i].fonction)+','+intToSTR(Tablo_Actionneur[i].tempo)+
','+Tablo_Actionneur[i].trainDest;
if Tablo_Actionneur[i].act then
begin
s:=s+','+IntToSTR(Tablo_Actionneur[i].Etat)+','+Tablo_Actionneur[i].trainDecl+
',A'+IntToSTR(Tablo_Actionneur[i].accessoire)+','+intToSTR(Tablo_Actionneur[i].sortie)+',';
if Tablo_Actionneur[i].Raz then s:=s+'Z' else s:=s+'S';
end;
if Tablo_Actionneur[i].son then
s:=s+','+IntToSTR(Tablo_Actionneur[i].Etat)+','+Tablo_Actionneur[i].trainDecl+',"'+Tablo_Actionneur[i].FichierSon+'"';
encode_act_loc_son:=s;
end;
// encode l'actionneur PN du tableau en texte
function encode_act_pn(i : integer) : string;
var s : string;
voie,NbVoies : integer;
begin
with formconfig do
begin
NbVoies:=Tablo_PN[i].NbVoies;
if NbVoies>5 then nbVoies:=5;
s:='';
// par actionneur
if tablo_PN[i].Voie[1].ActFerme<>0 then
begin
for voie:=1 to NbVoies do
begin
s:=s+'('+intToSTR(tablo_PN[i].Voie[voie].ActFerme)+','+intToSTR(tablo_PN[i].Voie[voie].ActOuvre)+')';
if voie<NbVoies then s:=s+',';
end;
end
else
// par d<>tecteur
begin
s:='';
for voie:=1 to NbVoies do
begin
s:=s+'('+intToSTR(tablo_PN[i].Voie[voie].detZ1F)+'-'+intToSTR(tablo_PN[i].Voie[voie].detZ2F)+','+intToSTR(tablo_PN[i].Voie[voie].detZ1O)+'-'+intToSTR(tablo_PN[i].Voie[voie].detZ2O)+')';
if voie<NbVoies then s:=s+',';
end;
end;
s:=s+',PN('+IntToSTR(tablo_PN[i].AdresseFerme)+',';
s:=s+intToSTR(tablo_PN[i].commandeFerme)+',';
s:=s+IntToSTR(tablo_PN[i].AdresseOuvre)+',';
s:=s+intToSTR(tablo_PN[i].commandeOuvre)+'),';
if tablo_PN[i].pulse=1 then s:=s+'1' else s:=s+'0';
end;
encode_act_pn:=s;
end;
function Train_tablo(index : integer) : string;
begin
result:=trains[index].nom_train+','+inttostr(trains[index].adresse)+','+
intToSTR(trains[index].vitmax)+','+intToSTR(trains[index].vitnominale)+','+
intToSTR(trains[index].vitRalenti);
end;
// modifie le fichier de config en fonction du param<61>trage
// recopie les commentaires du fichier "fichier"
procedure genere_config;
var s: string;
fichierN : text;
i : integer;
begin
assign(fichierN,NomConfig);
rewrite(fichierN);
// ent<6E>te
// copie_commentaire;
s:='/ Fichier de configuration de signaux_complexes_GL version '+version+sousversion;
writeln(fichierN,s);
writeln(fichierN,AvecVerifIconesTCO_ch+'=',AvecVerifIconesTCO);
writeln(fichierN,Algo_localisation_ch+'=',Algo_localisation);
writeln(fichierN,Avec_roulage_ch+'=',avecRoulage);
writeln(fichierN,debug_ch+'=',debug);
writeln(fichierN,Filtrage_det_ch+'=',filtrageDet0);
writeln(fichierN,AntiTimeoutEthLenz_ch+'=',AntiTimeoutEthLenz);
// taille de la fonte
writeln(fichierN,Fonte_ch+'=',TailleFonte);
FormPrinc.FenRich.Font.Size:=TailleFonte;
writeln(fichierN,Protocole_ch+'=',protocole);
writeln(fichierN,Verif_AdrXpressNet_ch+'=',Verif_AdrXpressNet);
// adresse ip et port de CDM
writeln(fichierN,IpV4_PC_ch+'=',adresseIPCDM+':'+intToSTR(portCDM));
// adresse ip interface XpressNet
writeln(fichierN,IPV4_Interface_ch+'=',adresseIP+':'+intToSTR(portInterface));
// max com
writeln(fichierN,Maxcom_ch+'=',MaxPortCom);
// port com
writeln(fichierN,Protocole_serie_ch+'=',portcom);
// temporisation caract<63>re TempoOctet
writeln(fichierN,Inter_Car_ch+'=',IntToSTR(TempoOctet));
// temporisation attente maximale interface
writeln(fichierN,Tempo_maxi_ch+'=',IntToSTR(TimoutMaxInterface));
// entete Valeur_entete
writeln(fichierN,Entete_ch+'=',intToSTR(Valeur_entete));
// avec ou sans initialisation des aiguillages
if AvecInitAiguillages then s:='1' else s:='0';
writeln(fichierN,Init_Aig_ch+'='+s);
// avec ou sans demande de la position des aiguillages en mode autonome
if AvecDemandeAiguillages then s:='1' else s:='0';
writeln(fichierN,Init_dem_aig_ch+'='+s);
// temporisation initialisation des aiguillages
writeln(fichierN,Tempo_aig_ch+'=',IntToSTR(Tempo_aig));
// connexion de l'interface en COM/USB
if AvecDemandeInterfaceUSB then s:='1' else s:='0';
writeln(fichierN,Init_dem_interfaceUSBCOM_ch+'='+s);
// connexion de l'interface en Ethernet
if AvecDemandeInterfaceEth then s:='1' else s:='0';
writeln(fichierN,Init_dem_interfaceEth_ch+'='+s);
// plein <20>cran
writeln(fichierN,Fenetre_ch+'=',fenetre);
// Nombre maxi de d<>tecteurs consid<69>r<EFBFBD>s distants
writeln(fichierN,nb_det_dist_ch+'=',Nb_Det_Dist);
// V<>rification des versions au d<>marrage
if verifVersion then s:='1' else s:='0';
writeln(fichierN,verif_version_ch+'=',s);
// Notification de nouvelle version
if notificationVersion then s:='1' else s:='0';
writeln(fichierN,notif_version_ch+'=',s);
// Avec TCO
if AvecTCO then s:='1' else s:='0';
writeln(fichierN,TCO_ch+'=',s);
if MasqueBandeauTCO then s:='1' else s:='0';
writeln(fichierN,MasqueBandeauTCO_ch+'=',s);
// lancement de CDM
if LanceCDM then s:='1' else s:='0';
writeln(fichierN,CDM_ch+'=',s);
// Nom du lay
writeln(fichierN,lay_ch+'=',Lay);
// Serveur d'interface de CDM
writeln(fichierN,Serveur_interface_ch+'=',intToSTR(ServeurInterfaceCDM));
// Serveur de r<>trosignalisation Lenz de CDM
writeln(fichierN,retro_ch+'=',intToSTR(ServeurRetroCDM));
// Raz Signaux
if Raz_Acc_signaux then s:='1' else s:='0';
writeln(fichierN,Raz_signaux_ch+'='+s);
// temporisation entre 2 commandes d<>codeurs feu
writeln(fichierN,Tempo_feu_ch+'=',IntToSTR(Tempo_feu));
// Nombre de cantons avant signal
writeln(fichierN,Nb_cantons_Sig_ch+'=',intToSTR(Nb_cantons_Sig));
// algorithme Unisemaf
writeln(fichierN,Algo_unisemaf_ch+'=',IntToSTR(algo_Unisemaf));
// aiguillages
writeln(fichierN,'/------------');
writeln(fichierN,section_aig_ch);
for i:=1 to MaxAiguillage do
begin
s:=encode_aig(i);
aiguillage[i].modifie:=false; // sauvegarde en cours, on d<>marque
writeln(fichierN,s);
end;
writeln(fichierN,'0');
writeln(fichierN,'/------------');
writeln(fichierN,section_Branches_ch);
// branches
for i:=1 to NbreBranches do
begin
s:=Branche[i];
writeln(fichierN,s);
end;
writeln(fichierN,'0');
writeln(fichierN,'/------------');
writeln(fichierN,section_sig_ch);
// feux
for i:=1 to NbreFeux do
begin
s:=encode_sig_feux(i);
// transformer le tableau feux en ligne
//Affiche(s,clLime);
if s='' then Affiche('Erreur 700 - Encodage du feu index='+IntToSTR(i),clRed);
feux[i].modifie:=false; // sauvegarde en cours, on d<>marque
writeln(fichierN,s);
end;
writeln(fichierN,'0');
// Fonctions Fx
// actionneurs Train ou accessoire
writeln(fichierN,'/------------');
writeln(fichierN,section_act_ch);
for i:=1 to maxTablo_act do
begin
s:=encode_act_loc_son(i);
if s<>'' then writeln(fichierN,s);
end;
writeln(fichierN,'/------------');
// actionneurs PN
for i:=1 to NbrePN do
begin
s:=encode_act_pn(i);
if s<>'' then if s<>'' then writeln(fichierN,s);
end;
writeln(fichierN,'0');
writeln(fichierN,'/------------');
writeln(fichierN,section_dccpp_ch);
writeln(fichierN,EnvAigDccpp_ch+'=',EnvAigDccpp);
writeln(fichierN,AdrBaseDetDccpp_ch+'=',AdrBaseDetDccpp);
writeln(fichierN,section_initpp_ch);
// commandes DCC++
i:=1;
repeat
s:=CdeDccpp[i];
inc(i);
if s<>'' then writeln(fichierN,s);
until (s='') or (i>MaxCdeDccpp);
writeln(fichierN,'0');
// trains
writeln(fichierN,'/------------');
writeln(fichierN,section_trains_ch);
for i:=1 to ntrains do
begin
writeln(fichierN,Train_tablo(i));
end;
writeln(fichierN,'0');
// placement des trains
writeln(fichierN,'/------------');
writeln(fichierN,section_placement_ch);
for i:=1 to 6 do
begin
s:=placement[i].train+','+inttoSTR(placement[i].detecteur)+',';
s:=s+intToSTR(placement[i].detdir)+',';
if placement[i].inverse then s:=s+'1' else s:=s+'0';
writeln(fichierN,s);
end;
writeln(fichierN,'0');
closefile(fichierN);
end;
procedure lit_config;
var s,sa,SOrigine: string;
c : char;
tec,tjdC,tjsC,s2,triC,debugConfig,trouve_NbDetDist,trouve_ipv4_PC,trouve_retro,trouve_protocole,
trouve_sec_init,trouve_init_aig,trouve_lay,trouve_IPV4_INTERFACE,trouve_PROTOCOLE_SERIE,trouve_INTER_CAR,
trouve_Tempo_maxi,trouve_Entete,trouve_tco,trouve_cdm,trouve_Serveur_interface,trouve_fenetre,trouve_MasqueTCO,
trouve_NOTIF_VERSION,trouve_verif_version,trouve_fonte,trouve_tempo_aig,trouve_raz,trouve_section_aig,
trouve_section_branche,trouve_section_sig,trouve_section_act,trouve_tempo_feu,
trouve_algo_uni,croi,trouve_Nb_cantons_Sig,trouve_dem_aig,trouve_demcnxCOMUSB,trouve_demcnxEth : boolean;
virgule,i_detect,i,erreur,aig2,detect,offset,j,position,
ComptEl,Compt_IT,Num_Element,adr,t,Nligne,postriple,itl,
postjd,postjs,nv,it,Num_Champ,asp,adraig,poscroi : integer;
function lit_ligne : string ;
var esp,l1,l2 : integer;
begin
repeat
readln(fichier,s);
sOrigine:=s;
s:=uppercase(s);
if length(s)>0 then c:=s[1];
until ((c<>'/') and (s<>'')) or eof(fichier) ;
// supprime les espaces <20>ventuels sauf entre les guillements
esp:=0;
repeat
l1:=pos('"',s);l2:=posEx('"',s,l1+1);
esp:=posEx(' ',s,Esp+1);
if (esp<>0) and (esp<l1) and (esp>l2) then delete(s,esp,1);
until esp=0;
lit_ligne:=s;
if debug=1 then affiche(s,clLime);
end;
procedure compile_signaux;
begin
//Affiche('D<>finition des signaux',clyellow);
i:=1;Nligne:=1;
NbreFeux:=0;
repeat
inc(Nligne);
s:=lit_ligne;
if s<>'0' then
begin
if NbreFeux>=NbreMaxiSignaux then
begin
Affiche('Nombre maximal de signaux atteint',clRed);
end
else
begin
if decode_ligne_feux(s,i) then // d<>code la chaine et stocke en tableau feux
begin
inc(i);
end
else
Affiche('Erreur 9 : signal '+s+' en doublon a <20>t<EFBFBD> ignor<6F>',clred);
end;
end;
until (s='0') or eof(fichier);
end;
procedure compile_branches;
begin
// branches
NDetecteurs:=0;
Nligne:=1;
i_detect:=1;
i:=1;
//Affiche('D<>finition des branches',clyellow);
repeat
s:=lit_ligne;
if s<>'0' then
begin
branche[i]:=s;
j:=1;offset:=1;
inc(Nligne);
compile_branche(s,i);
inc(i);
end;
until (s='0') or eof(fichier) or (i>=MaxBranches);
if i>MaxBranches then Affiche('Nombre maximal de branches atteint',clRed);
NbreBranches:=i-1;
end;
procedure compile_actionneurs;
var i : integer;
begin
// raz des actionneurs
for i:=1 to Max_actionneurs do
begin
Tablo_actionneur[i].trainDecl:='';
Tablo_actionneur[i].trainDest:='';
Tablo_actionneur[i].etat:=0;
Tablo_actionneur[i].adresse:=0;
Tablo_actionneur[i].adresse2:=0;
Tablo_Actionneur[i].typdeclenche:=0;
Tablo_actionneur[i].accessoire:=0;
Tablo_actionneur[i].sortie:=0;
Tablo_actionneur[i].fichierSon:='';
// Tablo_actionneur[i].det:=false;
Tablo_actionneur[i].loco:=false;
Tablo_actionneur[i].act:=false;
Tablo_actionneur[i].son:=false;
end;
maxTablo_act:=1;
NbrePN:=0;Nligne:=1;
// d<>finition des actionneurs
repeat
s:=lit_ligne;
if (s<>'0') and (s<>'') then
begin
//Affiche(s,clyellow);
sa:=s; sOrigine:=s;
if s[1]='A' then
begin
Tablo_actionneur[maxtablo_act].typdeclenche:=2; // type aiguillage
Delete(sa,1,1);
val(sa,j,erreur);
Tablo_actionneur[maxtablo_act].adresse:=j;
delete(sa,1,erreur);
s:=sa;
end;
i:=pos('MEM[',sOrigine);
if i>0 then
begin
Tablo_actionneur[maxtablo_act].typdeclenche:=3; // type m<>moire de zone
Delete(sa,1,4);
val(sa,j,erreur);
Tablo_actionneur[maxtablo_act].adresse:=j;
i:=pos(',',sa);delete(sa,1,i);
val(sa,j,erreur);
i:=pos(',',sa);
Tablo_actionneur[maxtablo_act].adresse2:=j;
delete(sa,1,i);
s:=sa; // m<>mo s
end;
if length(sOrigine)>1 then
begin
if (sOrigine[1]<>'(') and (sorigine[1]<>'A') and (pos('MEM[',sOrigine)=0) then // si pas d<>tecteur de PN
begin
Tablo_actionneur[maxtablo_act].typdeclenche:=0; // type actionneur
val(sa,j,erreur);
Tablo_actionneur[maxtablo_act].adresse:=j;
delete(sa,1,erreur);
s:=sa;
end;
end;
// v<>rifier si F ou A ou " au 4eme champ
i:=pos(',',sa);
if i>0 then delete(sa,1,i) else s:='0';
i:=pos(',',sa);
if i>0 then delete(sa,1,i) else s:='0';
inc(Nligne);
if length(sa)>1 then if (sa[1]='"') then
// -----------------son
begin
Tablo_actionneur[maxtablo_act].act:=false;
Tablo_actionneur[maxtablo_act].son:=true;
Tablo_actionneur[maxtablo_act].loco:=false;
i:=pos(',',s);
if i<>0 then
begin
val(s,j,erreur);
Tablo_actionneur[maxTablo_act].etat:=j;
Delete(s,1,erreur);
i:=pos(',',s);
Tablo_actionneur[maxTablo_act].trainDecl:=copy(s,1,i-1);
Delete(s,1,i);
i:=pos('"',s);if i<>0 then Delete(s,i,1);
i:=pos('"',s);if i<>0 then Delete(s,i,1);
Tablo_actionneur[maxTablo_act].fichierSon:=s;
inc(maxTablo_act);
end;
end;
if length(sa)>1 then if (sa[1]='A') then
// -----------------accessoire
begin
Tablo_actionneur[maxtablo_act].act:=true;
Tablo_actionneur[maxtablo_act].son:=false;
Tablo_actionneur[maxtablo_act].loco:=false;
i:=pos(',',s);
if i<>0 then
begin
val(s,j,erreur);
Tablo_actionneur[maxTablo_act].etat:=j;
Delete(s,1,erreur);
i:=pos(',',s);
Tablo_actionneur[maxTablo_act].trainDecl:=copy(s,1,i-1);
Delete(s,1,i);
i:=pos('A',s);
if i<>0 then
begin
Delete(s,1,1);
val(s,j,erreur);
Tablo_actionneur[maxTablo_act].Accessoire:=j;
i:=pos(',',s);
if i<>0 then
begin
Delete(S,1,i);
val(s,j,erreur);
Tablo_actionneur[maxTablo_act].sortie:=j;
end;
i:=pos(',',s);
if i<>0 then
begin
Delete(S,1,i);
Tablo_actionneur[maxTablo_act].RAZ:=s[1]='Z';
inc(maxTablo_act);
end;
end;
s:='';i:=0;
end;
end;
if length(sa)>1 then if (sa[1]='F') then
// -----------------fonction loco
begin
Tablo_actionneur[maxtablo_act].act:=false;
Tablo_actionneur[maxtablo_act].loco:=true;
Tablo_actionneur[maxtablo_act].son:=false;
// 815,1,CC406526,F2,450
i:=pos(',',s);
if i<>0 then
begin
val(s,j,erreur);
Tablo_actionneur[maxTablo_act].etat:=j;
Delete(s,1,erreur);
i:=pos(',',s);
Tablo_actionneur[maxTablo_act].trainDecl:=copy(s,1,i-1);
Delete(s,1,i);
i:=pos('F',s);
if i<>0 then
begin
Delete(s,1,1);
val(s,j,erreur);
Tablo_actionneur[maxTablo_act].Fonction:=j;
i:=pos(',',s);// champ tempo
if i<>0 then
begin
Delete(S,1,i);
val(s,j,erreur);
Tablo_actionneur[maxTablo_act].Tempo:=j;
i:=pos(',',s); // champ train dest
if i=0 then tablo_actionneur[maxTablo_act].TrainDest:=tablo_actionneur[maxTablo_act].TrainDecl
else
begin
tablo_actionneur[maxTablo_act].TrainDest:=copy(s,i+1,length(s)-i);
end;
inc(maxTablo_act);
end;
end;
s:='';i:=0;
end;
end;
// Passage <20> niveau
if (pos('PN',s)<>0) then
begin
inc(NbrePN);
NbreVoies:=0;
repeat
inc(NbreVoies);
Delete(s,1,1); // supprime (
// d<>terminer si il y a un - avant le )
j:=pos(')',s);
i:=pos('-',s);
if (i<j) and (i<>0) then
begin
// zone de d<>tection
val(s,j,erreur);
Tablo_PN[NbrePN].voie[NbreVoies].detZ1F:=j;
delete(s,1,erreur);
val(s,j,erreur);
Tablo_PN[NbrePN].voie[NbreVoies].detZ2F:=j;
delete(s,1,erreur);
val(s,j,erreur);
Tablo_PN[NbrePN].voie[NbreVoies].detZ1O:=j;
delete(s,1,erreur);
val(s,j,erreur);
Tablo_PN[NbrePN].voie[NbreVoies].detZ2O:=j;
end
else
begin
// actionneurs
val(s,j,erreur);
Tablo_PN[NbrePN].voie[NbreVoies].ActFerme:=j;
// Affiche('Ferme='+intToSTR(j),clyellow);
i:=pos(',',s);
Delete(S,1,i);
val(s,j,erreur);
Tablo_PN[NbrePN].voie[NbreVoies].ActOuvre:=j;
// Affiche('Ouvre='+intToSTR(j),clyellow);
end;
i:=pos(')',s);Delete(S,1,i);
i:=pos(',',s);Delete(S,1,i);
Tablo_PN[NbrePN].compteur:=0;
until (copy(s,1,2)='PN') or (NbreVoies=5);
Tablo_PN[NbrePN].NbVoies:=NbreVoies;
Delete(s,1,3); // Supprime PN(
val(s,j,erreur);
Tablo_PN[NbrePN].Adresseferme:=j;
Delete(s,1,erreur-1);
if s[1]=',' then delete(s,1,1);
if s[1]='+' then Tablo_PN[NbrePN].CommandeFerme:=2
else
if s[1]='-' then Tablo_PN[NbrePN].CommandeFerme:=1
else
begin
// nouvelle syntaxe
val(s,j,erreur);
Tablo_PN[NbrePN].CommandeFerme:=j;
end;
j:=pos(',',s);
Delete(s,1,j); // supprime s<>parateurs
val(s,j,erreur);
Tablo_PN[NbrePN].AdresseOuvre:=j;
Delete(s,1,erreur-1);
if s[1]=',' then delete(s,1,1);
if s[1]='+' then Tablo_PN[NbrePN].CommandeOuvre:=2
else
if s[1]='-' then Tablo_PN[NbrePN].CommandeOuvre:=1
else
begin
// nouvelle syntaxe
val(s,j,erreur);
Tablo_PN[NbrePN].CommandeOuvre:=j;
end;
j:=pos(')',s);
Delete(s,1,j); // supprime s<>parateurs
if length(s)>0 then
begin
// champ impulsion nouvelle syntaxe
if s[1]=',' then delete(s,1,1);
val(s,i,erreur);
Tablo_PN[NbrePN].Pulse:=i;
s:='';
end;
end;
end;
until (s='0') or eof(fichier) ;
dec(maxTablo_act);
end;
procedure compile_aiguillages;
begin
//Affiche('D<>finition des aiguillages',clyellow);
maxaiguillage:=0;
Nligne:=1;
repeat
s:=lit_ligne;
inc(Nligne);
//Affiche(s,ClLime);
//chaine:=s;
if debugconfig then Affiche(s,ClLime);
if (s<>'0') then
begin
if MaxAiguillage>=NbreMaxiAiguillages then
begin
Affiche('Nombre maximal d''aiguillages atteint',clRed);
end
else
inc(maxaiguillage);
virgule:=pos(',',s);
enregistrement:=copy(s,1,virgule-1); // adresse de l'aiguillage [TRI]
delete(s,1,virgule);
postriple:=pos('TRI',enregistrement);triC:=postriple<>0;if triC then delete(enregistrement,postriple,3);
postjd:=pos('TJD',enregistrement);tjdC:=postjd<>0;if tjdC then delete(enregistrement,postjd,3);
postjs:=pos('TJS',enregistrement);tjsC:=postjs<>0;if tjsC then delete(enregistrement,postjs,3);
poscroi:=pos('CROI',enregistrement);croi:=poscroi<>0;if croi then delete(enregistrement,poscroi,4);
// adresse de l'aiguillage
Val(enregistrement,adraig,erreur); // adraig = adresse de l'aiguillage
if erreur<>0 then Affiche('Erreur aiguillage '+intToSTR(adraig)+' ; caract<63>re '+enregistrement[erreur]+' inconnu',clred);
if debugConfig then Affiche('Adresse='+IntToSTR(adraig)+' enregistrement='+Enregistrement,clyellow);
aiguillage[maxaiguillage].adresse:=adraig;
aiguillage[maxaiguillage].AdroitB:='Z'; aiguillage[maxaiguillage].AdevieB:='Z';
aiguillage[maxaiguillage].DdroitB:='Z'; aiguillage[maxaiguillage].DdevieB:='Z';
aiguillage[maxaiguillage].ApointeB:='Z';
aiguillage[maxaiguillage].Adevie2B:='Z';
if (triC) then aiguillage[maxaiguillage].modele:=triple;
if (tjsC) then
begin
aiguillage[maxaiguillage].modele:=tjs
end;
if (tjdC) then
begin
aiguillage[maxaiguillage].modele:=tjd ;
end;
if not(tjsC) and not(tjdC) and not(triC) then
begin
aiguillage[maxaiguillage].modele:=aig;
end;
if croi then aiguillage[maxaiguillage].modele:=crois;
if (triC) then
begin
Val(s,aig2,erreur); // aig = 2eme adresse de l'aiguillage
aiguillage[maxaiguillage].AdrTriple:=aig2;
virgule:=pos(',',s);
delete(s,1,virgule);
end;
ComptEl:=0;Compt_It:=0;Num_element:=Num_element+1;
// pr<70>parer l'enregistrement pour la boucle de ligne
enregistrement:=s;
Num_Champ:=1;
itl:=0;
repeat // parcoure la ligne
if (debugConfig) then Affiche('boucle de ligne: '+s,clYellow);
if (length(enregistrement)<>0) then
if (enregistrement[1]='P') then
begin
if tjdC then begin affiche('Erreur P interdit dans une TJD : '+sOrigine,clred);exit; end;
if debugconfig then Affiche('Section P - enregistrement='+enregistrement,clYellow);
ComptEl:=ComptEl+1;
decodeAig(enregistrement,detect,c);
if c='' then c:='Z';
aiguillage[maxaiguillage].Apointe:=detect;
aiguillage[maxaiguillage].ApointeB:=c;
virgule:=pos(',',enregistrement);if virgule=0 then virgule:=length(Enregistrement)+1;
delete(enregistrement,1,virgule);
end;
if (length(enregistrement)<>0) then // section droite
if (enregistrement[1]='D') then
begin
if debugconfig then Affiche('Section D - enregistrement='+enregistrement,clYellow);
ComptEl:=ComptEl+1;
if tjdC or tjsC or croi then
begin
Delete(Enregistrement,1,2);
decodeAig(Enregistrement,detect,c);
aiguillage[maxaiguillage].Adroit:=detect;
aiguillage[maxaiguillage].AdroitB:=c;
i:=pos(',',Enregistrement);Delete(Enregistrement,1,i);
decodeAig(Enregistrement,detect,c);
aiguillage[maxaiguillage].DDroit:=detect;
aiguillage[maxaiguillage].DdroitB:=c;
i:=pos(')',enregistrement);if i=0 then begin Affiche('Erreur de syntaxe ligne '+SOrigine,clred);exit;end;
Delete(enregistrement,1,i+1);
end
else
begin
decodeAig(enregistrement,detect,c);
if c='' then c:='Z';
aiguillage[maxaiguillage].Adroit:=detect;
aiguillage[maxaiguillage].AdroitB:=c;
virgule:=pos(',',enregistrement);if virgule=0 then virgule:=length(enregistrement)+1;
delete(enregistrement,1,virgule);
end;
end;
if (length(enregistrement)<>0) then
if (enregistrement[1]='S') then
begin
if debugconfig then Affiche('Section S - enregistrement='+enregistrement,clYellow);
ComptEl:=ComptEl+1;
if tjdC or tjsC or croi then
begin
Delete(enregistrement,1,2);
decodeAig(enregistrement,detect,c);
aiguillage[maxaiguillage].Adevie:=detect;
aiguillage[maxaiguillage].AdevieB:=c;
i:=pos(',',enregistrement);Delete(enregistrement,1,i);
decodeAig(enregistrement,detect,c);
aiguillage[maxaiguillage].DDevie:=detect;
aiguillage[maxaiguillage].DDevieB:=c;
i:=pos(')',enregistrement);if i=0 then begin Affiche('Erreur de syntaxe ligne '+SOrigine,clred);exit;end;
Delete(enregistrement,1,i+1);
//Affiche(enregistrement,clBlue);
end
else
begin
delete(enregistrement,1,1); // supprime le S
i:=pos(',',enregistrement);
if i=0 then i:=length(enregistrement)+1;
s:=copy(enregistrement,1,i-1); // isole la zone S
erreur:=pos('2-',s);
S2:=erreur<>0;
if (S2) then delete(s,erreur,2);
erreur:=pos('S2',s); // description d'un rattachement <20> la branche S2 d'un aiguillage triple
tec:=erreur<>0; // ne supprimer que le 2
if (tec) then delete(s,erreur+1,1);
//val(enregistrement,detect,erreur); // extraction de l'adresse
decodeAig(s,detect,c);
//if ((detect=0) and (erreur=0)) then Affiche('Erreur pas d''adresse dans section S: '+s,clred);
//c:='Z';
//if (erreur<>0) then begin delete(enregistrement,1,erreur-1);c:=enregistrement[1];end;
if not(S2) and not(tec) then begin aiguillage[maxaiguillage].Adevie:=detect;aiguillage[maxaiguillage].AdevieB:=c;end;
if S2 and not(tec) then begin aiguillage[maxaiguillage].Adevie2:=detect;aiguillage[maxaiguillage].Adevie2B:=c;end;
if S2 and tec then begin aiguillage[maxaiguillage].Adevie2:=detect;aiguillage[maxaiguillage].Adevie2B:='T';end;
virgule:=pos(',',enregistrement);if virgule=0 then virgule:=length(enregistrement)+1;
delete(enregistrement,1,virgule);;
end;
end;
// inversion aiguillage
if (length(enregistrement)<>0) then
if (enregistrement[1]='I') then
begin
inc(Num_Champ);
delete(enregistrement,1,1);
Val(enregistrement,adr,erreur);
if (adr<0) or (adr>1) then begin Affiche('Erreur Inversion ; ligne '+sOrigine,clred);end;
//Affiche(intTostr(adr),clblue);
Aiguillage[maxaiguillage].inversionCDM:=adr;
virgule:=pos(',',enregistrement);if virgule=0 then virgule:=length(s)+1;
delete(enregistrement,1,virgule);
end;
// si vitesse d<>finie
if (length(enregistrement)<>0) then
if enregistrement[1]='V' then
begin
inc(num_champ);
delete(enregistrement,1,1);
Val(enregistrement,adr,erreur);
//Affiche('section vitesse d<>finie aig='+intToSTR(aig)+'/'+intToSTR(adr),clyellow);
aiguillage[maxaiguillage].vitesse:=adr;
virgule:=pos(',',enregistrement);if virgule=0 then virgule:=length(s)+1;
delete(enregistrement,1,virgule);
end;
// TJS et L
if (length(enregistrement)<>0) then
if enregistrement[1]='L' then
begin
if not(tjsC) then begin Affiche('Erreur param<61>tre L ligne: '+sOrigine,clred);exit;end;
inc(num_champ);
delete(enregistrement,1,1);
Val(enregistrement,adr,erreur);
aiguillage[maxaiguillage].tjsInt:=adr;
c:=#0;
if erreur<>0 then c:=enregistrement[erreur];
if ((c<>'S') and (c<>'D')) then
begin
c:=' ';Affiche('Erreur param<61>tre L '+sOrigine,clred);
end;
aiguillage[maxaiguillage].tjsIntB:=c;
virgule:=pos(',',enregistrement);if virgule=0 then virgule:=length(enregistrement)+1;
delete(enregistrement,1,virgule);
end;
// Init aiguillage
i:=pos('INIT(',enregistrement);
if i=1 then
begin
inc(num_champ);
delete(enregistrement,i,i+4);
Val(enregistrement,position,erreur);
i:=pos(',',enregistrement);
if i<>0 then delete(enregistrement,1,i);
Val(enregistrement,j,erreur);
aiguillage[maxaiguillage].temps:=j;
aiguillage[maxaiguillage].posinit:=position;
i:=pos(')',enregistrement);
delete(enregistrement,1,i);
virgule:=pos(',',enregistrement);if virgule=0 then virgule:=length(enregistrement)+1;
delete(enregistrement,1,virgule);
end;
// nombre d'<27>tats de la TJD
if (length(enregistrement)<>0) then
if enregistrement[1]='E' then
begin
inc(num_champ);
delete(enregistrement,1,1);
Val(enregistrement,adr,erreur);
aiguillage[maxaiguillage].EtatTJD:=adr;
virgule:=pos(',',enregistrement);if virgule=0 then virgule:=length(s)+1;
delete(enregistrement,1,virgule);
end;
inc(itl);
until (enregistrement='') or (itl>3);
if itl>4 then begin Affiche('Erreur 400 ligne '+sOrigine,clred);exit;end;
end;
until (sOrigine='0');
end;
procedure compile_dccpp;
var nv,i : integer;
begin
Nligne:=1;
nv:=0;
repeat
lit_ligne;
sa:=sOrigine;
sa:=uppercase(EnvAigDccpp_ch);
i:=pos(sa,s);
if i<>0 then
begin
inc(nv);
delete(s,i,length(sa)+1);
val(s,EnvAigDccpp,erreur);
s:='';
end;
sa:=uppercase(AdrBaseDetDccpp_ch);
i:=pos(sa,s);
if i<>0 then
begin
inc(nv);
delete(s,i,length(sa)+1);
val(s,AdrBaseDetDccpp,erreur);
s:='';
end;
sa:=uppercase(section_initpp_ch);
i:=pos(sa,s);
if i<>0 then
begin
inc(nv);
nLigne:=1;
repeat
lit_ligne;
s:=sOrigine;
if s<>'0' then CdeDccpp[Nligne]:=s;
inc(Nligne);
until eof(fichier) or (s='') or (s='0') or (nLigne>MaxCdeDccpp);
end;
until eof(fichier) or (s='0');
end;
procedure compile_trains;
var i,erreur : integer;
begin
ntrains:=0;
repeat
lit_ligne;
if s<>'0' then
begin
inc(ntrains);
sa:=sOrigine;
i:=pos(',',s);
if i<>0 then
begin
trains[ntrains].nom_train:=copy(sa,1,i-1);
delete(s,1,i-1);
end;
i:=pos(',',s);
if i<>0 then
begin
delete(s,i,1);
val(s,trains[ntrains].adresse,erreur);
delete(s,1,erreur-1);
end;
i:=pos(',',s);
if i<>0 then
begin
delete(s,i,1);
val(s,trains[ntrains].vitMax,erreur);
delete(s,1,erreur-1);
end;
i:=pos(',',s);
if i<>0 then
begin
delete(s,i,1);
val(s,trains[ntrains].vitnominale,erreur);
delete(s,1,erreur-1);
end;
i:=pos(',',s);
if i<>0 then
begin
delete(s,i,1);
val(s,trains[ntrains].vitralenti,erreur);
delete(s,1,erreur-1);
end;
Formprinc.ComboTrains.Items.Add(trains[ntrains].nom_train);
end;
if ntrains>1 then
with Formprinc do
begin
ComboTrains.ItemIndex:=0;
editadrtrain.Text:=inttostr(trains[1].adresse);
end;
until (sOrigine='0') or (ntrains>=Max_Trains);
end;
procedure lit_flux;
label ici1,ici2,ici3,ici4 ;
var i : integer;
// d<>but de la proc<6F>dure lit_config
begin
// valeurs par d<>faut
Nb_cantons_Sig:=3;
nv:=0; it:=0;
// taille de fonte
repeat
s:=lit_ligne;
sa:=uppercase(debug_ch)+'=';
i:=pos(sa,s);
if i=1 then
begin
delete(s,i,length(sa));
val(s,debug,erreur);
end;
sa:=uppercase(Verif_AdrXpressNet_ch)+'=';
i:=pos(sa,s);
if i=1 then
begin
delete(s,i,length(sa));
val(s,Verif_AdrXpressNet,erreur);
end;
sa:=uppercase(Filtrage_det_ch)+'=';
i:=pos(sa,s);
if i=1 then
begin
delete(s,i,length(sa));
val(s,filtrageDet0,erreur);
end;
sa:=uppercase(AntiTimeoutEthLenz_ch)+'=';
i:=pos(sa,s);
if i=1 then
begin
delete(s,i,length(sa));
val(s,AntiTimeoutEthLenz,erreur);
end;
sa:=uppercase(Algo_localisation_ch)+'=';
i:=pos(sa,s);
if i=1 then
begin
delete(s,i,length(sa));
val(s,Algo_localisation,erreur);
if Algo_localisation<>1 then Affiche('Avertissement: Algo_localisation='+intToSTR(algo_localisation)+' est exp<78>rimental et non garanti',clorange);
end;
sa:=uppercase(Avec_roulage_ch)+'=';
i:=pos(sa,s);
if i=1 then
begin
delete(s,i,length(sa));
val(s,AvecRoulage,erreur);
if avecRoulage=1 then Formprinc.roulage1.visible:=true;
end;
sa:=uppercase(Fonte_ch)+'=';
i:=pos(sa,s);
if i=1 then
begin
inc(nv);
trouve_fonte:=true;
delete(s,i,length(sa));
val(s,TailleFonte,erreur);
if (TailleFonte<8) or (tailleFonte>25) then taillefonte:=10;
FormPrinc.FenRich.Font.Size:=TailleFonte;
end;
sa:=uppercase(Protocole_ch)+'=';
i:=pos(sa,s);
if i=1 then
begin
inc(nv);
trouve_protocole:=true;
delete(s,i,length(sa));
val(s,Protocole,erreur);
if (Protocole<1) or (Protocole>2) then Protocole:=1; //1=xpressnet 2=DCC+
end;
// adresse ip et port de CDM
sa:=uppercase(IpV4_PC_ch)+'=';
i:=pos(sa,s);
if i=1 then
begin
inc(nv);
trouve_ipv4_PC:=true;
delete(s,i,length(sa));
i:=pos(':',s);
if i<>0 then
begin
adresseIPCDM:=copy(s,1,i-1);Delete(s,1,i);
val(s,portCDM,erreur);
if (portCDM=0) or (portCDM>65535) or (erreur<>0) then affiche('Erreur port CDM : '+s,clred);
end
else affiche('Erreur adresse ip cdm rail '+s,clred);
end;
// adresse ip et port de la centrale
sa:=uppercase(IPV4_INTERFACE_ch)+'=';
i:=pos(sa,s);
if i=1 then
begin
inc(nv);
trouve_IPV4_INTERFACE:=true;
delete(s,i,length(sa));
i:=pos(':',s);
if i<>0 then
begin
adresseIP:=copy(s,1,i-1);Delete(s,1,i);portInterface:=StrToINT(s);
if (adresseIP<>'0') and (portInterface=0) then affiche('Erreur port nul : '+sOrigine,clRed);
end
else begin adresseIP:='0';parSocketLenz:=false;end;
end;
// nombre max de port s<>rie <20> explorer
// configuration du port com
sa:=uppercase(MaxCom_ch)+'=';
i:=pos(sa,s);
if i=1 then
begin
inc(nv);
delete(s,i,length(sa));
trouve_MaxPort:=true;
val(s,MaxPortCom,erreur);
if erreur<>0 then Affiche('Erreur MaxCom: '+sOrigine,clred);
if (MaxPortCom<1) or (MaxPortCom>99) then MaxPortCom:=30;
end;
// configuration du port com
sa:=uppercase(PROTOCOLE_SERIE_ch)+'=';
i:=pos(sa,s);
if i=1 then
begin
inc(nv);
trouve_PROTOCOLE_SERIE:=true;
delete(s,i,length(sa));
if not(config_com(s)) then Affiche('Erreur port com mal d<>clar<61> : '+s,clred);
if (NumPort>MaxPortCom) then Affiche('Le port com est sup<75>rieur au nombre de COMx <20> explorer dans le fichier de configuraion',clred);
portcom:=s;
end;
// temporisatflion entre 2 caract<63>res
sa:=uppercase(INTER_CAR_ch)+'=';
i:=pos(sa,s);
if i=1 then
begin
inc(nv);
delete(s,i,length(sa));
trouve_INTER_CAR:=true;
val(s,TempoOctet,erreur);
if erreur<>0 then Affiche('Erreur temporisation entre 2 octets',clred);
end;
// temporisation attente maximale interface
sa:=uppercase(TEMPO_MAXI_ch)+'=';
i:=pos(sa,s);
if i=1 then
begin
inc(nv);
delete(s,i,length(sa));
trouve_Tempo_maxi:=true;
val(s,TimoutMaxInterface,erreur);
if erreur<>0 then Affiche('Erreur temporisation maximale interface',clred);
end;
// entete
sa:=uppercase(ENTETE_ch)+'=';
i:=pos(sa,s);
if i=1 then
begin
inc(nv);
delete(s,i,length(sa));
trouve_Entete:=true;
val(s,Valeur_entete,erreur);
entete:='';
case Valeur_entete of
0 : begin entete:='';suffixe:='';end;
1 : begin entete:=#$FF+#$FE;suffixe:='';end;
end;
if (erreur<>0) or (valeur_entete>1) then Affiche('Erreur d<>claration variable '+entete_ch,clred);
end;
// avec ou sans initialisation des aiguillages
sa:=uppercase(INIT_AIG_ch)+'=';
i:=pos(sa,s);
if i=1 then
begin
trouve_init_aig:=true;
inc(nv);
delete(s,i,length(sa));
AvecInitAiguillages:=s='1';
end;
// avec demande de position des aiguillages en mode autonome au d<>marrage
sa:=uppercase(Init_dem_aig_ch)+'=';
i:=pos(sa,s);
if i=1 then
begin
trouve_dem_aig:=true;
inc(nv);
delete(s,i,length(sa));
AvecDemandeAiguillages:=s='1';
end;
// avec demande de connexion en COM USB au d<>marrage
sa:=uppercase(Init_dem_interfaceUSBCOM_ch)+'=';
i:=pos(sa,s);
if i=1 then
begin
trouve_demcnxCOMUSB:=true;
inc(nv);
delete(s,i,length(sa));
AvecDemandeInterfaceUSB:=s='1';
end;
// avec demande de connexion en ethernet au d<>marrage
sa:=uppercase(Init_dem_interfaceEth_ch)+'=';
i:=pos(sa,s);
if i=1 then
begin
trouve_demcnxEth:=true;
inc(nv);
delete(s,i,length(sa));
AvecDemandeInterfaceEth:=s='1';
end;
// taille de la fenetre
sa:=uppercase(fenetre_ch)+'=';
i:=pos(sa,s);
if i=1 then
begin
inc(nv);
trouve_fenetre:=true;
delete(s,i,length(sa));
val(s,fenetre,erreur);
if fenetre=1 then Formprinc.windowState:=wsMaximized;
end;
// Nombre de cantons avant signal
sa:=uppercase(Nb_cantons_Sig_ch)+'=';
i:=pos(sa,s);
if i=1 then
begin
inc(nv);
trouve_Nb_cantons_Sig:=true;
delete(s,i,length(sa));
val(s,Nb_cantons_Sig,erreur);
if (Nb_cantons_Sig<3) or (Nb_cantons_Sig>5) then Nb_cantons_Sig:=3;
end;
// temporisation aiguillages
sa:=uppercase(Tempo_Aig_ch)+'=';
i:=pos(sa,s);
if i=1 then
begin
inc(nv);
trouve_Tempo_aig:=true;
delete(s,i,length(sa));
val(s,Tempo_Aig,erreur);
end;
// temporisation d<>codeurs de feux
sa:=uppercase(Tempo_Feu_ch)+'=';
i:=pos(sa,s);
if i=1 then
begin
inc(nv);
trouve_Tempo_feu:=true;
delete(s,i,length(sa));
val(s,Tempo_Feu,erreur);
if tempo_Feu=0 then Tempo_feu:=100;
end;
// algo unisemaf
sa:=uppercase(Algo_unisemaf_ch)+'=';
i:=pos(sa,s);
if i=1 then
begin
inc(nv);
trouve_Algo_Uni:=true;
delete(s,i,length(sa));
val(s,algo_Unisemaf,erreur);
if (algo_Unisemaf<0) or (algo_Unisemaf>2) then algo_Unisemaf:=1;
end;
sa:=uppercase(verif_version_ch)+'=';
i:=pos(sa,s);
if i=1 then
begin
trouve_verif_version:=true;
inc(nv);
delete(s,i,length(sa));
// v<>rification de la version au d<>marrage
verifVersion:=true;
val(s,i,erreur);
if erreur=0 then verifVersion:=i=1;
end;
sa:=uppercase(NOTIF_VERSION_ch)+'=';
i:=pos(sa,s);
if i=1 then
begin
inc(nv);
delete(s,i,length(sa));
trouve_NOTIF_VERSION:=true;
// v<>rification de la version au d<>marrage
val(s,i,erreur);
notificationVersion:=i=1;
end;
sa:=uppercase(AvecVerifIconesTCO_ch);
i:=pos(sa,s);
if i<>0 then
begin
trouveAvecVerifIconesTCO:=true;
inc(nv);
delete(s,i,length(sa)+1);
val(s,AvecVerifIconesTCO,erreur);
s:='';
end;
sa:=uppercase(TCO_ch)+'=';
i:=pos(sa,s);
if i=1 then
begin
inc(nv);
delete(s,i,length(sa));
trouve_TCO:=true;
val(s,i,erreur);
AvecTCO:=i=1;
end;
sa:=uppercase(MasqueBandeauTCO_ch)+'=';
i:=pos(sa,s);
if i=1 then
begin
inc(nv);
delete(s,i,length(sa));
trouve_MasqueTCO:=true;
val(s,i,erreur);
MasqueBandeauTCO:=i=1;
end;
sa:=uppercase(CDM_ch)+'=';
i:=pos(sa,s);
if i=1 then
begin
inc(nv);
trouve_CDM:=true;
delete(s,i,length(sa));
val(s,i,erreur);
LanceCDM:=i=1;
end;
sa:=uppercase(LAY_ch)+'=';
i:=pos(sa,s);
if i=1 then
begin
inc(nv);
trouve_lay:=true;
delete(s,i,length(sa));
lay:=s;
end;
sa:=uppercase(SERVEUR_INTERFACE_ch)+'=';
i:=pos(sa,s);
if i=1 then
begin
inc(nv);
trouve_serveur_interface:=true;
delete(s,i,length(sa));
val(s,i,erreur);
ServeurInterfaceCDM:=i;
end;
sa:=uppercase(RETRO_ch)+'=';
i:=pos(sa,s);
if i=1 then
begin
inc(nv);
trouve_retro:=true;
delete(s,i,length(sa));
val(s,i,erreur);
ServeurRetroCDM:=i;
end;
sa:=uppercase(nb_det_dist_ch)+'=';
i:=pos(sa,s);
if i=1 then
begin
inc(nv);
trouve_NbDetDist:=true;
delete(s,i,length(sa));
val(s,i,erreur);
if i<2 then begin i:=2;Affiche('Attention '+nb_det_dist_ch+' ramen<65> <20> '+IntToSTR(i),clOrange); end;
Nb_Det_Dist:=i;
end;
sa:=uppercase(Raz_signaux_ch)+'=';
i:=pos(sa,s);
if i=1 then
begin
inc(nv);
trouve_NbDetDist:=true;
delete(s,i,length(sa));
val(s,i,erreur);
if i>1 then i:=1;
Raz_Acc_signaux:=i=1;
end;
// section aiguillages
sa:=uppercase(section_aig_ch);
if pos(sa,s)<>0 then
begin
trouve_section_aig:=true;
compile_aiguillages;
end;
// section branche
sa:=uppercase(section_branches_ch);
if pos(sa,s)<>0 then
begin
trouve_section_branche:=true;
compile_branches;
end;
// section signaux
sa:=uppercase(section_sig_ch);
if pos(sa,s)<>0 then
begin
trouve_section_sig:=true;
compile_signaux;
end;
// section actionneurs
sa:=uppercase(section_act_ch);
if pos(sa,s)<>0 then
begin
trouve_section_act:=true;
compile_actionneurs;
end;
// section dcc++
sa:=uppercase(section_dccpp_ch);
if pos(sa,s)<>0 then
begin
trouve_section_dccpp:=true;
compile_dccpp;
end;
// section trains
sa:=uppercase(section_trains_ch);
if pos(sa,s)<>0 then
begin
trouve_section_trains:=true;
compile_trains;
end;
// section placement
sa:=uppercase(section_placement_ch);
if pos(sa,s)<>0 then
begin
i:=1;
repeat
lit_ligne;
if s<>'0' then
begin
j:=pos(',',s);
if j<>0 then
begin
placement[i].train:=copy(s,1,j-1);
delete(s,1,j);
val(s,j,erreur);
placement[i].detecteur:=j;
j:=pos(',',s);
if j<>0 then
begin
delete(s,1,j);
val(s,j,erreur);
placement[i].detdir:=j;
j:=pos(',',s);
if j<>0 then
begin
delete(s,1,j);
val(s,j,erreur);
placement[i].inverse:=j=1;
end;
end;
end;
inc(i);
s:='';
end;
until (s='0') or eof(fichier);
end;
inc(it);
until (eof(fichier));
end;
// proc<6F>dure lit_config
begin
debugConfig:=false;
trouve_NbDetDist:=false;
trouveAvecVerifIconesTCO:=false;
trouve_ipv4_PC:=false;
trouve_retro:=false;
trouve_sec_init:=false;
trouve_init_aig:=false;
trouve_dem_aig:=false;
trouve_tempo_aig:=false;
trouve_tempo_feu:=false;
trouve_INTER_CAR:=false;
trouve_entete:=false;
trouve_IPV4_INTERFACE:=false;
trouve_Tempo_maxi:=false;
trouve_PROTOCOLE_SERIE:=false;
trouve_TCO:=false;
trouve_LAY:=false;
trouve_Serveur_interface:=false;
trouve_cdm:=false;
trouve_NOTIF_VERSION:=false;
trouve_masqueTCO:=false;
trouve_fenetre:=false;
trouve_verif_version:=false;
trouve_Fonte:=false;
trouve_Raz:=false;
trouve_demcnxCOMUSB:=false;
trouve_demcnxEth:=false;
trouve_Algo_Uni:=false;
trouve_Nb_cantons_Sig:=false;
AvecVerifIconesTCO:=1;
//trouve_FVR:=false;
if not(trouve_tempo_feu) then
begin
s:=tempo_feu_ch;
tempo_feu:=100;
s:='';
end;
if not(trouve_NOTIF_VERSION) then s:=NOTIF_VERSION_ch;
if not(trouve_verif_version) then s:=verif_version_ch;
if not(trouve_fonte) then s:=fonte_ch;
Nb_Det_Dist:=3;
// initialisation des aiguillages avec des valeurs par d<>faut
for i:=1 to NbreMaxiAiguillages do
begin
Aiguillage[i].modele:=rien ; // sans existence
Aiguillage[i].adresse:=0;
Aiguillage[i].adrTrain:=0;
Aiguillage[i].position:=const_inconnu; // position inconnue
Aiguillage[i].PosInit:=const_inconnu; // position inconnue
Aiguillage[i].temps:=5;
Aiguillage[i].inversionCDM:=0;
Aiguillage[i].EtatTJD:=4;
Aiguillage[i].vitesse:=0;
end;
for i:=1 to 1024 do
begin
Detecteur[i].etat:=false;
Detecteur[i].train:='';
Detecteur[i].AdrTrain:=0;
Detecteur[i].tempo0:=0;
Detecteur[i].IndexTrain:=0;
Ancien_detecteur[i]:=false;
end;
//Affiche('Lecture du fichier de configuration '+NomConfig,clyellow);
try
assign(fichier,NomConfig);
reset(fichier);
except
Affiche('Fichier '+NomConfig+' non trouv<75> : cr<63>ation d''un fichier vide par d<>faut',clred);
portcom:='COM3:57600,N,8,1,2';
adresseIPCDM:='127.0.0.1';portCDM:=9999;
adresseIP:='192.168.1.23';portInterface:=5550;
verifVersion:=true;
Valeur_entete:=1;
TempoOctet:=50;
TimoutMaxInterface:=7;
AvecInitAiguillages:=true;
AvecDemandeInterfaceUSB:=true;
AvecDemandeInterfaceEth:=true;
lay:='';
Tempo_Aig:=100;
Tempo_feu:=100;
ServeurInterfaceCDM:=1;
Nb_cantons_Sig:=3;
ServeurRetroCDM:=1;
algo_Unisemaf:=1;
TailleFonte:=12;
Nb_Det_Dist:=3;
genere_config;
assign(fichier,NomConfig);
reset(fichier);
end;
lit_flux;
close(fichier);
configNulle:=(maxAiguillage=0) and (NbreBranches=0) and (Nbrefeux=0);
if configNulle then Affiche('Fonctionnement en config nulle',ClYellow);
s:='';//Affiche(intToSTR(Nv),clred);
if not(trouve_NbDetDist) then s:=nb_det_dist_ch;
if not(trouve_ipv4_PC) then s:=IpV4_PC_ch;
if not(trouve_retro) then s:=retro_ch;
if not(trouve_init_aig) then s:=INIT_AIG_ch;
if not(trouve_INTER_CAR) then s:=INTER_CAR_ch;
if not(trouve_Tempo_maxi) then s:=Tempo_maxi_ch;
if not(trouve_Entete) then s:=Entete_ch;
if not(trouve_LAY) then s:=s+LAY_ch;
if not(trouve_TCO) then s:=TCO_ch;
if not(trouve_CDM) then s:=CDM_ch;
if not(trouve_Serveur_interface) then s:=Serveur_interface_ch;
if not(trouve_fenetre) then s:=fenetre_ch;
if not(trouve_tempo_aig) then s:=tempo_aig_ch;
if not(trouve_Algo_Uni) then s:=Algo_unisemaf_ch;
if not(trouve_Nb_cantons_Sig) then s:=Nb_cantons_Sig_ch;
if not(trouve_dem_aig) then s:=Init_dem_aig_ch;
if not(trouve_demcnxCOMUSB) then s:=Init_dem_interfaceUSBCOM_ch;
if not(trouve_demcnxEth) then s:=Init_dem_interfaceEth_ch;
if not(trouveAvecVerifIconesTCO) then confasauver:=true;
if not(trouve_tempo_feu) then
begin
s:=tempo_feu_ch;
tempo_feu:=100;
s:='';
end;
if not(trouve_NOTIF_VERSION) then s:=NOTIF_VERSION_ch;
if not(trouve_verif_version) then s:=verif_version_ch;
if not(trouve_fonte) then s:=fonte_ch;
if s<>'' then
begin
affiche('Manque variable(s) dans '+NomConfig+' : '+s,clOrange);
Affiche('Elles seront r<>g<EFBFBD>n<EFBFBD>r<EFBFBD>es automatiquement',clOrange);
confasauver:=true;
end;
if not(trouve_section_aig) then Affiche('Manque section '+section_aig_ch,clred);
if not(trouve_section_sig) then Affiche('Manque section '+section_sig_ch,clred);
if not(trouve_section_branche) then Affiche('Manque section '+section_branches_ch,clred);
end;
// sauvegarder la config dans le fichier cfg
function Sauve_config : boolean;
begin
// g<>n<EFBFBD>rer le fichier de config
genere_config;
Affiche('Configuration sauvegard<72>e dans le fichier',clLime);
config_modifie:=false;
confasauver:=false;
sauve_config:=true;
exit;
end;
function verifie_panneau_config : boolean;
var ChangeCDM,changeInterface,changeUSB,change_srv,ok : boolean;
i,erreur : integer;
s : string;
begin
ok:=true;
// V<>rification de la configuration-------------------------------------------
// contr<74>le adresse IP CDM
with FormConfig do
begin
s:=EditAdrIPCDM.text;
if s='' then s:='127.0.0.1';
if not(IpOk(s)) then begin labelInfo.Caption:='Adresse IP CDM rail incorrecte';ok:=false;end;
ChangeCDM:=s<>AdresseIPCDM;
adresseIPCDM:=s;
// contr<74>le port CDM
val(EditPortCDM.Text,i,erreur);
if i=0 then i:=9999;
if i>65535 then begin labelInfo.Caption:='Port CDM rail incorrect';ok:=false;end;
changeCDM:=(portCDM<>i) or ChangeCDM;
portCDM:=i;
// taille fonte
val(EditFonte.text,i,erreur);
if (i<8) or (i>25) then i:=10;
TailleFonte:=i;
val(EditDebug.text,i,erreur);
if (i<0) or (i>3) then i:=0;
Debug:=i;
if CheckBoxVerifXpressNet.checked then Verif_AdrXpressNet:=1 else Verif_AdrXpressNet:=0;
if checkRoulage.Checked then AvecRoulage:=1 else AvecRoulage:=0;
// contr<74>le adresse IP interface
s:=EditIPLenz.text;
if s='' then s:='0';
if not(IpOk(s)) and (s<>'0') then begin labelInfo.Caption:='Adresse IP interface Xpressnet incorrecte';ok:=false;end;
changeInterface:=s<>AdresseIP;
AdresseIP:=s;
// contr<74>le port interface
val(EditPortLenz.Text,i,erreur);
if i=0 then i:=5550;
if i>65535 then begin labelInfo.Caption:='Port Interface incorrect';ok:=false;end;
changeInterface:=changeInterface or (i<>portinterface);
portInterface:=i;
val(EditFiltrDet.Text,i,erreur);
if (i<0) or (i>10) then i:=3;
filtrageDet0:=i;
Val(editTempoAig.Text,i,erreur);
if i>3000 then begin labelInfo.Caption:='Temporisation de s<>quencement incorrecte ';ok:=false;end;
Tempo_Aig:=i;
// contr<74>le protocole interface COM3:57600,N,8,1,2
s:=EditComUSB.Text;
if s='' then s:='COM3:57600,N,8,1,2';
if not(config_com(s)) then begin labelInfo.Caption:='Protocole s<>rie USB Interface incorrect';ok:=false;end;
changeUSB:=portcom<>s;
portcom:=s;
val(EditTempoOctetUSB.text,i,erreur);
if erreur<>0 then begin labelInfo.Caption:='Valeur temporisation octet incorrecte';ok:=false;end;
TempoOctet:=i;
val(EditTempoReponse.text,i,erreur);
if erreur<>0 then begin labelInfo.Caption:='Valeur temporisation de r<>ponse interface';ok:=false;end;
TimoutMaxInterface:=i;
val(EditNbDetDist.text,i,erreur);
if (erreur<>0) or (i<3) then begin labelInfo.Caption:='Valeur nombre de d<>tecteurs trop distants incorrecte';ok:=false;end;
Nb_Det_Dist:=i;
val(EditNbCantons.text,i,erreur);
if (erreur<>0) or ((i<3) or (i>5)) then begin labelInfo.Caption:='Valeur cantons signaux de 3 <20> 5';ok:=false;end;
Nb_cantons_Sig:=i;
formDebug.buttonCP.Caption:='Etat '+intToSTR(Nb_cantons_Sig)+' cantons pr<70>c<EFBFBD>dents signal';
if RadioButton1.checked then Valeur_entete:=0;
if RadioButton2.checked then Valeur_entete:=1;
case Valeur_entete of
0 : begin entete:='';suffixe:='';end;
1 : begin entete:=#$FF+#$FE;suffixe:='';end;
end;
if changeCDM then connecte_CDM;
if changeInterface then
begin
if (AdresseIP<>'0') and (adresseIP<>'') then
begin
Affiche('demande connexion <20> la centrale Lenz par Ethernet',clyellow);
With Formprinc do
begin
ClientSocketInterface.port:=portInterface;
ClientSocketInterface.Address:=AdresseIP;
ClientSocketInterface.Open;
end;
end
end;
if changeUSB then
begin
deconnecte_USB;
connecte_USB;
end;
verifVersion:=CheckVerifVersion.Checked;
notificationVersion:=CheckInfoVersion.Checked;
LanceCDM:=CheckLanceCDM.Checked;
if CheckFenEt.checked then fenetre:=1 else fenetre:=0;
AvecTCO:=CheckAvecTCO.checked;
MasqueBandeauTCO:=CheckBandeauTCO.checked;
lay:=editLay.Text;
if RadioButton4.Checked then ServeurInterfaceCDM:=0;
if RadioButton5.Checked then ServeurInterfaceCDM:=1;
if RadioButton6.Checked then ServeurInterfaceCDM:=2;
if RadioButton7.Checked then ServeurInterfaceCDM:=3;
if RadioButton8.Checked then ServeurInterfaceCDM:=4;
if RadioButton9.Checked then ServeurInterfaceCDM:=5;
if RadioButton10.Checked then ServeurInterfaceCDM:=6;
if RadioButton11.Checked then ServeurInterfaceCDM:=7;
if RadioButton12.Checked then ServeurInterfaceCDM:=8;
if RadioButton12.Checked then ServeurInterfaceCDM:=13;
if RadioButton13.Checked then ServeurRetroCDM:=1;
if RadioButton14.Checked then ServeurRetroCDM:=2;
if RadioButton15.Checked then ServeurRetroCDM:=3;
if RadioButton16.Checked then ServeurRetroCDM:=4;
if RadioButton17.Checked then ServeurRetroCDM:=5;
if RadioButton18.Checked then ServeurRetroCDM:=6;
// changement sur les services CDM
change_srv:=Srvc_Aig<>CheckBoxServAig.checked;
change_srv:=Srvc_Det<>CheckBoxServDet.checked or change_srv;
change_srv:=Srvc_Act<>CheckBoxServAct.checked or change_srv;
change_srv:=Srvc_PosTrain<>CheckServPosTrains.checked or change_srv;
change_srv:=Srvc_Sig<>CheckBoxSrvSig.checked or change_srv;
Srvc_Aig:=CheckBoxServAig.checked;
Srvc_Det:=CheckBoxServDet.checked;
Srvc_Act:=CheckBoxServAct.checked;
Srvc_PosTrain:=CheckServPosTrains.checked;
Srvc_Sig:=CheckBoxSrvSig.checked;
Raz_Acc_signaux:=CheckBoxRazSignaux.checked;
AvecInitAiguillages:=CheckBoxInitAig.Checked;
AvecDemandeAiguillages:=checkPosAig.checked;
AvecDemandeInterfaceUSB:=CheckBoxDemarUSB.checked;
AvecDemandeInterfaceEth:=CheckBoxDemarEth.checked;
protocole:=1;
if RadioButtonXpress.Checked then
begin
protocole:=1;
formprinc.EditEnvoi.Visible:=false;
formprinc.ButtonEnv.Visible:=false;
end;
if RadioButtonDcc.Checked then
begin
protocole:=2;
formprinc.EditEnvoi.Visible:=true;
formprinc.ButtonEnv.Visible:=true;
end;
if checkEnvAigDccpp.Checked then EnvAigDccpp:=1 else EnvAigDccpp:=0;
val(EditBase.Text,AdrBaseDetDccpp,erreur);
if (AdrBaseDetDccpp<0) or (AdrBaseDetDccpp>2048) then AdrBaseDetDccpp:=513;
end;
if change_srv then services_CDM;
verifie_panneau_config:=ok;
end;
procedure TFormConfig.ButtonAppliquerEtFermerClick(Sender: TObject);
var ok : boolean;
begin
ok:=verifie_panneau_config;
if ok then
begin
Sauve_config;
formConfig.close; // si la config est ok, on ferme la fenetre
end;
end;
// LC=Adresse du feu
procedure clicListeFeu(lc : integer);
var AncAdresse,index,adresse,erreur : integer;
s : string;
begin
index:=index_feu(lc)-1;
s:=Uppercase(FormConfig.RichSig.Lines[index]); // ligne cliqu<71>e
if s='' then
begin
RE_ColorLine(Formconfig.RichSig,ligneclicSig,ClAqua);
ligneclicSig:=-1;
exit;
end;
Feu_Sauve:=feux[index+1]; // sauvegarde
AncLigneClicSig:=ligneclicSig;
ligneClicSig:=index;
// Mettre en rouge le signal modifi<66> quand on clique sur un autre signal
if AncligneclicSig<>-1 then
begin
val(FormConfig.RichSig.Lines[AncLigneClicSig],AncAdresse,erreur);
if feux[ligneClicSig+1].modifie then RE_ColorLine(Formconfig.RichSig,AncLigneClicSig,ClWhite) else
RE_ColorLine(Formconfig.RichSig,AncLigneClicSig,ClAqua);
end;
Val(s,Adresse,erreur); // Adresse du signal
if adresse=0 then exit;
FormConfig.EditAdrSig.Color:=clWindow;
RE_ColorLine(Formconfig.RichSig,ligneClicSig,Clyellow);
aff_champs_sig_feux(index+1); // affiche les champs du feu
clicliste:=false;
end;
procedure TFormConfig.FormActivate(Sender: TObject);
var i :integer;
s : string;
begin
if affevt then affiche('FormConfig activate',clLime);
clicListe:=false;
Edit_HG.Visible:=false;
labelHG.Visible:=false;
EditP1.Visible:=false;
EditP2.Visible:=false;
EditP3.Visible:=false;
EditP4.Visible:=false;
LabelTJD1.Visible:=false;
LabelTJD2.Visible:=false;
EditDevieS2.Visible:=false;
Label18.Visible:=false;
Label20.Visible:=false;
GroupBoxPN.Visible:=false;
GroupBoxAct.Visible:=false;
GroupBoxRadio.Visible:=false;
GroupBoxEtatTJD.Visible:=false;
EditP1.ReadOnly:=false;
EditP2.ReadOnly:=false;
EditP3.ReadOnly:=false;
EditP4.ReadOnly:=false;
EditPointe_BG.ReadOnly:=false;
EditDevie_HD.ReadOnly:=false;
EditDroit_BD.ReadOnly:=false;
Edit_HG.ReadOnly:=false;
EditNbCantons.text:=intToSTR(Nb_cantons_Sig);
EditTempoFeu.Text:=IntToSTR(Tempo_feu);
EditNbDetDist.text:=IntToSTR(Nb_Det_dist);
EditAdrIPCDM.text:=adresseIPCDM;
EditPortCDM.Text:=IntToSTR(portCDM);
EditIPLenz.text:=AdresseIP;
EditportLenz.text:=IntToSTR(PortInterface);
EditTempoAig.Text:=IntToSTR(Tempo_Aig);
EditFiltrDet.text:=intToSTR(filtrageDet0);
EditComUSB.Text:=PortCom;
EditFonte.text:=IntToSTR(TailleFonte);
editdebug.Text:=IntToSTR(debug);
CheckBoxVerifXpressNet.Checked:=Verif_AdrXpressNet=1;
checkRoulage.Checked:=AvecRoulage=1;
EditTempoOctetUSB.text:=IntToSTR(TempoOctet);
EditTempoReponse.Text:=IntToSTR(TimoutMaxInterface);
RadioButton1.checked:=false;
RadioButton2.checked:=false;
if Valeur_entete=0 then RadioButton1.checked:=true;
if Valeur_entete=1 then RadioButton2.checked:=true;
LabelInfo.Width:=240;LabelInfo.Height:=65;LabelInfo.AutoSize:=false;
LabelResult.width:=137;LabelResult.Height:=25;
LabelNomSon.top:=16;LabelNomSon.Left:=48;
SpeedButtonJoue.Top:=60; SpeedButtonCharger.Top:=60;
EditSon.Top:=38;EditSon.Left:=16;
CheckVerifVersion.Checked:=verifVersion;
CheckFenEt.Checked:=Fenetre=1;
CheckInfoVersion.Checked:=notificationVersion;
CheckLanceCDM.Checked:=LanceCDM;
CheckAvecTCO.checked:=avecTCO;
CheckBandeauTCO.Checked:=MasqueBandeauTCO;
RadioButton4.Checked:=ServeurInterfaceCDM=0;
RadioButton5.Checked:=ServeurInterfaceCDM=1;
RadioButton6.Checked:=ServeurInterfaceCDM=2;
RadioButton7.Checked:=ServeurInterfaceCDM=3;
RadioButton8.Checked:=ServeurInterfaceCDM=4;
RadioButton9.Checked:=ServeurInterfaceCDM=5;
RadioButton10.Checked:=ServeurInterfaceCDM=6;
RadioButton11.Checked:=ServeurInterfaceCDM=7;
RadioButton12.Checked:=ServeurInterfaceCDM=8;
RadioButton12.Checked:=ServeurInterfaceCDM=13;
RadioButton13.Checked:=ServeurRetroCDM=1;
RadioButton14.Checked:=ServeurRetroCDM=2;
RadioButton15.Checked:=ServeurRetroCDM=3;
RadioButton16.Checked:=ServeurRetroCDM=4;
RadioButton17.Checked:=ServeurRetroCDM=5;
RadioButton18.Checked:=ServeurRetroCDM=6;
CheckBoxServAig.checked:=Srvc_Aig;
CheckBoxServDet.checked:=Srvc_Det;
CheckBoxServAct.checked:=Srvc_Act;
CheckServPosTrains.checked:=Srvc_PosTrain;
CheckBoxRazSignaux.checked:=Raz_Acc_signaux;
CheckBoxInitAig.checked:=AvecInitAiguillages;
CheckPosAig.checked:=AvecDemandeAiguillages;
CheckBoxDemarUSB.checked:=AvecDemandeInterfaceUSB;
CheckBoxDemarEth.checked:=AvecDemandeInterfaceEth;
RadioButtonXpress.Checked:=protocole=1;
RadioButtonDcc.Checked:=protocole=2;
clicListe:=true; // empeche le traitement de l'evt text
EditDroit_BD.Text:='';
EditPointe_BG.Text:='';
EditDevie_HD.Text:='';
editLAY.Text:=lay;
ligneclicSig:=-1;
AncLigneClicSig:=-1;
ligneclicAct:=-1;
AncLigneClicAct:=-1;
ligneclicAig:=-1;
AncLigneClicAig:=-1;
lignecliqueePN:=-1;
AncLigneCliqueePN:=-1;
// remplit les 4 fen<65>tres de config des aiguillages branches signaux, actionneurs
// aiguillages
RichAig.Clear;
for i:=1 to MaxAiguillage do
begin
s:=encode_aig(i);
RichAig.Lines.Add(s);
RE_ColorLine(RichAig,RichAig.lines.count-1,ClAqua);
Aiguillage[i].modifie:=false;
end;
// pour positionner sur la 1ere ligne
With RichAig do
begin
SelStart:=0;
Perform(EM_SCROLLCARET,0,0);
end;
// branches
clicListe:=true;
RichBranche.clear;
for i:=1 to NbreBranches do
begin
s:=Branche[i];
RichBranche.Lines.Add(s);
RE_ColorLine(RichBranche,RichBranche.lines.count-1,ClAqua);
end;
With RichBranche do
begin
SelStart:=0;
Perform(EM_SCROLLCARET,0,0);
end;
// signaux
RichSig.clear;
ComboBoxDec.items.Clear;
for i:=1 to NbDecodeur do
begin
ComboBoxDec.items.add(decodeur[i-1]);
end;
for i:=1 to NbreFeux do
begin
s:=encode_sig_feux(i); // encode la ligne depuis le tableau feux
//Affiche(s,clwhite);
if s<>'' then
begin
RichSig.Lines.Add(s);
RE_ColorLine(RichSig,RichSig.lines.count-1,ClAqua);
Feux[i].modifie:=false;
end;
end;
With RichSig do
begin
SelStart:=0;
Perform(EM_SCROLLCARET,0,0);
end;
// actionneurs Train ou accessoire
RichAct.Clear;
for i:=1 to maxTablo_act do
begin
s:=encode_act_loc_son(i);
if s<>'' then
begin
RichAct.Lines.Add(s);
RE_ColorLine(RichAct,RichAct.lines.count-1,ClAqua);
end;
end;
With RichAct do
begin
SelStart:=0;
Perform(EM_SCROLLCARET,0,0);
end;
// actionneurs PN
RichPN.Clear;
for i:=1 to NbrePN do
begin
s:=encode_act_pn(i);
if s<>'' then
begin
RichPN.Lines.Add(s);
RE_ColorLine(RichPN,RichPN.lines.count-1,ClAqua);
end;
end;
With RichPN do
begin
SelStart:=0;
Perform(EM_SCROLLCARET,0,0);
end;
if clicproprietes then clicListeFeu(Adressefeuclic);
clicproprietes:=false;
i:=1;
RichCdeDCCpp.clear;
repeat
if CdeDccpp[i]<>'' then
begin
RichCdeDccpp.Lines.add(CdeDccpp[i]);
RE_ColorLine(RichCdeDccpp,RichCdeDccpp.lines.count-1,ClAqua);
end;
inc(i);
until (CdeDccpp[i]='') or (i>MaxCdeDccpp);
CheckEnvAigDccpp.Checked:=EnvAigDccpp=1;
EditBase.Text:=intToSTR(AdrBaseDetDccpp);
with RicheditTrains do
begin
clear;
for i:=1 to ntrains do
begin
Lines.Add(Train_tablo(i));
end;
end;
//l'onglet affich<63> est s<>lectionn<6E> <20> l'appel de la fiche dans l'unit<69> UnitPrinc
clicListe:=false;
end;
procedure TFormConfig.FormCreate(Sender: TObject);
begin
clicListe:=true;
Affiche_avert:=false;
if affevt then affiche('FormConfig create',clLime);
PageControl.ActivePage:=Formconfig.TabSheetCDM; // force le premier onglet sur la page
Aig_supprime.Adresse:=0;
Feu_Supprime.Adresse:=0;
Feu_sauve.adresse:=0;
clicListe:=false;
if AvecRoulage=1 then LabelInfVitesse.Visible:=false else LabelInfVitesse.Visible:=true;
ConfigPrete:=true;
groupBox21.Top:=304;
GroupBox21.Left:=8;
end;
// d<>code un morceau d'une chaine d'aiguillage ('P5S')
// si erreur, B='?'
procedure decodeAig(s : string;var adr : integer;var B : char);
var erreur,i : integer;
begin
if s='' then begin B:='?';adr:=0;exit;end;
if (s[1]='P') or (s[1]='S') or (s[1]='D') then delete(s,1,1);
if s='' then
begin
adr:=0;
B:='Z';
exit;
end;
// supprimer le champ suivant <20>ventuel
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 erreur<>0 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;
B:='Z';
end;
// affiche le graphisme de l'aiguillage en fonction du tablo en index
procedure Aff_champs_aig_tablo(index : integer);
var Adresse,Adr2,ind,id2,erreur,position : integer;
tjd,tri,tjs,croi : boolean;
s,ss : string;
i : integer;
B : char;
begin
if index<1 then exit;
s:=Uppercase(formConfig.RichAig.Lines[index-1]);
//Affiche(s,clLime);
if s='' then exit;
Val(s,Adresse,erreur); // R<>cup<75>rer l'adresse de l'aiguillage
if adresse=0 then exit;
ind:=Index_aig(adresse);
clicliste:=true;
ss:=InttoSTr(Adresse);
formconfig.EditAdrAig.text:= ss;
tjd:=pos('TJD',s)<>0 ;
tri:=pos('TRI',s)<>0 ;
tjs:=pos('TJS',s)<>0 ;
croi:=pos('CROI',s)<>0 ;
with formconfig do
begin
EditAdrAig.Color:=clWindow;
ImageAffiche.Picture.Bitmap.TransparentMode:=tmAuto;
ImageAffiche.Picture.Bitmap.TransparentColor:=clblue;
ImageAffiche.Transparent:=true;
GroupBoxEtatTJD.Visible:=false;
GroupBox21.Visible:=true;
GroupBox10.Visible:=true;
checkInverse.Visible:=true;
// tjd
if tjd or tjs or croi then
begin
if not(croi) then Label20.Visible:=true;
if tjd then
begin
ComboBoxAig.ItemIndex:=1;
EditL.Visible:=false;
LabelL.Visible:=false;
GroupBoxEtatTJD.Visible:=true;
if aiguillage[ind].EtatTJD=2 then
begin
RadioButtonTJD2.Checked:=true;RadioButtonTJD4.Checked:=false;
EditP1.Visible:=false;EditP2.Visible:=false;EditP3.Visible:=false;EditP4.Visible:=false;
LabelTJD1.Visible:=false;LabelTJD2.Visible:=false;
LabelInfo.Caption:='';
end
else if aiguillage[ind].EtatTJD=4 then
begin
RadioButtonTJD2.Checked:=false;RadioButtonTJD4.Checked:=true;
EditP1.Visible:=true;EditP2.Visible:=true;EditP3.Visible:=true;EditP4.Visible:=true;
LabelTJD1.Visible:=true;LabelTJD2.Visible:=true;
LabelInfo.Caption:='';
end
else LabelInfo.Caption:='Nombre d''<27>tats de la TJD/S inconnu';
end;
if tjs then
begin
ComboBoxAig.ItemIndex:=2;
EditL.Visible:=true;
LabelL.Visible:=true;
LabelL.Caption:='L';
EditL.Text:=IntToSTR(aiguillage[ind].tjsint)+aiguillage[ind].tjsintB;
end;
ImageAffiche.Picture.BitMap:=Imagetjd.Picture.Bitmap;
labelBG.Caption:='S';
Edit_HG.Visible:=true;
EditAigTriple.Visible:=false;
Edit_HG.ReadOnly:=false;
EditPointe_BG.ReadOnly:=false;
EditDevie_HD.ReadOnly:=false;
EditDroit_BD.ReadOnly:=false;
tjd:=true;
labelHG.Visible:=true;
CheckInverse.Visible:=true;
EditDevieS2.Visible:=false;
Label18.Visible:=false;
adr2:=aiguillage[Index_Aig(adresse)].DDevie;
id2:=Index_Aig(adr2);
// champ en haut <20> gauche
b:=aiguillage[Index_Aig(adresse)].ADroitB;
if b='Z' then b:=#0;
Edit_HG.Text:=intToSTR(aiguillage[index].ADroit)+b;
Edit_HG.Hint:=TypeElAIg_to_char(aiguillage[index].Adroit,b);
// champ en bas <20> gauche
b:=aiguillage[Index].ADevieB;
if b='Z' then b:=#0;
EditPointe_BG.Text:=intToSTR(aiguillage[index].ADevie)+b;
EditPointe_BG.Hint:=TypeElAIg_to_char(aiguillage[index].ADevie,b);
// milieu haut gauche
EditP1.Text:=intToSTR(adresse)+aiguillage[Index].DDroitB;
// milieu bas gauche
EditP2.Text:=intToSTR(adresse)+aiguillage[Index].DDevieB;
// milieu haut droit
EditP3.Text:=intToSTR(aiguillage[index].Ddevie)+aiguillage[index].DDevieB;
// milieu bas droit
EditP4.Text:=intToSTR(aiguillage[index].Ddroit)+aiguillage[index].DdroitB;
if (aiguillage[ind].EtatTJD=4) or tjs then
begin
// droit haut
EditDevie_HD.Text:=intToSTR(aiguillage[id2].Adevie)+aiguillage[id2].AdevieB;
EditDevie_HD.Hint:=TypeElAIg_to_char(aiguillage[id2].Adevie,aiguillage[id2].AdevieB);
LabelTJD1.Caption:=IntToSTR(adresse);
// droit bas
EditDroit_BD.Text:=intToSTR(aiguillage[id2].Adroit)+aiguillage[Id2].AdroitB;
EditDroit_BD.Hint:=TypeElAIg_to_char(aiguillage[id2].ADroit,aiguillage[Id2].AdroitB);
LabelTJD2.Caption:=IntToSTR(adr2);
end;
if ((aiguillage[ind].EtatTJD=2) and tjd) or croi then
begin
// droit haut
EditDevie_HD.Text:=intToSTR(aiguillage[index].Ddevie)+aiguillage[index].DdevieB;
EditDevie_HD.Hint:=TypeElAIg_to_char(aiguillage[index].Ddevie,aiguillage[index].DdevieB);
LabelTJD1.Caption:=IntToSTR(adresse);
// droit bas
EditDroit_BD.Text:=intToSTR(aiguillage[index].Ddroit)+aiguillage[index].DdroitB;
EditDroit_BD.Hint:=TypeElAIg_to_char(aiguillage[index].Ddroit,aiguillage[index].DdroitB);
LabelTJD2.Caption:=IntToSTR(adresse);
end;
CheckInverse.checked:=aiguillage[Index_Aig(adresse)].inversionCDM=1;
if aiguillage[Index_Aig(adresse)].vitesse=0 then begin RadioButtonSans.checked:=true;RadioButton30kmh.checked:=false;RadioButton60kmh.checked:=false;end;
if aiguillage[Index_Aig(adresse)].vitesse=30 then begin RadioButtonSans.checked:=false;RadioButton30kmh.checked:=true;RadioButton60kmh.checked:=false;end;
if aiguillage[Index_Aig(adresse)].vitesse=60 then begin RadioButtonSans.checked:=false;RadioButton30kmh.checked:=false;RadioButton60kmh.checked:=true;end;
end;
if croi then
begin
GroupBox21.Visible:=false;
GroupBox10.Visible:=false;
checkInverse.Visible:=false;
editL.Visible:=false;
labelL.Visible:=false;
ComboBoxAig.ItemIndex:=4;
editP1.Visible:=false;
editP2.Visible:=false;
editP3.Visible:=false;
editP4.Visible:=false;
labelTJD1.Visible:=false;
labelTJD2.Visible:=false;
labelcrois.Visible:=true;
end;
// aiguillage normal ou tri
if (not(tjd) and not(tjs) and not(croi)) or tri then
begin
EditL.Visible:=false;
Label20.Visible:=false;
LabelL.Visible:=false;
ComboBoxAig.ItemIndex:=0;
if not(tri) then
begin
ImageAffiche.Picture.BitMap:=Imageaig.Picture.Bitmap;
EditDevieS2.Visible:=false;
EditAigTriple.Visible:=false;
end;
labelBG.Caption:='P';
EditPointe_BG.ReadOnly:=false;
Edit_HG.Visible:=false;
labelHG.Visible:=false;
EditP1.Visible:=false;
EditP2.Visible:=false;
EditP3.Visible:=false;
EditP4.Visible:=false;
labelTJD1.Visible:=false;
LabelTJD2.Visible:=false;
Label18.Visible:=false;
CheckInverse.checked:=aiguillage[Index_Aig(adresse)].inversionCDM=1;
if aiguillage[Index].vitesse=0 then begin RadioButtonSans.checked:=true;RadioButton30kmh.checked:=false;RadioButton60kmh.checked:=false;end;
if aiguillage[Index].vitesse=30 then begin RadioButtonSans.checked:=false;RadioButton30kmh.checked:=true;RadioButton60kmh.checked:=false;end;
if aiguillage[Index].vitesse=60 then begin RadioButtonSans.checked:=false;RadioButton30kmh.checked:=false;RadioButton60kmh.checked:=true;end;
EditPointe_BG.Text:=intToSTR(aiguillage[index].Apointe)+aiguillage[index].ApointeB;
EditPointe_BG.Hint:=TypeElAIg_to_char(aiguillage[index].Apointe,aiguillage[index].ApointeB);
EditDevie_HD.Text:=intToSTR(aiguillage[index].Adevie)+aiguillage[index].AdevieB;
EditDevie_HD.Hint:=TypeElAIg_to_char(aiguillage[index].Adevie,aiguillage[index].AdevieB);
EditDroit_BD.Text:=intToSTR(aiguillage[index].Adroit)+aiguillage[index].AdroitB;
EditDroit_BD.Hint:=TypeElAIg_to_char(aiguillage[index].Adroit,aiguillage[index].AdroitB);
if tri then
begin
ComboBoxAig.ItemIndex:=3; // 0=n'existe pas 1=aiguillage 2=TJD 3=TJS 4=aiguillage triple
EditAigTriple.Visible:=true;
labelTJD1.Visible:=false;
LabelTJD2.Visible:=false;
EditPointe_BG.ReadOnly:=false;
labelBG.Caption:='P';
ImageAffiche.Picture.BitMap:=ImageTri.Picture.Bitmap;
EditDevieS2.Visible:=true;
Label18.Visible:=true;
adr2:=aiguillage[index].AdrTriple;
EditDevieS2.text:=intToSTR(aiguillage[index].Adevie2)+aiguillage[index].Adevie2B;
i:=aiguillage[index].Adrtriple;
EditAigTriple.Text:=intToSTR(i);
if i=0 then EditAigTriple.Color:=clred else EditAigTriple.Color:=clWindow;
end;
end;
end;
position:=aiguillage[index].posinit;
if position=const_inconnu then formconfig.ComboBoxDD.ItemIndex:=2;
if position=const_droit then formconfig.ComboBoxDD.ItemIndex:=1;
if position=const_devie then formconfig.ComboBoxDD.ItemIndex:=0;
formconfig.EditTempo10.text:=InttoSTr(aiguillage[index].temps);
formconfig.EditTempo10.text:=InttoSTr(aiguillage[index].temps);
clicListe:=false;
end;
procedure champs_type_pn;
begin
with formconfig do
begin
GroupBoxRadio.Visible:=false;
GroupBoxAct.Visible:=false;
GroupBoxPN.Top:=24;
GroupBoxPN.Left:=16;
GroupBoxPN.Visible:=true;
Visible:=true;
RadioButtonLoc.Checked:=false;
RadioButtonAccess.Checked:=false;
RadioButtonSon.Checked:=false;
EditSon.Visible:=false;
SpeedButtonJoue.Visible:=false;
SpeedButtonCharger.Visible:=false;
LabelNomSon.Visible:=false;
end;
end;
procedure positionne;
begin
with formconfig do
begin
GroupBoxRadio.Visible:=true;
GroupBoxRadio.top:=16;
GroupBoxRadio.Left:=16;
GroupBoxAct.Top:=92;
GroupBoxAct.Left:=16;
GroupBoxAct.Height:=340;
GroupBox18.Top:=16;
GroupBox18.Height:=150;
GroupBox19.Top:=190;
GroupBox19.Height:=96;
end;
end;
procedure champs_type_loco;
begin
with formconfig do
begin
positionne;
CheckRaz.Visible:=false;
GroupBoxAct.Caption:='Action pour fonction F de locomotive';
LabelTempo.Visible:=true; EditTempo.visible:=true; editEtatFoncSortie.visible:=false;LabelA.Visible:=false;
LabelFonction.visible:=true;
LabelFonction.caption:='Action : Fonction';
RadioButtonLoc.Checked:=true;
RadioButtonAccess.Checked:=false;
RadioButtonSon.Checked:=false;
GroupBoxAct.Visible:=true;
GroupBoxPN.Visible:=false;
EditSon.Visible:=false;
SpeedButtonJoue.Visible:=false;
SpeedButtonCharger.Visible:=false;
EditFonctionAccess.Visible:=true;
LabelNomSon.Visible:=false;
editTrainDest.Visible:=true;
label42.Visible:=true;
end;
end;
procedure champs_type_act;
begin
with formconfig do
begin
positionne;
GroupBoxAct.Caption:='Action pour accessoire';
CheckRaz.Visible:=true;
LabelTempo.Visible:=false; EditTempo.visible:=false;editEtatFoncSortie.visible:=true;LabelA.Visible:=true;
LabelFonction.visible:=true;
LabelFonction.caption:='Action : Accessoire';
RadioButtonLoc.Checked:=false;
RadioButtonSon.checked:=false;
RadioButtonAccess.Checked:=true;
GroupBoxAct.Visible:=true;
GroupBoxPN.Visible:=false;
EditSon.Visible:=false;
SpeedButtonJoue.Visible:=false;
SpeedButtonCharger.Visible:=false;
EditFonctionAccess.Visible:=true;
LabelNomSon.Visible:=false;
editTrainDest.Visible:=false;
label42.Visible:=false;
end;
end;
procedure champs_type_son;
begin
with formconfig do
begin
Positionne;
GroupBoxAct.Caption:='Action pour son';
CheckRaz.Visible:=true;
LabelTempo.Visible:=false; EditTempo.visible:=false;
editEtatFoncSortie.visible:=false;
LabelA.Visible:=false;
LabelFonction.visible:=false;
EditFonctionAccess.Visible:=false;
CheckRaz.Visible:=false;
EditSon.Visible:=true;
SpeedButtonJoue.Visible:=true;
SpeedButtonCharger.Visible:=true;
LabelNomSon.Visible:=true;
RadioButtonLoc.Checked:=false;
RadioButtonAccess.Checked:=false;
RadioButtonSon.checked:=true;
GroupBoxAct.Visible:=true;
GroupBoxPN.Visible:=false;
editTrainDest.Visible:=false;
label42.Visible:=false;
end;
end;
procedure champs_decl_actdet;
begin
with formconfig do
begin
EditTrainDecl.Visible:=true ;
LabelTrain.Visible:=true ;
radioButtonActDet.Checked:=true;
radioButtonZones.Checked:=false;
radioButtonAig.Checked:=false;
editact2.Visible:=false;
LabelActionneur.Caption:='Actionneur D<>tecteur';
EditEtatActionneur.Hint:='0 ou 1';
end;
end;
procedure champs_decl_zones;
begin
with formconfig do
begin
radioButtonActDet.Checked:=false;
radioButtonZones.Checked:=true;
radioButtonAig.Checked:=false;
EditTrainDecl.Visible:=false;
LabelTrain.Visible:=false;
editact2.Visible:=true;
LabelActionneur.Caption:='M<>moire de Zone';
EditEtatActionneur.Hint:='0 ou 1';
end;
end;
procedure champs_decl_aig;
begin
with formconfig do
begin
radioButtonActDet.Checked:=false;
radioButtonZones.Checked:=false;
radioButtonAig.Checked:=true;
EditAct2.Visible:=false;
EditTrainDecl.Visible:=false;
LabelTrain.Visible:=false;
editact2.Visible:=false;
LabelActionneur.Caption:='Aiguillage';
EditEtatActionneur.Hint:='1 ou S=d<>vi<76> 2 ou D=droit';
end;
end;
// transforme une chaine "<22>l<EFBFBD>ment" en une chaine affichable pour le hint
// ex chaine_element("A32")=aiguillage 32
function chaine_element(Equip : Tequipement;adr : integer) : string;
var s: string;
begin
case Equip of
aig : s:='Aiguillage ';
tjd : s:='Tjd ';
tjs : s:='Tjs ';
triple : s:='Aiguillage triple ';
det : s:='D<>tecteur ';
else s:='Inconnu ';
end;
result:=s+intToSTR(adr);
end;
// mise <20> jour des champs du signal d'apr<70>s le tableau feux
Procedure aff_champs_sig_feux(index : integer);
var i,j,l,d,p,k,nc,decodeur : integer;
s : string;
begin
if Affevt then affiche('Aff_champs_sig_feux('+intToSTR(index)+')',clyellow);
if index<0 then exit;
clicListe:=true;
i:=index;
FormConfig.EditAdrSig.text:=InttoSTr(feux[i].adresse);
with formconfig.ImageSignal do
begin
Picture.Bitmap.TransparentMode:=tmAuto;
Picture.Bitmap.TransparentColor:=clblue;
Transparent:=true;
picture.Bitmap:=Select_dessin_feu(feux[i].aspect);
end;
with formconfig do
begin
MemoCarre.Lines.Clear;
EditDet2.Text:=''; EditSuiv2.Text:='';
EditDet3.Text:=''; EditSuiv3.Text:='';
EditDet4.Text:=''; EditSuiv4.Text:='';
ComboBoxDec.ItemIndex:=feux[i].decodeur;
decodeur:=feux[i].decodeur;
ButtonConfigSR.Visible:=false;
//SR
if (decodeur=7) or (decodeur=2) then ButtonConfigSR.Visible:=true;
// unisemaf
if (decodeur=6) then
begin
EditSpecUni.Visible:=true;
LabelUni.Caption:='Spec Unisemaf';
LabelUni.Visible:=true;
EditSpecUni.Text:=IntToSTR(feux[i].Unisemaf);
editSpecUni.Hint:='Param<61>tre de description suppl<70>mentaire du d<>codeur Unisemaf';
editSpecUni.ShowHint:=true;
end;
// digikeijs
if (decodeur=5) then
begin
ButtonConfigSR.Visible:=true ;
end;
if (decodeur<>6) then
begin EditSpecUni.Visible:=false;LabelUni.Visible:=false;end;
d:=feux[i].aspect;
case d of
2 : ComboBoxAsp.ItemIndex:=0;
3 : ComboBoxAsp.ItemIndex:=1;
4 : ComboBoxAsp.ItemIndex:=2;
5 : ComboBoxAsp.ItemIndex:=3;
7 : ComboBoxAsp.ItemIndex:=4;
9 : ComboBoxAsp.ItemIndex:=5;
else
ComboBoxAsp.ItemIndex:=d-10+4;
end;
if ((d=2) or (d>=5)) and (d<10) then checkBoxFB.Visible:=true else checkBoxFB.Visible:=false;
if d>2 then
begin
checkFVC.Visible:=true;
checkFRC.Visible:=true;
end
else
begin
checkFVC.Visible:=false;
checkFRC.Visible:=false;
end;
if (d>3) and (d<10) then CheckVerrouCarre.Visible:=true else CheckVerrouCarre.Visible:=false;
// signal normal
if d<10 then
begin
Label17.Caption:='Conditions suppl<70>mentaires d''affichage du carr<72> par les aiguillages :';
Label17.Width:=228;
LabelDetAss.visible:=true;
LabelElSuiv.visible:=true;
label43.Visible:=true;
EditDet1.Visible:=true;EditDet2.Visible:=true;EditDet3.Visible:=true;EditDet4.Visible:=true;
EditSuiv1.Visible:=true;EditSuiv2.Visible:=true;EditSuiv3.Visible:=true;EditSuiv4.Visible:=true;
Label24.Visible:=true; Label25.Visible:=true;Label26.Visible:=true;Label27.Visible:=true;
EditDet1.Text:=IntToSTR(feux[i].Adr_det1);
EditSuiv1.Text:=TypeEl_To_char(feux[i].Btype_suiv1)+IntToSTR(feux[i].Adr_el_suiv1);
EditSuiv1.Hint:=chaine_element(feux[i].Btype_suiv1,feux[i].Adr_el_suiv1);
j:=feux[i].Adr_det2;
if j<>0 then
begin
Editdet2.Text:=IntToSTR(j);EditSuiv2.Text:=TypeEl_To_char(feux[i].Btype_suiv2)+IntToSTR(feux[i].Adr_el_suiv2);
EditSuiv2.Hint:=chaine_element(feux[i].Btype_suiv2,feux[i].Adr_el_suiv2);
end else begin EditDet2.Text:='';EditSuiv2.Text:='';EditSuiv2.Hint:='';end;
j:=feux[i].Adr_det3;
if j<>0 then
begin
EditDet3.Text:=IntToSTR(j);EditSuiv3.Text:=TypeEl_To_char(feux[i].Btype_suiv3)+IntToSTR(feux[i].Adr_el_suiv3);
EditSuiv3.Hint:=chaine_element(feux[i].Btype_suiv3,feux[i].Adr_el_suiv3);
end
else begin EditDet3.Text:='';EditSuiv3.Text:='';EditSuiv3.Hint:='';end;
j:=feux[i].Adr_det4;
if j<>0 then
begin
EditDet4.Text:=IntToSTR(j);EditSuiv4.Text:=TypeEl_To_char(feux[i].Btype_suiv4)+IntToSTR(feux[i].Adr_el_suiv4);
EditSuiv4.Hint:=chaine_element(feux[i].Btype_suiv4,feux[i].Adr_el_suiv4);
end
else begin EditDet4.Text:='';EditSuiv4.Text:='';EditSuiv4.Hint:='';end;
checkVerrouCarre.Checked:=feux[i].VerrouCarre;
checkBoxFB.Checked:=feux[i].FeuBlanc;
checkFVC.Checked:=feux[i].checkFV;
checkFRC.Checked:=feux[i].checkFR;
// conditions suppl<70>mentaires du carr<72> par aiguillages
l:=1;
repeat
nc:=Length(feux[i].condcarre[l])-1 ;
if nc<>-1 then
begin
s:='';
for k:=1 to nc do
begin
s:=s+'A'+IntToSTR(feux[i].condcarre[l][k].Adresse)+feux[i].condcarre[l][k].PosAig;
if k<nc then s:=s+',';
end;
MemoCarre.Lines.Add(s);
end;
inc(l);
until (nc<=0) or (l>6);
// scrolle le MemoCarre sur la premi<6D>re ligne
MemoCarre.SelStart:=0;
MemoCarre.Perform(EM_SCROLLCARET,0,0);
end
else
begin // directionnel
Label17.Caption:='Conditions d''affichage du feu directionnel :';
label43.Visible:=false;
LabelDetAss.visible:=false;
LabelElSuiv.visible:=false;
EditDet1.Visible:=false;EditDet2.Visible:=false;EditDet3.Visible:=false;EditDet4.Visible:=false;
EditSuiv1.Visible:=false;EditSuiv2.Visible:=false;EditSuiv3.Visible:=false;EditSuiv4.Visible:=false;
CheckVerrouCarre.Visible:=false;
checkFVC.visible:=false;
checkFRC.visible:=false;
Label24.Visible:=false; Label25.Visible:=false;Label26.Visible:=false;Label27.Visible:=false;
// conditions d'affichage du signal directionnel
L:=feux[i].aspect-10; //nombre de feux du signal directionnel
for p:=1 to L+1 do
begin
s:='';
nc:=Length(feux[i].AigDirection[p])-1;
for k:=1 to nc do
begin
s:=s+'A'+IntToSTR(feux[i].AigDirection[p][k].adresse) + feux[i].AigDirection[p][k].posaig;
if k<nc then s:=s+',';
end;
MemoCarre.Lines.Add(s);
end;
// scrolle le MemoCarre sur la premi<6D>re ligne
MemoCarre.SelStart:=0;
MemoCarre.Perform(EM_SCROLLCARET,0,0);
end;
end;
clicListe:=false;
end;
// mise <20> jour des champs graphiques des actionneurs d'apr<70>s l'index du tableau
Procedure aff_champs_act(i : integer);
var etatact, adresse,sortie,fonction,tempo,access,typ : integer;
s,s2,adr : string;
begin
if affevt then affiche('Aff_champs_act('+intToSTR(i)+')',clyellow);
if i<1 then exit;
s:=Uppercase(FormConfig.RichAct.Lines[i-1]);
if s='' then exit;
fonction:=Tablo_actionneur[i].fonction;
Access:=Tablo_actionneur[i].accessoire;
typ:=Tablo_actionneur[i].typdeclenche;
// d<>clencheurs
with formconfig do
begin
case typ of
0 :
begin
champs_decl_actdet;
end;
3 :
begin
champs_decl_zones;
end;
2 :
begin
champs_decl_aig;
end;
end;
end;
//if det then s2:='D<>tecteur ' else s2:='Actionneur ';
s2:='D<>tecteur ou actionneur ';
s2:=s2+intToSTR(Tablo_actionneur[i].adresse);
FormConfig.EditAct.Hint:=s2;
// Actionneur fonction F loco
if Tablo_actionneur[i].loco then
begin
champs_type_loco;
formconfig.editAct2.Text:=IntToSTR(Tablo_actionneur[i].adresse2);
etatAct:=Tablo_actionneur[i].etat;
Adresse:=Tablo_actionneur[i].adresse;
s2:=Tablo_actionneur[i].trainDecl;
trainsauve:=s2;
tempo:=tablo_actionneur[i].Tempo;
with formconfig do
begin
champs_type_loco;
adr:=IntToSTR(Adresse); //if det then adr:=adr+'Z';
EditAct.text:=adr;
EditAct2.Text:=inttostr(Tablo_actionneur[i].adresse2);
editEtatActionneur.Text:=IntToSTR(etatAct);
EditTrainDecl.Text:=s2;
EditTrainDest.Text:=Tablo_actionneur[i].trainDest;
editFonctionAccess.Text:=intToSTR(fonction);
editTempo.Text:=intToSTR(tempo);
end;
end;
// Actionneur accessoire
if Tablo_actionneur[i].act then
begin
champs_type_act;
{
case typ of
0 : with formconfig do
begin
//radioButtonActDet.Checked:=true;
//radioButtonZones.Checked:=false;
//editAct2.Visible:=false;
end;
1 : with formconfig do
begin
end;
2 : with formconfig do
begin
end;
end;
}
etatAct:=Tablo_actionneur[i].etat ;
Adresse:=Tablo_actionneur[i].adresse;
sortie:=Tablo_actionneur[i].sortie;
s2:=Tablo_actionneur[i].trainDecl;
trainsauve:=s2;
tempo:=tablo_actionneur[i].Tempo;
with formconfig do
begin
adr:=IntToSTR(Adresse); //if det then adr:=adr+'Z';
EditAct.text:=adr;
EditAct2.Text:=inttostr(Tablo_actionneur[i].adresse2);
CheckRaz.Checked:=Tablo_actionneur[i].Raz;
EditTrainDecl.Text:=s2;
EditEtatActionneur.Text:=IntToSTR(etatAct);
editFonctionAccess.Text:=intToSTR(Access);
editEtatFoncSortie.Text:=intToSTR(sortie);
editTempo.Text:=intToSTR(tempo);
end;
end;
// Actionneur son
if Tablo_actionneur[i].son then
begin
champs_type_son;
if typ=0 then with formconfig do
begin
radioButtonActDet.Checked:=true;
radioButtonZones.Checked:=false;
editAct2.Visible:=false;
LabelActionneur.Caption:='Actionneur D<>tecteurZ';
end;
if typ=1 then with formconfig do
begin
radioButtonActDet.Checked:=false;
radioButtonZones.Checked:=true;
editAct2.Visible:=true;
LabelActionneur.Caption:='M<>moire de Zone';
end;
etatAct:=Tablo_actionneur[i].etat ;
Adresse:=Tablo_actionneur[i].adresse;
s2:=Tablo_actionneur[i].trainDecl;
trainsauve:=s2;
s:=Tablo_actionneur[i].FichierSon;
with formconfig do
begin
adr:=IntToSTR(Adresse); //if det then adr:=adr+'Z';
EditAct.text:=adr;
EditAct2.Text:=inttostr(Tablo_actionneur[i].adresse2);
//CheckRaz.Checked:=Tablo_actionneur[i].Raz;
EditTrainDecl.Text:=s2;
EditSon.Text:=s;
EditEtatActionneur.Text:=IntToSTR(etatAct);
end;
end;
end;
procedure raz_champs_pn;
begin
with formconfig do
begin
editAdrFerme.Text:='';EditCmdFerme.text:='';
editAdrOuvre.Text:='';EditCdeOuvre.text:='';
editV1F.Text:='';editV1O.Text:='';
editV2F.Text:='';editV2O.Text:='';
editV3F.Text:='';editV3O.Text:='';
editV4F.Text:='';editV4O.Text:='';
editV5F.Text:='';editV5O.Text:='';
EditZdet1V1F.text:='';EditZdet2V1F.text:='';EditZdet1V1O.text:='';EditZdet2V1O.text:='';
EditZdet1V2F.text:='';EditZdet2V2F.text:='';EditZdet1V2O.text:='';EditZdet2V2O.text:='';
EditZdet1V3F.text:='';EditZdet2V3F.text:='';EditZdet1V3O.text:='';EditZdet2V3O.text:='';
EditZdet1V4F.text:='';EditZdet2V4F.text:='';EditZdet1V4O.text:='';EditZdet2V4O.text:='';
EditZdet1V5F.text:='';EditZdet2V5F.text:='';EditZdet1V5O.text:='';EditZdet2V5O.text:='';
end;
end;
// affiche les champs de l'actionneur PN en fonction de l'index du tableau
procedure aff_champs_PN(i : integer);
var adresse,erreur,j,v : integer;
trouve : boolean;
s : string;
begin
if affevt then affiche('Aff_champs_PN('+intToSTR(i)+')',clyellow);
if i<1 then exit;
s:=Uppercase(FormConfig.RichPN.Lines[i-1]);
if s='' then exit;
with formconfig do
begin
LabelInfo.caption:='';
raz_champs_pn;
end;
// actionneur passage <20> niveau
if s[1]='(' then
begin
champs_type_pn;
// trouver l'index dans le tableau
i:=pos('PN(',s);
delete(s,1,i+2);
val(s,adresse,erreur);
i:=0;
repeat
inc(i);
trouve:=(Tablo_PN[i].AdresseFerme=adresse);
until trouve or (i>NbrePN);
if not(trouve) then exit;
with formConfig do
begin
EditAdrFerme.text:=IntToSTR(Tablo_PN[i].AdresseFerme);
EditAdrOuvre.text:=IntToSTR(Tablo_PN[i].AdresseOuvre);
EditCmdFerme.text:=intToSTR(Tablo_PN[i].CommandeFerme);
EditCdeOuvre.text:=intToSTR(Tablo_PN[i].CommandeOuvre);
if Tablo_PN[i].Pulse=1 then trouve:=true else trouve:=false;
CheckPnPulse.Checked:=trouve;
// par actionneur
if Tablo_PN[i].voie[1].ActFerme<>0 then
begin
EditV1F.text:=intToSTR(Tablo_PN[i].voie[1].ActFerme);
EditV1O.text:=intToSTR(Tablo_PN[i].voie[1].ActOuvre);
v:=Tablo_PN[i].nbvoies;
if v>=2 then
begin
EditV2F.text:=intToSTR(Tablo_PN[i].voie[2].ActFerme);
EditV2O.text:=intToSTR(Tablo_PN[i].voie[2].ActOuvre);
end;
if v>=3 then
begin
EditV3F.text:=intToSTR(Tablo_PN[i].voie[3].ActFerme);
EditV3O.text:=intToSTR(Tablo_PN[i].voie[3].ActOuvre);
end;
if v>=4 then
begin
EditV4F.text:=intToSTR(Tablo_PN[i].voie[4].ActFerme);
EditV4O.text:=intToSTR(Tablo_PN[i].voie[4].ActOuvre);
end;
if v>=5 then
begin
EditV5F.text:=intToSTR(Tablo_PN[i].voie[5].ActFerme);
EditV5O.text:=intToSTR(Tablo_PN[i].voie[5].ActOuvre);
end;
end
else
begin
// par zone de d<>tecteurs
v:=Tablo_PN[i].nbvoies;
j:=Tablo_PN[i].voie[1].detZ1F;if j<>0 then
begin
EditZdet1V1F.text:=intToSTR(j);
EditZdet2V1F.text:=intToSTR(Tablo_PN[i].voie[1].detZ2F);
EditZdet1V1O.text:=intToSTR(Tablo_PN[i].voie[1].detZ1O);
EditZdet2V1O.text:=intToSTR(Tablo_PN[i].voie[1].detZ2O);
if v>=2 then
begin
EditZdet1V2F.text:=intToSTR(Tablo_PN[i].voie[2].detZ1F);
EditZdet2V2F.text:=intToSTR(Tablo_PN[i].voie[2].detZ2F);
EditZdet1V2O.text:=intToSTR(Tablo_PN[i].voie[2].detZ1O);
EditZdet2V2O.text:=intToSTR(Tablo_PN[i].voie[2].detZ2O);
end;
if v>=3 then
begin
EditZdet1V3F.text:=intToSTR(Tablo_PN[i].voie[3].detZ1F);
EditZdet2V3F.text:=intToSTR(Tablo_PN[i].voie[3].detZ2F);
EditZdet1V3O.text:=intToSTR(Tablo_PN[i].voie[3].detZ1O);
EditZdet2V3O.text:=intToSTR(Tablo_PN[i].voie[3].detZ2O);
end;
if v>=4 then
begin
EditZdet1V4F.text:=intToSTR(Tablo_PN[i].voie[4].detZ1F);
EditZdet2V4F.text:=intToSTR(Tablo_PN[i].voie[4].detZ2F);
EditZdet1V4O.text:=intToSTR(Tablo_PN[i].voie[4].detZ1O);
EditZdet2V4O.text:=intToSTR(Tablo_PN[i].voie[4].detZ2O);
end;
if v>=5 then
begin
EditZdet1V5F.text:=intToSTR(Tablo_PN[i].voie[5].detZ1F);
EditZdet2V5F.text:=intToSTR(Tablo_PN[i].voie[5].detZ2F);
EditZdet1V5O.text:=intToSTR(Tablo_PN[i].voie[5].detZ1O);
EditZdet2V5O.text:=intToSTR(Tablo_PN[i].voie[5].detZ2O);
end;
end;
end;
end;
end
end;
procedure raz_champs_act;
begin
with formConfig do
begin
editAct.Text:='';EditAct2.Text:='';
EditEtatActionneur.Text:='';
EditTrainDecl.Text:='';
EditFonctionAccess.Text:='';
EditEtatFoncSortie.Text:='';
EditTempo.Text:='';
CheckRaz.Checked:=false;
editson.Text:='';
EditTrainDest.text:='';
end;
end;
procedure raz_champs_aig;
begin
with formConfig do
begin
LabelInfo.caption:='';
EditAdrAig.Text:='';EditAigTriple.Text:='';
Edit_HG.text:='';
editDevie_HD.Text:='';
editDroit_BD.Text:='';
editPointe_BG.Text:='';
EditTempo10.text:='';
end;
end;
procedure raz_champs_sig;
begin
with formconfig do
begin
LabelInfo.caption:='';
EditDet1.Text:='';EditSuiv1.Text:='';
EditDet2.Text:='';EditSuiv2.Text:='';
EditDet3.Text:='';EditSuiv3.Text:='';
EditDet4.Text:='';EditSuiv4.Text:='';
EditAdrSig.Text:='';
MemoCarre.Clear;
ComboBoxAsp.ItemIndex:=-1;
ComboBoxDec.ItemIndex:=-1;
ImageSignal.Picture:=Nil;
checkVerrouCarre.Checked:=false;
checkBoxFB.Checked:=false;
checkFVC.Checked:=false;
checkFRC.Checked:=false;
end;
end;
// cliqu<71> sur liste aiguillages
procedure TFormConfig.RichAigMouseDown(Sender: TObject;Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var i,lc,adresse,erreur : integer;
s : string;
begin
clicliste:=true;
// HideCaret(RichAig.Handle);
raz_champs_aig;
ComboBoxAig.ItemIndex:=-1;
formconfig.ComboBoxDD.ItemIndex:=-1;
with Formconfig.RichAig do
begin
i:=Selstart;
lc:=Perform(EM_LINEFROMCHAR,i,0); // num<75>ro de la lign<67>e cliqu<71>e
//Affiche('num<75>ro de la ligne cliqu<71>e '+intToStr(lc),clyellow);
s:=Uppercase(Lines[lc]); // ligne cliqu<71>e
if s='' then
begin
RE_ColorLine(Formconfig.RichAig,ligneclicAig,ClAqua);
ligneclicAig:=-1;
exit;
end;
Aig_sauve:=Aiguillage[lc+1]; // sauvegarde
AncligneclicAig:=ligneclicAig;
ligneclicAig:=lc;
if AncligneclicAig<>-1 then
begin
if aiguillage[ligneclicAig+1].modifie then RE_ColorLine(Formconfig.RichAig,AncligneclicAig,ClWhite) else
RE_ColorLine(Formconfig.RichAig,AncligneclicAig,ClAqua);
end;
end;
Val(s,Adresse,erreur); // Adresse de l'aguillage
if adresse=0 then exit;
RE_ColorLine(Formconfig.RichAig,ligneclicAig,Clyellow);
i:=index_aig(Adresse);
aff_champs_Aig_tablo(i);
clicliste:=false;
end;
procedure TFormConfig.Edit_HGChange(Sender: TObject);
var s : string;
adr,adraig,erreur,index : integer;
b : char;
begin
if clicliste then exit;
if affevt then affiche('Evt change HG',clyellow);
if FormConfig.PageControl.ActivePage=FormConfig.TabSheetAig then
with Formconfig do
begin
s:=formconfig.RichAig.Lines[ligneclicAig];
Val(s,adrAig,erreur);
//v<>rifier la syntaxe
s:=Edit_HG.text;
decodeAig(s,adr,B);
if ((B='S') or (B='P') or (B='D') or (B=#0) or (b='Z')) and (s<>'') then
begin
RE_ColorLine(RichAig,ligneclicAig,ClWhite);
Index:=Index_Aig(AdrAig);
Aiguillage[index].modifie:=true;
LabelInfo.caption:='';
// modifier la base de donn<6E>es de l'aiguillage
if b=#0 then b:='Z';
Aiguillage[index].Adroit:=adr;
Aiguillage[index].AdroitB:=B;
Edit_HG.Hint:=TypeElAIg_to_char(adr,B);
// r<>encoder la ligne
s:=encode_aig(index);
formconfig.RichAig.Lines[ligneclicAig]:=s;
end
else
LabelInfo.caption:='Erreur pointe aiguillage '+intToSTR(AdrAig);
end;
end;
// on change la valeur de la description du champ HG pour les TJD
procedure TFormConfig.EditDevie_HDChange(Sender: TObject);
var AdrAig,adr,adr2,erreur,index : integer;
b : char;
modele:Tequipement;
s : string;
begin
// cliqu<71> sur le edit d<>vi<76> aiguillage
// ne pas traiter si on a cliqu<71> sur la liste
if clicliste then exit;
if affevt then affiche('Evt change d<>vi<76>',clyellow);
if FormConfig.PageControl.ActivePage=FormConfig.TabSheetAig then
with Formconfig do
begin
s:=formconfig.RichAig.Lines[ligneclicAig];
Val(s,adrAig,erreur);
//v<>rifier la syntaxe de P
s:=EditDevie_HD.text;
decodeAig(s,adr,B);
index:=index_aig(adrAig);
if index=0 then exit;
modele:=aiguillage[index].modele;
if (modele=aig) or (modele=triple) then
begin
if ((B='S') or (B='P') or (B='D') or (B=#0) or (b='Z')) and (s<>'') then
begin
// aiguillage normal ou triple
LabelInfo.caption:='';
if (B='S') or (b='P') or (b='D') then
begin
if adr=AdrAig then LabelInfo.caption:='Un aiguillage ne peut pointer sur lui m<>me ';
end;
RE_ColorLine(RichAig,ligneclicAig,ClWhite);
Aiguillage[index].modifie:=true;
// modifier la base de donn<6E>es de l'aiguillage
if b=#0 then b:='Z';
Aiguillage[Index].ADevie:=adr;
Aiguillage[Index].ADevieB:=B;
EditDevie_HD.Hint:=TypeElAIg_to_char(adr,B);
// r<>encoder la ligne
s:=encode_aig(Index);
formconfig.RichAig.Lines[ligneclicAig]:=s;
end
else
begin
LabelInfo.caption:='Erreur d<>viation aiguillage '+intToSTR(AdrAig);
end;
end;
if (modele=tjd) or (modele=tjs) then
begin
// TJD4/TJS
if aiguillage[index].EtatTJD=4 then
begin
adr2:=aiguillage[index].DDroit; // adresse homologue
index:=Index_aig(adr2);
if index=0 then exit;
aiguillage[index].Adevie:=adr;
aiguillage[index].AdevieB:=B;
RE_ColorLine(Formconfig.RichAig,index-1,ClWhite);
LabelInfo.caption:='Modification de la TJD homologe ('+IntToSTR(adr2)+')';
end;
if aiguillage[index].EtatTJD=2 then
begin
aiguillage[index].Ddevie:=adr;
aiguillage[index].DdevieB:=B;
end;
s:=encode_aig(index);
formconfig.RichAig.Lines[index-1]:=s;
end;
if modele=crois then
begin
aiguillage[index].Ddevie:=adr;
aiguillage[index].DdevieB:=B;
RE_ColorLine(Formconfig.RichAig,index-1,ClWhite);
s:=encode_aig(index);
formconfig.RichAig.Lines[index-1]:=s;
end;
end;
end;
// on change la valeur de la description de la d<>viation de l'aiguillage
procedure TFormConfig.EditDroit_BDChange(Sender: TObject);
var AdrAig,adr,erreur,index,adr2 : integer;
b : char;
modele: TEquipement;
s : string;
begin
// cliqu<71> sur le edit droit aiguillage
// ne pas traiter si on a cliqu<71> sur la liste
if clicliste then exit;
if affevt then affiche('Evt change droit',clyellow);
if FormConfig.PageControl.ActivePage=FormConfig.TabSheetAig then
with Formconfig do
begin
s:=formconfig.RichAig.Lines[ligneclicAig];
Val(s,adrAig,erreur);
//v<>rifier la syntaxe de P
s:=EditDroit_BD.text;
decodeAig(s,adr,B);
Index:=Index_Aig(AdrAig);
if index=0 then exit;
LabelInfo.caption:='';
if (B='S') or (b='P') or (b='D') then
begin
if adr=AdrAig then LabelInfo.caption:='Un aiguillage ne peut pointer sur lui m<>me ';
end;
modele:=aiguillage[index].modele;
if (modele=aig) or (modele=triple) then
begin
if ((B='S') or (B='P') or (B='D') or (B=#0) or (b='Z')) and (s<>'') then
begin
RE_ColorLine(RichAig,ligneclicAig,ClWhite);
Aiguillage[Index].modifie:=true;
// modifier la base de donn<6E>es de l'aiguillage
if b=#0 then b:='Z';
Aiguillage[index].ADroit:=adr;
Aiguillage[index].ADroitB:=B;
EditDroit_BD.Hint:=TypeElAIg_to_char(adr,B);
// r<>encoder la ligne
s:=encode_aig(Index);
formconfig.RichAig.Lines[ligneclicAig]:=s;
end
else
begin
LabelInfo.caption:='Erreur droit aiguillage '+intToSTR(AdrAig);
end;
end;
if (modele=tjd) or (modele=tjs) then
begin
// TJD4/TJS
if aiguillage[index].EtatTJD=4 then
begin
adr2:=aiguillage[index].DDroit; // adresse homologue
index:=Index_aig(adr2);
if index=0 then exit;
aiguillage[index].Adroit:=adr;
aiguillage[index].AdroitB:=B;
end;
// TJD2
if aiguillage[index].EtatTJD=2 then
begin
aiguillage[index].Ddroit:=adr;
aiguillage[index].DdroitB:=B;
end;
s:=encode_aig(index);
formconfig.RichAig.Lines[index-1]:=s;
RE_ColorLine(Formconfig.RichAig,index-1,ClWhite);
LabelInfo.caption:='Modification de la TJD homologe ('+IntToSTR(adr2)+')';
end;
if modele=crois then
begin
aiguillage[index].Ddroit:=adr;
aiguillage[index].DdroitB:=B;
RE_ColorLine(Formconfig.RichAig,index-1,ClWhite);
s:=encode_aig(index);
formconfig.RichAig.Lines[index-1]:=s;
end;
end;
end;
procedure TFormConfig.EditPointe_BGChange(Sender: TObject);
var AdrAig,adr,erreur,index : integer;
b : char;
normal,tjdC,tjsC,triC,croi : boolean;
s : string;
begin
// cliqu<71> sur le edit pointe aiguillage
// ne pas traiter si on a cliqu<71> sur la liste
if clicliste then exit;
if affevt then affiche('Evt change pointe',clyellow);
if FormConfig.PageControl.ActivePage=FormConfig.TabSheetAig then
with Formconfig do
begin
s:=formconfig.RichAig.Lines[ligneclicAig];
Val(s,adrAig,erreur);
//v<>rifier la syntaxe de P
s:=Editpointe_BG.text;
decodeAig(s,adr,B);
if ((B='S') or (B='P') or (B='D') or (B=#0) or (b='Z')) and (s<>'') then
begin
RE_ColorLine(RichAig,ligneclicAig,ClWhite);
Index:=Index_Aig(AdrAig);
LabelInfo.caption:='';
if (B='S') or (b='P') or (b='D') then
begin
if adr=AdrAig then LabelInfo.caption:='Un aiguillage ne peut pointer sur lui m<>me ';
end;
normal:=aiguillage[index].modele=aig;
tjdC:=aiguillage[index].modele=tjd;
tjsC:=aiguillage[index].modele=tjs;
triC:=aiguillage[index].modele=triple;
croi:=aiguillage[index].modele=crois;
Aiguillage[index].modifie:=true;
// modifier la base de donn<6E>es de l'aiguillage
if b=#0 then b:='Z';
if normal or triC then
begin
Aiguillage[index].APointe:=adr;
Aiguillage[index].APointeB:=B;
// r<>encoder la ligne
s:=encode_aig(index);
formconfig.RichAig.Lines[ligneclicAig]:=s;
end;
if tjdC or tjsC or croi then
begin
Aiguillage[index].ADevie:=adr;
Aiguillage[index].ADevieB:=B;
s:=encode_aig(index);
formconfig.RichAig.Lines[ligneclicAig]:=s;
end;
EditPointe_BG.Hint:=TypeElAIg_to_char(adr,B);
end
else
LabelInfo.caption:='Erreur pointe aiguillage '+intToSTR(AdrAig);
end;
end;
procedure TFormConfig.EditDevieS2KeyPress(Sender: TObject; var Key: Char);
var AdrAig,adr,erreur,index : integer;
b : char;
s : string;
begin
// cliqu<71> sur le edit droit aiguillage
// ne pas traiter si on a cliqu<71> sur la liste
if clicliste or (ord(Key)<>VK_RETURN) then exit;
if affevt then affiche('Evt change S2',clyellow);
if FormConfig.PageControl.ActivePage=FormConfig.TabSheetAig then
with Formconfig do
begin
s:=formconfig.RichAig.Lines[ligneclicAig];
Val(s,adrAig,erreur);
//v<>rifier la syntaxe de P
s:=EditDevieS2.text;
decodeAig(s,adr,B);
if ((B='S') or (B='P') or (B='D') or (B=#0) or (b='Z')) and (s<>'') then
begin
RE_ColorLine(RichAig,ligneclicAig,ClWhite);
Index:=Index_Aig(AdrAig);
Aiguillage[index].modifie:=true;
LabelInfo.caption:='';
// modifier la base de donn<6E>es de l'aiguillage
if b=#0 then b:='Z';
Aiguillage[index].ADevie2:=adr;
Aiguillage[index].ADevie2B:=B;
// r<>encoder la ligne
s:=encode_aig(index);
formconfig.RichAig.Lines[ligneclicAig]:=s;
end
else
begin
LabelInfo.caption:='Erreur S2 aiguillage '+intToSTR(AdrAig);
end;
end;
end;
procedure TFormConfig.CheckInverseClick(Sender: TObject);
var s : string;
adrAig,erreur : integer;
begin
// r<>cup<75>rer l'adresse de l'aiguillage cliqu<71>
if clicliste then exit;
if affevt then affiche('Evt change pointe',clyellow);
s:=formconfig.RichAig.Lines[ligneclicAig];
Val(s,adrAig,erreur);
if checkInverse.Checked then aiguillage[Index_Aig(adraig)].InversionCDM:=1 else aiguillage[Index_Aig(adraig)].InversionCDM:=0;
// r<>encoder la ligne
s:=encode_aig(Index_Aig(AdrAig));
formconfig.RichAig.Lines[ligneclicAig]:=s;
end;
procedure TFormConfig.RadioButtonsansClick(Sender: TObject);
var AdrAig,erreur,index : integer;
s : string;
begin
if clicliste then exit;
if affevt then affiche('Evt RadioBouton sans vitesse',clyellow);
s:=formconfig.RichAig.Lines[ligneclicAig];
Val(s,adrAig,erreur);
if AdrAig=0 then exit;
index:=Index_Aig(AdrAig);
aiguillage[index].vitesse:=0;
aiguillage[index].modifie:=true;
s:=encode_aig(index);
formconfig.RichAig.Lines[ligneclicAig]:=s;
end;
procedure TFormConfig.RadioButtonTJD2Click(Sender: TObject);
var AdrAig,erreur,index,adr2 : integer;
s : string;
begin
if clicliste then exit;
if affevt then affiche('Evt RadioBouton tjd 2 <20>tats',clyellow);
s:=formconfig.RichAig.Lines[ligneclicAig];
Val(s,adrAig,erreur);
if AdrAig=0 then exit;
EditP1.Visible:=false;EditP2.Visible:=false;EditP3.Visible:=false;EditP4.Visible:=false;
LabelTJD1.Visible:=false;LabelTJD2.Visible:=false;
index:=Index_Aig(AdrAig);
aiguillage[index].etatTJD:=2;
aiguillage[index].modifie:=true;
s:=encode_aig(index);
formconfig.RichAig.Lines[ligneclicAig]:=s;
adr2:=aiguillage[index].Ddroit; // adresse homologue
index:=Index_Aig(Adr2);
if index<>0 then
begin
aiguillage[index].etatTJD:=2;
end;
s:=encode_aig(index);
formconfig.RichAig.Lines[index-1]:=s;
end;
procedure TFormConfig.RadioButtonTJD4Click(Sender: TObject);
var AdrAig,erreur,index,adr2 : integer;
s : string;
begin
if clicliste then exit;
if affevt then affiche('Evt RadioBouton tjd 4 <20>tats',clyellow);
s:=formconfig.RichAig.Lines[ligneclicAig];
Val(s,adrAig,erreur);
if AdrAig=0 then exit;
EditP1.Visible:=true;EditP2.Visible:=true;EditP3.Visible:=true;EditP4.Visible:=true;
LabelTJD1.Visible:=true;LabelTJD2.Visible:=true;
index:=Index_Aig(AdrAig);
aiguillage[index].etatTJD:=4;
aiguillage[index].modifie:=true;
s:=encode_aig(index);
formconfig.RichAig.Lines[ligneclicAig]:=s;
adr2:=aiguillage[index].Ddroit; // adresse homologue
index:=Index_Aig(Adr2);
if index<>0 then
begin
aiguillage[index].etatTJD:=4;
aiguillage[index].modifie:=true;
end;
s:=encode_aig(index);
formconfig.RichAig.Lines[index-1]:=s;
end;
procedure TFormConfig.RadioButton30kmhClick(Sender: TObject);
var AdrAig,erreur,index : integer;
s : string;
begin
if clicliste then exit;
if affevt then affiche('Evt RadioBouton vitesse 30',clyellow);
s:=formconfig.RichAig.Lines[ligneclicAig];
Val(s,adrAig,erreur);
if AdrAig=0 then exit;
index:=Index_Aig(AdrAig);
if index<>0 then
begin
aiguillage[index].vitesse:=30;
aiguillage[index].modifie:=true;
end;
s:=encode_aig(index);
formconfig.RichAig.Lines[ligneclicAig]:=s;
end;
procedure TFormConfig.RadioButton60kmhClick(Sender: TObject);
var AdrAig,erreur,index : integer;
s : string;
begin
if clicliste then exit;
if affevt then affiche('Evt RadioBouton vitesse 60',clyellow);
s:=formconfig.RichAig.Lines[ligneclicAig];
Val(s,adrAig,erreur);
if AdrAig=0 then exit;
index:=Index_Aig(AdrAig);
if index<>0 then
begin
aiguillage[Index].vitesse:=60;
aiguillage[Index].modifie:=true;
end;
s:=encode_aig(index);
formconfig.RichAig.Lines[ligneclicAig]:=s;
end;
procedure TFormConfig.ComboBoxDecChange(Sender: TObject);
var s: string;
i,decodeur : integer;
begin
// Affiche(IntToStr(ComboBoxDec.ItemIndex),clyellow);
if clicListe then exit;
if NbreFeux<ligneclicSig+1 then exit;
i:=ligneclicSig+1;
if i<1 then exit;
decodeur:=ComboBoxDec.ItemIndex;
feux[i].decodeur:=decodeur;
Maj_Hint_feu(i);
s:=encode_sig_feux(i);
formconfig.RichSig.Lines[ligneclicSig]:=s;
aff_champs_sig_feux(i);
if affevt then Affiche('Evt ComboBox Decodeur',clOrange);
end;
// cliqu<71> sur liste feux
procedure TFormConfig.RichSigMouseDown(Sender: TObject;Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var lc,i : integer;
begin
clicliste:=true;
raz_champs_sig;
with Formconfig.RichSig do
begin
i:=Selstart;
lc:=Perform(EM_LINEFROMCHAR,i,0); // num<75>ro de la lign<67>e cliqu<71>e
clicListeFeu(feux[lc+1].adresse);
end;
end;
procedure TFormConfig.EditDet1Change(Sender: TObject);
var s : string;
i,erreur : integer;
begin
if clicliste or (ligneClicSig<0) then exit;
if affevt then Affiche('Evt detecteur 1',clOrange);
if FormConfig.PageControl.ActivePage=FormConfig.TabSheetSig then
with Formconfig do
begin
s:=EditDet1.Text;
Val(s,i,erreur);
if (s<>'') and (erreur<>0) then begin LabelInfo.caption:='Erreur d<>tecteur1 ';exit;end;
LabelInfo.caption:=' ';
feux[ligneClicSig+1].Adr_det1:=i;
maj_hint_feu(ligneClicSig+1);
s:=encode_sig_feux(ligneClicSig+1);
RichSig.Lines[ligneClicSig]:=s;
feux[ligneClicSig+1].modifie:=true;
end;
end;
procedure TFormConfig.EditTempoFeuChange(Sender: TObject);
var i,erreur : integer;
s : string;
begin
s:=editTempoFeu.Text;
Val(s,i,erreur);
if (s<>'') and (erreur<>0) then begin LabelInfo.caption:='Erreur temporisation d<>codeurs ';exit;end;
LabelInfo.caption:=' ';
tempo_feu:=i;
end;
procedure Suiv1;
var s : string;
i,erreur : integer;
bt : Tequipement;
begin
if clicliste or (ligneClicSig<0) then exit;
if affevt then Affiche('Evt Element suivant1',clOrange);
if FormConfig.PageControl.ActivePage=FormConfig.TabSheetSig then
with Formconfig do
begin
s:=EditSuiv1.Text;
if s<>'' then
begin
Val(s,i,erreur);
if erreur<>0 then
begin
if (s[erreur]='A') and (erreur=1) then
begin
bt:=aig;
delete(s,erreur,1);
Val(s,i,erreur);
end
else begin LabelInfo.caption:='Erreur <20>l<EFBFBD>ment suivant 1';exit;end;
end
else bt:=det;
end
else
begin
i:=0;
bt:=rien;
end;
LabelInfo.caption:=' ';
feux[ligneClicSig+1].Adr_el_suiv1:=i;
feux[ligneClicSig+1].Btype_suiv1:=bt;
s:=encode_sig_feux(ligneClicSig+1);
RichSig.Lines[ligneClicSig]:=s;
end;
end;
procedure TFormConfig.EditSuiv1Change(Sender: TObject);
begin
Suiv1;
end;
procedure Det2;
var s : string;
i,erreur : integer;
begin
if clicliste or (ligneClicSig<0) then exit;
if affevt then Affiche('Evt detecteur 2',clOrange);
if FormConfig.PageControl.ActivePage=FormConfig.TabSheetSig then
with Formconfig do
begin
s:=EditDet2.Text;
Val(s,i,erreur);
if (s<>'') and (erreur<>0) then begin LabelInfo.caption:='Erreur d<>tecteur2 ';exit;end;
LabelInfo.caption:=' ';
feux[ligneClicSig+1].Adr_det2:=i;
maj_hint_feu(ligneClicSig+1);
s:=encode_sig_feux(ligneClicSig+1);
RichSig.Lines[ligneClicSig]:=s;
feux[ligneClicSig+1].modifie:=true;
end;
end;
procedure TFormConfig.EditDet2Change(Sender: TObject);
begin
det2;
end;
procedure TFormConfig.CheckVerrouCarreClick(Sender: TObject);
var s : string;
begin
if clicliste or (ligneClicSig<0) then exit;
if affevt then Affiche('Evt Verrou carr<72>',clOrange);
if FormConfig.PageControl.ActivePage=FormConfig.TabSheetSig then
begin
feux[ligneClicSig+1].VerrouCarre:=checkVerrouCarre.Checked;
s:=encode_sig_feux(ligneClicSig+1);
RichSig.Lines[ligneClicSig]:=s;
feux[ligneClicSig+1].modifie:=true;
end;
end;
procedure TFormConfig.CheckBoxFBClick(Sender: TObject);
var s : string;
begin
if clicliste or (ligneClicSig<0) then exit;
if affevt then Affiche('Evt FB',clOrange);
if FormConfig.PageControl.ActivePage=FormConfig.TabSheetSig then
begin
feux[ligneClicSig+1].FeuBlanc:=checkBoxFB.Checked;
s:=encode_sig_feux(ligneClicSig+1);
RichSig.Lines[ligneClicSig]:=s;
feux[ligneClicSig+1].modifie:=true;
end;
end;
procedure Suiv2;
var s : string;
erreur,i: integer;
bt : Tequipement;
begin
if affevt then Affiche('Evt Element suivant2',clOrange);
if FormConfig.PageControl.ActivePage=FormConfig.TabSheetSig then
with Formconfig do
begin
s:=EditSuiv2.Text;
if s<>'' then
begin
Val(s,i,erreur);
if erreur<>0 then
begin
if (s[erreur]='A') and (erreur=1) then
begin
bt:=aig;
delete(s,erreur,1);
Val(s,i,erreur);
end
else begin LabelInfo.caption:='Erreur <20>l<EFBFBD>ment suivant 2';exit;end;
end
else bt:=det;
end
else
begin
i:=0;
bt:=rien;
end;
LabelInfo.caption:=' ';
feux[ligneClicSig+1].Adr_el_suiv2:=i;
feux[ligneClicSig+1].Btype_suiv2:=bt;
s:=encode_sig_feux(ligneClicSig+1);
RichSig.Lines[ligneClicSig]:=s;
end;
end;
procedure TFormConfig.EditSuiv2Change(Sender: TObject);
begin
if clicliste or (comboBoxAsp.Itemindex>=6) or (ligneClicSig<0) then exit;
Suiv2;
end;
procedure det3;
var s : string;
i,erreur : integer;
begin
if clicliste or (ligneClicSig<0) then exit;
if affevt then Affiche('Evt detecteur 3',clOrange);
if FormConfig.PageControl.ActivePage=FormConfig.TabSheetSig then
with Formconfig do
begin
s:=EditDet3.Text;
Val(s,i,erreur);
if (s<>'') and (erreur<>0) then begin LabelInfo.caption:='Erreur d<>tecteur3 ';exit;end;
LabelInfo.caption:=' ';
feux[ligneClicSig+1].Adr_det3:=i;
maj_hint_feu(ligneClicSig+1);
s:=encode_sig_feux(ligneClicSig+1);
RichSig.Lines[ligneClicSig]:=s;
feux[ligneClicSig+1].modifie:=true;
end;
end;
procedure TFormConfig.EditDet3Change(Sender: TObject);
begin
if clicliste or (ligneClicSig<0) then exit;
det3;
end;
procedure Suiv3;
var s : string;
erreur,i : integer;
bt : Tequipement;
begin
if clicliste or (ligneClicSig<0) then exit;
if affevt then Affiche('Evt Element suivant3',clOrange);
if FormConfig.PageControl.ActivePage=FormConfig.TabSheetSig then
with Formconfig do
begin
s:=EditSuiv3.Text;
if s<>'' then
begin
Val(s,i,erreur);
if erreur<>0 then
begin
if (s[erreur]='A') and (erreur=1) then
begin
bt:=aig;
delete(s,erreur,1);
Val(s,i,erreur);
end
else begin LabelInfo.caption:='Erreur <20>l<EFBFBD>ment suivant 3';exit;end;
end
else bt:=det;
end
else
begin
i:=0;
bt:=rien;
end;
LabelInfo.caption:=' ';
feux[ligneClicSig+1].Adr_el_suiv3:=i;
feux[ligneClicSig+1].Btype_suiv3:=bt;
s:=encode_sig_feux(ligneClicSig+1);
RichSig.Lines[ligneClicSig]:=s;
end;
end;
procedure TFormConfig.EditSuiv3Change(Sender: TObject);
begin
if clicliste or (comboBoxAsp.Itemindex>=6) or (ligneClicSig<0) then exit;
suiv3;
end;
procedure det4;
var s : string;
i,erreur : integer;
begin
if clicliste then exit;
if affevt then Affiche('Evt detecteur 4',clOrange);
if FormConfig.PageControl.ActivePage=FormConfig.TabSheetSig then
with Formconfig do
begin
s:=EditDet4.Text;
Val(s,i,erreur);
if (s<>'') and (erreur<>0) then begin LabelInfo.caption:='Erreur d<>tecteur4 ';exit;end;
LabelInfo.caption:=' ';
feux[ligneClicSig+1].Adr_det4:=i;
maj_hint_feu(ligneClicSig+1);
s:=encode_sig_feux(ligneClicSig+1);
RichSig.Lines[ligneClicSig]:=s;
feux[ligneClicSig+1].modifie:=true;
end;
end;
procedure TFormConfig.EditDet4Change(Sender: TObject);
begin
if clicliste or (ligneClicSig<0) then exit;
det4;
end;
procedure suiv4;
var s : string;
erreur,i : integer;
bt : Tequipement;
begin
if clicliste or (ligneClicSig<0) then exit;
if affevt then Affiche('Evt Element suivant4',clOrange);
if FormConfig.PageControl.ActivePage=FormConfig.TabSheetSig then
with Formconfig do
begin
s:=EditSuiv4.Text;
if s<>'' then
begin
Val(s,i,erreur);
if erreur<>0 then
begin
if (s[erreur]='A') and (erreur=1) then
begin
bt:=aig;
delete(s,erreur,1);
Val(s,i,erreur);
end
else begin LabelInfo.caption:='Erreur <20>l<EFBFBD>ment suivant 4';exit;end;
end
else bt:=det;
end
else
begin
i:=0;
bt:=rien;
end;
LabelInfo.caption:=' ';
feux[ligneClicSig+1].Adr_el_suiv4:=i;
feux[ligneClicSig+1].Btype_suiv4:=bt;
s:=encode_sig_feux(ligneClicSig+1);
RichSig.Lines[ligneClicSig]:=s;
end;
end;
procedure TFormConfig.EditSuiv4Change(Sender: TObject);
begin
if clicliste or (comboBoxAsp.Itemindex>=6) or (ligneClicSig<0) then exit;
Suiv4;
end;
procedure TFormConfig.EditActChange(Sender: TObject);
var s,s2 : string;
act,erreur : integer;
det : boolean;
begin
if clicliste then exit;
if affevt then affiche('Evt Edit act Change',clyellow);
if ligneClicAct<0 then exit;
if FormConfig.PageControl.ActivePage=FormConfig.TabSheetAct then
with Formconfig do
begin
s:=EditAct.Text;
if radioButtonLoc.Checked or RadioButtonAccess.Checked or RadioButtonSon.Checked then
begin
Val(s,act,erreur);
if s='' then exit;
det:=pos('Z',s)<>0; // si d<>tecteur
if det then s2:='D<>tecteur ' else s2:='Actionneur ';
s2:=s2+intToSTR(act);
EditAct.Hint:=s2;
if det then delete(s,erreur,1);
Val(s,act,erreur);
if erreur<>0 then
begin
LabelInfo.caption:='Erreur adresse actionneur';exit
end else LabelInfo.caption:=' ';
tablo_actionneur[ligneClicAct+1].adresse:=act;
s:=encode_act_loc_son(ligneClicAct+1);
RichAct.Lines[ligneClicAct]:=s;
end;
end;
end;
procedure TFormConfig.EditAct2Change(Sender: TObject);
var s : string;
det2,erreur : integer;
begin
if clicliste then exit;
if affevt then affiche('Evt Edit act2 Change',clyellow);
if ligneClicAct<0 then exit;
if FormConfig.PageControl.ActivePage=FormConfig.TabSheetAct then
with Formconfig do
begin
s:=EditAct2.Text;
if radioButtonLoc.Checked or RadioButtonAccess.Checked or RadioButtonSon.Checked then
begin
Val(s,det2,erreur);
if s='' then exit;
if erreur<>0 then
begin
LabelInfo.caption:='Erreur adresse d<>tecteur';exit
end else LabelInfo.caption:=' ';
tablo_actionneur[ligneClicAct+1].adresse2:=det2;
s:=encode_act_loc_son(ligneClicAct+1);
RichAct.Lines[ligneClicAct]:=s;
end;
end;
end;
procedure TFormConfig.RichActMouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var ligne,i : integer;
begin
clicliste:=true;
LabelInfo.caption:='';
raz_champs_act;
// d<>sactiver la ligne PN
RE_ColorLine(Formconfig.RichPN,LigneCliqueePN,ClAqua);
lignecliqueePN:=-1;
with RichAct do
begin
i:=Selstart;
ligne:=Perform(EM_LINEFROMCHAR,i,0); // num<75>ro de la lign<67>e cliqu<71>e
if ligne<maxTablo_act then
begin
if AncligneClicAct<>-1 then RE_ColorLine(RichAct,AncligneClicAct,ClAqua);
AncligneClicAct:=Ligne;
ligneClicAct:=ligne;
RE_ColorLine(Formconfig.RichAct,ligneClicAct,ClYellow);
Aff_champs_Act(ligneClicAct+1);
end
else
begin
RE_ColorLine(Formconfig.RichAct,ligneclicAct,ClAqua);
ligneclicAct:=-1;
exit;
end;
end;
clicliste:=false;
end;
procedure TFormConfig.EditEtatActionneurChange(Sender: TObject);
var s : string;
etat,erreur,typ : integer;
begin
if clicliste then exit;
if affevt then affiche('Evt EditActionneur Change',clyellow);
if FormConfig.PageControl.ActivePage=FormConfig.TabSheetAct then
with Formconfig do
begin
s:=upperCase(EditEtatActionneur.Text);
if radioButtonLoc.Checked or RadioButtonAccess.Checked or RadioButtonSon.Checked then
begin
typ:=tablo_actionneur[ligneClicAct+1].typdeclenche;
if (typ=2) and (s<>'') then // aiguillage
begin
if s[1]='S' then s:='1';
if s[1]='D' then s:='2';
end;
Val(s,etat,erreur);
// act det memzone
if (typ=0) or (typ=1) or (typ=3) then
begin
if (etat<0) or (etat>1) then begin LabelInfo.caption:='Erreur <20>tat actionneur/d<>tecteur';exit;end;
end;
// aig
if (typ=2) then
begin
if (etat<1) or (etat>2) then begin LabelInfo.caption:='Erreur position aiguillage';exit;end;
end;
LabelInfo.caption:=' ';
tablo_actionneur[ligneClicAct+1].etat:=etat;
s:=encode_act_loc_son(ligneClicAct+1);
RichAct.Lines[ligneClicAct]:=s;
end;
end;
end;
procedure TFormConfig.EditTrainDeclChange(Sender: TObject);
var s,train : string;
begin
if clicliste then exit;
if affevt then affiche('Evt Edit TrainDecl Change',clyellow);
if FormConfig.PageControl.ActivePage=FormConfig.TabSheetAct then
with Formconfig do
begin
train:=EditTrainDecl.Text;
if train='' then
begin
LabelInfo.caption:='Erreur train';exit
end else LabelInfo.caption:=' ';
tablo_actionneur[ligneClicAct+1].trainDecl:=train;
s:=encode_act_loc_son(ligneClicAct+1);
RichAct.Lines[ligneClicAct]:=s;
end;
end;
procedure TFormConfig.EditTrainDestChange(Sender: TObject);
var s,train : string;
begin
if clicliste then exit;
if affevt then affiche('Evt Edit TrainDest Change',clyellow);
if FormConfig.PageControl.ActivePage=FormConfig.TabSheetAct then
with Formconfig do
begin
if radioButtonLoc.Checked then
begin
train:=EditTrainDest.Text;
if train='' then
begin
LabelInfo.caption:='Erreur train';exit
end else LabelInfo.caption:=' ';
tablo_actionneur[ligneClicAct+1].trainDest:=train;
s:=encode_act_loc_son(ligneClicAct+1);
RichAct.Lines[ligneClicAct]:=s;
end;
end;
end;
procedure TFormConfig.EditSonChange(Sender: TObject);
var s,fichier : string;
begin
if clicliste then exit;
if affevt then affiche('Evt Edit NomFichier Change',clyellow);
if ligneClicAct<0 then exit;
if FormConfig.PageControl.ActivePage=FormConfig.TabSheetAct then
with Formconfig do
begin
if radioButtonLoc.Checked or RadioButtonAccess.Checked or RadioButtonSon.Checked then
begin
fichier:=EditSon.Text;
if fichier='' then
begin
LabelInfo.caption:='Nom fichier vide';exit
end else LabelInfo.caption:=' ';
tablo_actionneur[ligneClicAct+1].fichierSon:=fichier;
s:=encode_act_loc_son(ligneClicAct+1);
RichAct.Lines[ligneClicAct]:=s;
end;
end;
end;
procedure TFormConfig.EditFonctionAccessChange(Sender: TObject);
var s : string;
fonction,erreur : integer;
begin
if clicliste then exit;
if affevt then affiche('Evt Edit fonctionAccess Change',clyellow);
if ligneClicAct<0 then exit;
if FormConfig.PageControl.ActivePage=FormConfig.TabSheetAct then
with Formconfig do
begin
s:=EditFonctionAccess.Text;
if radioButtonLoc.Checked or RadioButtonAccess.Checked then
begin
Val(s,fonction,erreur);
if erreur<>0 then
begin
LabelInfo.caption:='Erreur fonction actionneur';exit
end else LabelInfo.caption:=' ';
if radioButtonLoc.Checked then tablo_actionneur[ligneClicAct+1].fonction:=fonction;
if RadioButtonAccess.Checked then Tablo_Actionneur[ligneClicAct+1].accessoire:=fonction;
s:=encode_act_loc_son(ligneClicAct+1);
RichAct.Lines[ligneClicAct]:=s;
end;
end;
end;
procedure TFormConfig.EditEtatFoncSortieChange(Sender: TObject);
var s : string;
Etat,erreur : integer;
begin
if clicliste then exit;
if affevt then affiche('Evt Edit FoncSortie Change',clyellow);
if ligneClicAct<0 then exit;
if FormConfig.PageControl.ActivePage=FormConfig.TabSheetAct then
with Formconfig do
begin
s:=EditEtatFoncSortie.Text;
if radioButtonAccess.Checked then
begin
Val(s,etat,erreur);
if (erreur<>0) or (etat<0) or (etat>2) then
begin
LabelInfo.caption:='Erreur Etat actionneur';exit
end else LabelInfo.caption:=' ';
tablo_actionneur[ligneClicAct+1].sortie:=etat;
s:=encode_act_loc_son(ligneClicAct+1);
RichAct.Lines[ligneClicAct]:=s;
end;
end;
end;
procedure TFormConfig.EditTempoChange(Sender: TObject);
var s : string;
tempo,erreur : integer;
begin
if clicliste then exit;
if affevt then affiche('Evt TempoChange',clyellow);
if FormConfig.PageControl.ActivePage=FormConfig.TabSheetAct then
with Formconfig do
begin
s:=EditTempo.Text;
if radioButtonLoc.Checked then
begin
Val(s,tempo,erreur);
if erreur<>0 then
begin
LabelInfo.caption:='Erreur Tempo actionneur';exit
end else LabelInfo.caption:=' ';
tablo_actionneur[ligneClicAct+1].tempo:=tempo;
s:=encode_act_loc_son(ligneClicAct+1);
RichAct.Lines[ligneClicAct]:=s;
end;
end;
end;
procedure TFormConfig.CheckRAZClick(Sender: TObject);
var s : string;
begin
if clicliste then exit;
if affevt then affiche('Evt CheckRaz Change',clyellow);
if FormConfig.PageControl.ActivePage=FormConfig.TabSheetAct then
with Formconfig do
begin
if radioButtonAccess.Checked then
begin
tablo_actionneur[ligneClicAct+1].raz:=CheckRAZ.checked;
s:=encode_act_loc_son(ligneClicAct+1);
RichAct.Lines[ligneClicAct]:=s;
end;
end;
end;
procedure TFormConfig.EditAdrSigChange(Sender: TObject);
var s : string;
i, erreur : integer;
begin
if clicliste then exit;
if affevt then Affiche('Evt adresse signal',clOrange);
// attention interf<72>rence avec clic droit propri<72>t<EFBFBD>s sur un signal qui g<>n<EFBFBD>re un evt sur ce contr<74>le
if FormConfig.PageControl.ActivePage=FormConfig.TabSheetSig then
with Formconfig do
begin
s:=EditAdrSig.Text;
if (s='') or (ligneClicSig<0) then exit;
Val(s,i,erreur);
if (erreur<>0) or (i<=0) or (i>MaxAcc) then
begin
EditAdrSig.Color:=clred;
LabelInfo.caption:='Erreur adresse signal ';exit;
end;
if (index_feu(i)<>0) then
begin
EditAdrSig.Color:=clred;
LabelInfo.caption:='Signal '+intToSTR(i)+' existe, il ne sera pas <20>cras<61>';exit;
end;
EditAdrSig.Color:=clWindow;
LabelInfo.caption:=' ';
feux[ligneClicSig+1].adresse:=i;
s:=encode_sig_feux(ligneClicSig+1);
RichSig.Lines[ligneClicSig]:=s;
Maj_Hint_feu(ligneClicSig+1);
end;
end;
procedure TFormConfig.EditAdrAigChange(Sender: TObject);
var s : string;
i,vide,erreur,index,adr2 : integer;
modele: TEquipement;
c : char;
begin
if clicliste then exit;
if FormConfig.PageControl.ActivePage=FormConfig.TabSheetAig then
with Formconfig do
begin
s:=EditAdrAig.Text;
Val(s,i,erreur);
if (erreur<>0) or (i<=0) or (i>MaxAcc) then
begin
EditAdrAig.Color:=clred;
LabelInfo.caption:='Erreur adresse Aiguillage ';exit;
end;
index:=ligneclicAig+1;
if index=0 then exit;
modele:=aiguillage[index].modele;
// si normal ou triple
if (modele=aig) or (modele=triple) then
begin
if (erreur<>0) or (i>MaxAcc) then begin LabelInfo.caption:='Erreur adresse aiguillage ';exit;end;
// v<>rifier si l'adresse de l'aiguillage existe d<>ja
if (aiguillage[Index_Aig(i)].modele<>rien) then
begin
EditAdrAig.Color:=clred;
LabelInfo.caption:='aiguillage '+IntToSTR(i)+' existe d<>ja - ne sera pas <20>cras<61>' ;
exit;
end;
EditAdrAig.Color:=clWindow;
LabelInfo.caption:=' ';
aiguillage[index].adresse:=i;
aiguillage[index].modifie:=true;
s:=encode_aig(index);
formconfig.RichAig.Lines[ligneclicAig]:=s;
end;
if (modele=tjd) or (modele=tjs) then
begin
clicListe:=true;
// modifier les champs P1 et P2 avec la nouvelle adresse
val(editP1.Text,vide,erreur);
if erreur<>0 then c:=editP1.text[erreur] else c:='D';
editP1.Text:=IntToSTR(i)+c;
val(editP2.Text,vide,erreur);
if erreur<>0 then c:=editP2.text[erreur] else c:='D';
editP2.Text:=IntToSTR(i)+c;
clicListe:=false;
aiguillage[index].adresse:=i;
aiguillage[index].modifie:=true;
s:=encode_aig(index);
formconfig.RichAig.Lines[index-1]:=s;
// modif homologue
adr2:=aiguillage[index].Ddroit;
index:=index_aig(adr2);
aiguillage[index].dDroit:=i;
aiguillage[index].dDevie:=i;
s:=encode_aig(index);
formconfig.RichAig.Lines[index-1]:=s;
end;
end;
end;
procedure TFormConfig.ComboBoxAspChange(Sender: TObject);
var x,y,i,index,aspect,adresseFeu : integer;
s : string;
begin
if clicListe then exit;
if affevt then Affiche('Evt aspect',clOrange);
i:=ComboBoxAsp.ItemIndex;
//Affiche(IntToSTR(i),clyellow);
case i of
0 : aspect:=2;
1 : aspect:=3;
2 : aspect:=4;
3 : aspect:=5;
4 : aspect:=7;
5 : aspect:=9;
else aspect:=i+6;
end;
index:=ligneClicSig+1; // index du feu
if index<1 then exit;
if NbreFeux<index then exit;
//Affiche('Ligne cliqu<71>e='+IntToSTR(index),clyellow);
if ((aspect=2) or (aspect>=5)) and (aspect<10) then
checkBoxFB.Visible:=true else
begin
checkBoxFB.Visible:=false;
checkBoxFB.Checked:=false;
end;
if (aspect>3) and (aspect<10) then
begin
CheckVerrouCarre.Visible:=true
end
else
begin
CheckVerrouCarre.Visible:=false;
end;
if (aspect>2) and (aspect<10) then
begin
checkFVC.visible:=true;
checkFRC.visible:=true;
end
else
begin
checkFVC.visible:=false;
checkFRC.visible:=false;
end;
feux[index].aspect:=aspect;
s:=encode_sig_feux(index);
RichSig.Lines[ligneClicSig]:=s;
aff_champs_sig_feux(index); // redessine les champs et le feu
// change l'image du feu dans la feuille graphique principale
Feux[index].Img.picture.Bitmap:=Select_dessin_feu(feux[index].aspect);
dessine_feu_mx(Feux[index].Img.Canvas,0,0,1,1,feux[index].adresse,1); // dessine les feux du signal
// et dans le TCO
if formTCO.Showing then
begin
for y:=1 to NbreCellY do
for x:=1 to NbreCellX do
begin
if TCO[x,y].BImage=30 then
begin
AdresseFeu:=feux[index].adresse;
if tco[x,y].Adresse=AdresseFeu then affiche_tco;
end;
end;
end;
end;
procedure TFormConfig.EditSpecUniChange(Sender: TObject);
var erreur,i,Adr,decodeur : integer ;
s : string ;
begin
if clicliste or (ligneClicSig<0) then exit;
if affevt then Affiche('Evt Unisemaf',clOrange);
if FormConfig.PageControl.ActivePage=FormConfig.TabSheetSig then
with Formconfig do
begin
s:=EditSpecUni.Text;
Val(s,i,erreur); // code unisemaf
s:=EditAdrSig.Text;
Val(s,Adr,erreur); // Adresse signal
// v<>rification code unisemaf
decodeur:=feux[ligneClicSig+1].decodeur;
if decodeur=6 then
begin
erreur:=verif_unisemaf(Adr,i);
if erreur=1 then begin LabelInfo.caption:='Erreur code Unisemaf';exit;end;
if erreur=2 then begin LabelInfo.caption:='Erreur coh<6F>rence aspect signal';exit;end;
end;
LabelInfo.caption:=' ';
feux[ligneClicSig+1].Unisemaf:=i;
s:=encode_sig_feux(ligneClicSig+1);
RichSig.Lines[ligneClicSig]:=s;
end;
end;
procedure TFormConfig.ButtonrestaureClick(Sender: TObject);
var index : integer;
begin
if (Feu_sauve.adresse<>0) and (ligneClicSig>=0) then
begin
clicListe:=true;
index:=ligneClicSig+1;
feux[index]:=Feu_sauve;
RichSig.Lines[ligneClicSig]:=encode_sig_feux(index);
aff_champs_sig_feux(index); // r<>affiche les champs
Maj_Hint_feu(index);
// change l'image du feu dans la feuille graphique principale
Feux[index].Img.picture.Bitmap:=Select_dessin_feu(feux[index].aspect);
dessine_feu_mx(Feux[index].Img.Canvas,0,0,1,1,feux[index].adresse,1); // dessine les feux du signal
clicListe:=false;
end;
end;
procedure TFormConfig.RadioButtonLocClick(Sender: TObject);
var champ,i,erreur : integer;
s : string;
begin
// rendre visible le groupbox Actionneur fonction F loco
if clicListe then exit;
i:=ligneClicAct+1;
if AffEvt then Affiche('RadioLoc '+IntToSTR(i),clyellow);
Tablo_Actionneur[i].loco:=true;
Tablo_Actionneur[i].Act:=false;
Tablo_Actionneur[i].Son:=false;
champs_type_loco;
val(editact.Text,champ,erreur);
Tablo_actionneur[i].adresse:=champ ;
val(editEtatActionneur.Text,champ,erreur);
Tablo_actionneur[i].etat:=champ;
Tablo_actionneur[i].trainDecl:=EditTrainDecl.Text;
val(editFonctionAccess.Text,champ,erreur);
Tablo_actionneur[i].fonction:=champ;
val(editEtatFoncSortie.Text,champ,erreur);
Tablo_actionneur[i].sortie:=champ;
val(editTempo.Text,champ,erreur);
Tablo_actionneur[i].tempo:=champ;
tablo_actionneur[i].Raz:=checkRaz.checked;
s:=encode_act_loc_son(i);
RichAct.Lines[ligneClicAct]:=s;
end;
procedure TFormConfig.RadioButtonAccessClick(Sender: TObject);
var champ,i,erreur : integer;
s : string;
begin
// rendre visible le groupbox Actionneur fonction F loco
if clicListe then exit;
i:=ligneClicAct+1;
if AffEvt then Affiche('RadioAccessoire '+IntToSTR(i),clyellow);
Tablo_Actionneur[i].loco:=false;
Tablo_Actionneur[i].Act:=true;
Tablo_Actionneur[i].Son:=false;
champs_type_act;
val(editact.Text,champ,erreur);
Tablo_actionneur[i].adresse:=champ ;
val(editEtatActionneur.Text,champ,erreur);
Tablo_actionneur[i].etat:=champ;
Tablo_actionneur[i].trainDecl:=EditTrainDecl.Text;
val(editFonctionAccess.Text,champ,erreur);
Tablo_actionneur[i].fonction:=champ;
val(editEtatFoncSortie.Text,champ,erreur);
Tablo_actionneur[i].sortie:=champ;
val(editTempo.Text,champ,erreur);
Tablo_actionneur[i].tempo:=champ;
tablo_actionneur[i].Raz:=checkRaz.checked;
s:=encode_act_loc_son(i);
RichAct.Lines[ligneClicAct]:=s;
end;
procedure TFormConfig.RadioButtonSonClick(Sender: TObject);
var champ,i,erreur : integer;
s : string;
begin
// rendre visible le groupbox Actionneur fonction F loco
if clicListe then exit;
i:=ligneClicAct+1;
if AffEvt then Affiche('RadioSon '+IntToSTR(i),clyellow);
Tablo_Actionneur[i].loco:=false;
Tablo_Actionneur[i].Act:=false;
Tablo_Actionneur[i].Son:=true;
champs_type_son;
val(editact.Text,champ,erreur);
Tablo_actionneur[i].adresse:=champ ;
val(editEtatActionneur.Text,champ,erreur);
Tablo_actionneur[i].etat:=champ;
Tablo_actionneur[i].trainDecl:=EditTrainDecl.Text;
val(editFonctionAccess.Text,champ,erreur);
Tablo_actionneur[i].fonction:=champ;
val(editEtatFoncSortie.Text,champ,erreur);
Tablo_actionneur[i].sortie:=champ;
val(editTempo.Text,champ,erreur);
Tablo_actionneur[i].tempo:=champ;
tablo_actionneur[i].Raz:=checkRaz.checked;
s:=encode_act_loc_son(i);
RichAct.Lines[ligneClicAct]:=s;
end;
procedure TFormConfig.RichPNMouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var i,ligne : integer;
begin
clicliste:=true;
// d<>sactive la s<>lection des actionneurs
RE_ColorLine(Formconfig.RichAct,ligneclicAct,ClAqua);
ligneclicAct:=-1;
with RichPN do
begin
i:=Selstart;
ligne:=Perform(EM_LINEFROMCHAR,i,0); // num<75>ro de la lign<67>e cliqu<71>e
if ligne<nbrePN then
begin
if AncLigneCliqueePN<>-1 then RE_ColorLine(RichPN,AncligneCliqueePN,ClAqua);
AncLigneCliqueePN:=Ligne;
ligneCliqueePN:=ligne;
RE_ColorLine(RichPN,LigneCliqueePN,ClYellow);
Aff_champs_PN(lignecliqueePN+1);
end
else
begin
RE_ColorLine(Formconfig.RichPN,lignecliqueePN,ClAqua);
lignecliqueePN:=-1;
exit;
end;
end;
clicliste:=false;
end;
procedure TFormConfig.EditAdrFermeChange(Sender: TObject);
var s : string;
act,erreur : integer;
begin
if clicliste then exit;
if affevt then affiche('Evt EditAdrFerme Change',clyellow);
if FormConfig.PageControl.ActivePage=FormConfig.TabSheetAct then
with Formconfig do
begin
s:=EditAdrFerme.Text;
Val(s,act,erreur);
if erreur<>0 then
begin
LabelInfo.caption:='Erreur adresse actionneur ferme';exit
end else LabelInfo.caption:=' ';
tablo_PN[lignecliqueePN+1].AdresseFerme:=act;
s:=encode_act_PN(lignecliqueePN+1);
RichPN.Lines[lignecliqueePN]:=s;
end;
end;
procedure TFormConfig.EditCmdFermeChange(Sender: TObject);
var s : string;
i,erreur : integer;
begin
if clicliste then exit;
if affevt then affiche('Evt EditCmdFerme Change',clyellow);
if FormConfig.PageControl.ActivePage=FormConfig.TabSheetAct then
with Formconfig do
begin
s:=EditCmdFerme.Text;
{
if (s='+') or (s='-') then
begin
if s='-' then act:=1 else act:=2;
LabelInfo.caption:=' ';
tablo_PN[lignecliqueePN+1].CommandeFerme:=act;
s:=encode_act_PN(lignecliqueePN+1);
RichPN.Lines[lignecliqueePN]:=s;
end
}
val(s,i,erreur);
if (i<0) or (i>2) or (erreur<>0) then begin LabelInfo.caption:='Erreur Commande ferme actionneur';exit;end;
LabelInfo.caption:=' ';
tablo_PN[lignecliqueePN+1].CommandeFerme:=i;
s:=encode_act_PN(lignecliqueePN+1);
RichPN.Lines[lignecliqueePN]:=s;
end;
end;
procedure TFormConfig.EditAdrOuvreChange(Sender: TObject);
var s : string;
act,erreur : integer;
begin
if clicliste then exit;
if affevt then affiche('Evt EditAdrOuvre Change',clyellow);
if FormConfig.PageControl.ActivePage=FormConfig.TabSheetAct then
with Formconfig do
begin
s:=EditAdrOuvre.Text;
Val(s,act,erreur);
if erreur<>0 then
begin
LabelInfo.caption:='Erreur adresse actionneur ouvre';exit
end else LabelInfo.caption:=' ';
tablo_PN[lignecliqueePN+1].AdresseOuvre:=act;
s:=encode_act_PN(lignecliqueePN+1);
RichPN.Lines[lignecliqueePN]:=s;
end;
end;
procedure TFormConfig.EditCdeOuvreChange(Sender: TObject);
var s : string;
i,erreur : integer;
begin
if clicliste then exit;
if affevt then affiche('Evt EditCmdOuvre Change',clyellow);
if FormConfig.PageControl.ActivePage=FormConfig.TabSheetAct then
with Formconfig do
begin
s:=EditCdeOuvre.Text;
val(s,i,erreur);
if (i<0) or (i>2) or (erreur<>0) then begin LabelInfo.caption:='Erreur Commande ferme actionneur';exit;end;
LabelInfo.caption:=' ';
tablo_PN[lignecliqueePN+1].CommandeOuvre:=i;
s:=encode_act_PN(lignecliqueePN+1);
RichPN.Lines[lignecliqueePN]:=s;
{if (s='+') or (s='-') then
begin
if s='-' then act:=1 else act:=2;
LabelInfo.caption:=' ';
tablo_PN[lignecliqueePN+1].CommandeOuvre:=act;
s:=encode_act_PN(lignecliqueePN+1);
RichPN.Lines[lignecliqueePN]:=s;
end
else
LabelInfo.caption:='Erreur Commande ouvre actionneur';exit }
end;
end;
procedure TFormConfig.EditV1FChange(Sender: TObject);
var s : string;
act,erreur : integer;
begin
if clicliste then exit;
if affevt then affiche('Evt EditV1F Change',clyellow);
if FormConfig.PageControl.ActivePage=FormConfig.TabSheetAct then
with Formconfig do
begin
s:=EditV1F.Text;
Val(s,act,erreur);
if (erreur<>0) then
begin
LabelInfo.caption:='Erreur adresse actionneur voie 1 ferme';
tablo_PN[lignecliqueePN+1].voie[1].ActFerme:=0;
exit
end else LabelInfo.caption:=' ';
tablo_PN[lignecliqueePN+1].voie[1].ActFerme:=act;
s:=encode_act_PN(lignecliqueePN+1);
RichPN.Lines[lignecliqueePN]:=s;
end;
end;
procedure TFormConfig.EditV1OChange(Sender: TObject);
var s : string;
act,erreur : integer;
begin
if clicliste then exit;
if affevt then affiche('Evt EditV1O Change',clyellow);
if FormConfig.PageControl.ActivePage=FormConfig.TabSheetAct then
with Formconfig do
begin
s:=EditV1O.Text;
Val(s,act,erreur);
if erreur<>0 then
begin
LabelInfo.caption:='Erreur adresse actionneur voie 1 ouvre';exit
end else LabelInfo.caption:=' ';
tablo_PN[lignecliqueePN+1].voie[1].ActOuvre:=act;
s:=encode_act_PN(lignecliqueePN+1);
RichPN.Lines[lignecliqueePN]:=s;
end;
end;
procedure TFormConfig.EditV2FChange(Sender: TObject);
var s : string;
act,erreur,NbVoies,i : integer;
V2valide : boolean;
begin
if clicliste then exit;
if affevt then affiche('Evt EditV2F Change',clyellow);
if FormConfig.PageControl.ActivePage=FormConfig.TabSheetAct then
with Formconfig do
begin
s:=EditV2F.Text;
Val(s,act,erreur);
if (erreur<>0) and (s<>'') then
begin
LabelInfo.caption:='Erreur adresse actionneur voie 2 ferme';exit
end else LabelInfo.caption:=' ';
i:=lignecliqueePN+1;
tablo_PN[i].voie[2].ActFerme:=act;
V2valide:=(EditV2O.text<>'') and (EditV2F.text<>'');
NbVoies:=tablo_PN[i].NbVoies;
if V2Valide and (NbVoies=1) then tablo_PN[i].NbVoies:=2;
if not(V2Valide) then tablo_PN[i].NbVoies:=1;
s:=encode_act_PN(i);
RichPN.Lines[lignecliqueePN]:=s;
end;
end;
procedure TFormConfig.EditV2OChange(Sender: TObject);
var s : string;
act,erreur,NbVoies,i : integer;
V2valide : boolean;
begin
if clicliste then exit;
if affevt then affiche('Evt EditV2O Change',clyellow);
if FormConfig.PageControl.ActivePage=FormConfig.TabSheetAct then
with Formconfig do
begin
s:=EditV2O.Text;
Val(s,act,erreur);
if (erreur<>0) and (s<>'') then
begin
LabelInfo.caption:='Erreur adresse actionneur voie 2 ouvre';exit
end else LabelInfo.caption:=' ';
i:=lignecliqueePN+1;
tablo_PN[i].voie[2].ActOuvre:=act;
V2valide:=(EditV2O.text<>'') and (EditV2F.text<>'');
NbVoies:=tablo_PN[i].NbVoies;
if V2Valide and (NbVoies=1) then tablo_PN[i].NbVoies:=2;
if not(V2Valide) then tablo_PN[i].NbVoies:=1;
s:=encode_act_PN(i);
RichPN.Lines[lignecliqueePN]:=s;
end;
end;
procedure TFormConfig.EditV3FChange(Sender: TObject);
var s : string;
act,erreur,NbVoies,i : integer;
V3valide : boolean;
begin
if clicliste then exit;
if affevt then affiche('Evt EditV3F Change',clyellow);
if FormConfig.PageControl.ActivePage=FormConfig.TabSheetAct then
with Formconfig do
begin
s:=EditV3F.Text;
Val(s,act,erreur);
if (erreur<>0) and (s<>'') then
begin
LabelInfo.caption:='Erreur adresse actionneur voie 3 ferme';exit
end else LabelInfo.caption:=' ';
i:=lignecliqueePN+1;
tablo_PN[i].voie[3].ActFerme:=act;
V3valide:=(EditV3O.text<>'') and (EditV3F.text<>'');
NbVoies:=tablo_PN[i].NbVoies;
if V3Valide and (NbVoies=2) then tablo_PN[i].NbVoies:=3;
if not(V3Valide) then tablo_PN[i].NbVoies:=2;
s:=encode_act_PN(i);
RichPN.Lines[lignecliqueePN]:=s;
end;
end;
procedure TFormConfig.EditV3OChange(Sender: TObject);
var s : string;
i,act,erreur,NbVoies : integer;
V3valide : boolean;
begin
if clicliste then exit;
if affevt then affiche('Evt EditV3O Change',clyellow);
if FormConfig.PageControl.ActivePage=FormConfig.TabSheetAct then
with Formconfig do
begin
s:=EditV3O.Text;
Val(s,act,erreur);
if (erreur<>0) and (s<>'') then
begin
LabelInfo.caption:='Erreur adresse actionneur voie 3 ouvre';exit
end else LabelInfo.caption:=' ';
i:=lignecliqueePN+1;
tablo_PN[i].voie[3].ActOuvre:=act;
V3valide:=(EditV3O.text<>'') and (EditV3F.text<>'');
NbVoies:=tablo_PN[i].NbVoies;
if V3Valide and (NbVoies=2) then tablo_PN[i].NbVoies:=3;
if not(V3Valide) then tablo_PN[i].NbVoies:=2;
s:=encode_act_PN(i);
RichPN.Lines[lignecliqueePN]:=s;
end;
end;
procedure TFormConfig.ButtonNouvAccClick(Sender: TObject);
var s: string;
i : integer;
begin
if affevt then affiche('Evt bouton nouveau acc',clyellow);
if maxtablo_act>=Max_actionneurs then
begin
Affiche('Nombre maximal d''actionneurs atteint',clred);
exit;
end;
clicliste:=true;
inc(maxTablo_act);
i:=MaxTablo_act;
// d<>sactiver la ligne PN
RE_ColorLine(Formconfig.RichPN,LigneCliqueePN,ClAqua);
lignecliqueePN:=-1;
radioButtonLoc.Checked:=true;
Tablo_actionneur[maxtablo_act].act:=false;
Tablo_actionneur[maxtablo_act].loco:=true;
s:=encode_act_loc_son(i);
if ligneClicAct<>-1 then RE_ColorLine(RichAct,ligneClicAct,ClAqua);
// ajouter et scroller en fin
with richAct do
begin
Lines.add(s);
SetFocus;
Selstart:=RichAct.GetTextLen-1;
Perform(EM_SCROLLCARET,0,0);
end;
GroupBoxRadio.Visible:=true;
LabelInfo.caption:='';
LigneClicAct:=i-1;
AncligneClicAct:=ligneClicAct;
Aff_champs_Act(maxTablo_act);
clicliste:=false;
config_modifie:=true;
end;
procedure TFormConfig.ButtonNouvPNClick(Sender: TObject);
var s: string;
i,j : integer;
begin
if affevt then affiche('Evt bouton nouveau PN',clyellow);
if maxtablo_act>=Max_actionneurs then
begin
Affiche('Nombre maximal d''actionneurs atteint',clred);
exit;
end;
clicliste:=true;
inc(nbrePN);
i:=nbrePN;
// d<>sactive la s<>lection des actionneurs
RE_ColorLine(Formconfig.RichAct,ligneclicAct,ClAqua);
ligneclicAct:=-1;
raz_champs_pn;
tablo_PN[NbrePN].AdresseFerme:=0;
tablo_PN[NbrePN].AdresseOuvre:=0;
tablo_PN[NbrePN].commandeFerme:=0;
tablo_PN[NbrePN].CommandeOuvre:=0;
tablo_PN[NbrePN].NbVoies:=1;
tablo_PN[NbrePN].Pulse:=0;
for j:=1 to 4 do
begin
tablo_PN[NbrePN].Voie[j].ActFerme:=0;
tablo_PN[NbrePN].Voie[j].ActOuvre:=0;
tablo_PN[NbrePN].Voie[j].detZ1F:=0;
tablo_PN[NbrePN].Voie[j].detZ1O:=0;
tablo_PN[NbrePN].Voie[j].detZ2F:=0;
tablo_PN[NbrePN].Voie[j].detZ2O:=0;
tablo_PN[NbrePN].compteur:=0;
end;
s:=encode_act_pn(i);
if LigneCliqueePN<>-1 then RE_ColorLine(RichPN,ligneCliqueePN,ClAqua);
// ajouter et scroller en fin
with richPN do
begin
Lines.add(s);
SetFocus;
Selstart:=RichPN.GetTextLen-1;
Perform(EM_SCROLLCARET,0,0);
end;
GroupBoxRadio.Visible:=false;
LabelInfo.caption:='';
LigneCliqueePN:=i-1;
AncLigneCliqueePN:=LigneCliqueePN;
tablo_PN[lignecliqueePN+1].Pulse:=1;
Aff_champs_PN(nbrePN);
clicliste:=false;
config_modifie:=true;
end;
procedure supprime_act;
var i,debut,longueur,fin,ltot,lignedeb,lignefin,l : integer;
s: string;
begin
i:=ligneClicAct;
if (i=-1) then exit;
debut:=FormConfig.RichAct.SelStart;
longueur:=FormConfig.RichAct.SelLength;
fin:=debut+longueur;
//Affiche(inttostr(debut)+' '+inttostr(longueur),clyellow);
// trouver les lignes s<>lectionn<6E>es
i:=0;ltot:=0;ligneDeb:=0;LigneFin:=0;
repeat
l:=length(FormConfig.RichAct.lines[i])+2; //+2 car CR LF
ltot:=ltot+l;
if (debut<ltot) and (ligneDeb=0) then ligneDeb:=i+1;
if (ltot>=fin) and (ligneFin=0) and (ligneDeb<>0) then ligneFin:=i+1;
//if (ltot=fin) and (ligneFin=0) then ligneFin:=i;
inc(i);
until (i>=NbreFeux) or (ligneFin>0);
if lignefin>maxTablo_act then lignefin:=maxTablo_act;
if ligneDeb=0 then begin ligneDeb:=ligneclicAct+1;ligneFin:=ligneclicAct+1;end;
if (lignedeb<1) or (lignefin<1) or (lignefin>maxTablo_act) then exit;
if ligneDeb=LigneFin then s:='Voulez-vous supprimer l''actionneur '+IntToSTR(tablo_actionneur[lignedeb].adresse)+'?'
else s:='Voulez-vous supprimer les actionneurs de '+
IntToSTR(tablo_actionneur[ligneDeb].adresse)+' <20> '+IntToSTR(tablo_actionneur[ligneFin].adresse)+' ?';
if Application.MessageBox(pchar(s),pchar('confirm'), MB_YESNO or MB_DEFBUTTON2 or MB_ICONQUESTION)=idNo then exit;
if ligneDeb=LigneFin then s:='Suppression de l''actionneur '+intToSTR(tablo_actionneur[lignedeb].adresse)
else s:='Suppression des actionneurs de '+
IntToSTR(tablo_actionneur[lignedeb].adresse)+' <20> '+IntToSTR(tablo_actionneur[lignefin].adresse);
Affiche(s,clOrange);
clicliste:=true;
for i:=lignedeb to lignefin do
begin
Affiche('Suppression actionneur '+intToSTR(tablo_actionneur[i].Adresse),clorange);
end;
for i:=1 to maxTablo_act-ligneFin do
begin
index:=i+lignefin; //index de l'aiguillage de remplacement
tablo_actionneur[lignedeb+i-1]:=tablo_actionneur[index];
end;
maxTablo_act:=maxTablo_act-(ligneFin-LigneDeb)-1;
config_modifie:=true;
formConfig.RichAct.Clear;
raz_champs_act;
for i:=1 to maxTablo_act do
begin
s:=encode_act_loc_son(i);
if s<>'' then
with formconfig do begin
RichAct.Lines.Add(s);
RE_ColorLine(RichAct,RichAct.lines.count-1,ClAqua);
end;
end;
AncligneClicAct:=-1;
ligneClicAct:=-1;
clicliste:=false;
end;
procedure TFormConfig.ButtonSupAccClick(Sender: TObject);
begin
if affevt then affiche('Evt bouton Sup acc',clyellow);
supprime_act;
end;
procedure supprime_pn;
var i,index,adr : integer;
ac,pn : boolean;
s: string;
begin
if affevt then affiche('Evt bouton Sup PN',clyellow);
i:=lignecliqueePN;
if (i=-1) then exit;
index:=i+1; // passe en index tableau
pn:=false;
adr:=tablo_PN[index].voie[1].ActFerme;
ac:=adr<>0 ; // type actionneur
if adr=0 then
begin
adr:=tablo_PN[index].voie[1].DetZ1F;
pn:=adr<>0;
end;
if not(ac) and not(pn) then ac:=true;
if ac then s:='Voulez-vous supprimer l''actionneur '+IntToSTR(adr)+'?';
if pn then s:='Voulez-vous supprimer l''actionneur de zone '+IntToSTR(adr)+'-'+inttostr(tablo_PN[index].voie[1].DetZ1O)+'?';
if Application.MessageBox(pchar(s),pchar('confirm'), MB_YESNO or MB_DEFBUTTON2 or MB_ICONQUESTION)=idNo then exit;
Affiche('Suppression de l''actionneur '+IntToSTR(adr),clOrange);
clicliste:=true;
// supprime l'actionneur du tableau
dec(nbrePN);
for i:=index to nbrePN do
begin
tablo_PN[i]:=tablo_PN[i+1];
end;
config_modifie:=true;
formConfig.RichPN.Clear;
raz_champs_pn;
for i:=1 to NbrePN do
begin
s:=encode_act_PN(i);
if s<>'' then
with formConfig do begin
RichPN.Lines.Add(s);
RE_ColorLine(RichPN,RichPN.lines.count-1,ClAqua);
end;
end;
lignecliqueePN:=-1;
AncLigneCliqueePN:=-1;
clicliste:=false;
end;
procedure TFormConfig.ButtonSupPNClick(Sender: TObject);
begin
supprime_pn;
end;
procedure TFormConfig.ButtonNouvFeuClick(Sender: TObject);
var i,AdrMax : integer;
s : string;
begin
clicliste:=true;
if NbreFeux>=NbreMaxiSignaux then
begin
Affiche('Nombre maximal de signaux atteint',clRed);
exit;
end;
inc(NbreFeux);
AdrMax:=0;
for i:=1 to NbreFeux do
begin
if AdrMax<feux[i].adresse then AdrMax:=feux[i].adresse;
end;
i:=NbreFeux;
feux[i].Adresse:=AdrMax+20;
feux[i].Aspect:=3;
feux[i].decodeur:=0;
feux[i].verrouCarre:=false;
cree_image(i);
//Affiche('Feu 999 cr<63><72>',clyellow);
s:=encode_sig_feux(i);
if ligneClicSig<>-1 then RE_ColorLine(RichSig,ligneClicSig,ClAqua);
// ajouter et scroller en fin
with richSig do
begin
Lines.add(s);
SetFocus;
Selstart:=RichSig.GetTextLen-1;
Perform(EM_SCROLLCARET,0,0);
end;
LabelInfo.caption:='';
ligneClicSig:=i-1;
AncligneClicSig:=ligneClicSig;
Aff_champs_Sig_feux(i);
clicliste:=false;
Feu_sauve.Adresse:=0;
config_modifie:=true;
end;
procedure supprime_sig;
var adresse,i,indexFeu,debut,fin,longueur,ltot,lignedeb,lignefin,l : integer;
s : string;
begin
if affevt then affiche('Evt bouton Sup Feu',clyellow);
//trouver ligne de d<>but et de fin s<>lectionner.
debut:=FormConfig.RichSig.SelStart;
longueur:=FormConfig.RichSig.SelLength;
fin:=debut+longueur;
//Affiche(inttostr(debut)+' '+inttostr(longueur),clyellow);
// trouver les lignes s<>lectionn<6E>es
i:=0;ltot:=0;ligneDeb:=0;LigneFin:=0;
repeat
l:=length(FormConfig.RichSig.lines[i])+2; //+2 car CR LF
ltot:=ltot+l;
if (debut<ltot) and (ligneDeb=0) then ligneDeb:=i+1;
if (ltot>=fin) and (ligneFin=0) and (ligneDeb<>0) then ligneFin:=i+1;
//if (ltot=fin) and (ligneFin=0) then ligneFin:=i;
inc(i);
until (ltot>=fin);
if lignefin>NbreFeux then lignefin:=NbreFeux;
if ligneDeb=0 then begin ligneDeb:=ligneclicSig+1;ligneFin:=ligneclicSig+1;end;
if (lignedeb<1) or (lignefin<1) or (lignefin>NbreFeux) then exit;
//Affiche(inttostr(ligneDeb)+' '+inttostr(LigneFin),clyellow);
if ligneDeb=LigneFin then s:='Voulez-vous supprimer le signal '+IntToSTR(feux[lignedeb].adresse)+'?'
else s:='Voulez-vous supprimer les signaux de '+
IntToSTR(feux[ligneDeb].adresse)+' <20> '+IntToSTR(feux[ligneFin].adresse)+' ?';
if Application.MessageBox(pchar(s),pchar('confirm'), MB_YESNO or MB_DEFBUTTON2 or MB_ICONQUESTION)=idNo then exit;
FormConfig.ButtonInsFeu.Caption:='Ajouter le signal '+intToSTR(feux[ligneDeb].adresse)+' supprim<69>';
clicliste:=true;
Feu_supprime:=feux[lignedeb]; // sauvegarde le supprim<69>
feu_sauve.adresse:=0; // d<>valider sa d<>finition
index:=ligneDeb;
if ligneDeb=LigneFin then s:='Suppression du signal '+IntToSTR(feux[index].adresse)
else s:='Suppression des signaux de '+
IntToSTR(feux[ligneDeb].adresse)+' <20> '+IntToSTR(feux[ligneFin].adresse);
Affiche(s,clOrange);
//Affiche('Boucle de '+intToSTR(ligneDeb)+' N='+intToSTR(NbreFeux-ligneFin),clyellow);
// d'abord supprimer les images des feux
for i:=LigneDeb to LigneFin do
begin
Affiche('Suppression signal '+intToSTR(feux[i].Adresse),clorange);
feux[i].Img.free; // supprime l'image, ce qui efface le feu du tableau graphique
Feux[i].Lbl.free; // supprime le label, ...
if Feux[i].checkFB<>nil then begin Feux[i].checkFB.Free;Feux[i].CheckFB:=nil;end; // supprime le check du feu blanc s'il existait
end;
for i:=1 to NbreFeux-ligneFin do
begin
index:=i+lignefin; //index du feu de remplacement
indexFeu:=lignedeb+i-1;
//Affiche('Suppression signal '+intToSTR(feux[i+lignedeb].Adresse),clorange);
//Affiche('remplacement par index '+intToSTR(index),clorange);
feux[indexFeu]:=feux[index];
adresse:=feux[indexFeu].adresse;
with feux[IndexFeu].Img do
begin
Parent:=Formprinc.ScrollBox1; // dire que l'image est dans la scrollBox1
Top:=(HtImg+espY+20)*((IndexFeu-1) div NbreImagePLigne); // d<>termine les points d'origine
Left:=10+ (LargImg+5)*((IndexFeu-1) mod (NbreImagePLigne));
Name:='ImageFeu'+IntToSTR(adresse);
s:='Index='+IntToSTR(IndexFeu)+' @='+inttostr(feux[IndexFeu].Adresse)+' D<>codeur='+intToSTR(feux[IndexFeu].Decodeur)+
' Adresse d<>tecteur associ<63>='+intToSTR(feux[IndexFeu].Adr_det1)+
' Adresse <20>lement suivant='+intToSTR(feux[IndexFeu].Adr_el_suiv1);
if feux[IndexFeu].Btype_suiv1=aig then s:=s+' (aig)';
Hint:=s;
end;
with feux[IndexFeu].Lbl do
begin
Top:=HtImg+((HtImg+EspY+20)*((IndexFeu-1) div NbreImagePLigne));
Left:=10+ (LargImg+5)*((IndexFeu-1) mod (NbreImagePLigne));
caption:='@'+IntToSTR(Feux[IndexFeu].adresse);
end;
if Feux[IndexFeu].checkFB<>nil then
with Feux[IndexFeu].CheckFB do
begin
Name:='CheckBoxFB'+intToSTR(adresse);
Hint:='Feu blanc';
Top:=HtImg+15+((HtImg+EspY+20)*((IndexFeu-1) div NbreImagePLigne));
Left:=10+ (LargImg+5)*((IndexFeu-1) mod (NbreImagePLigne));
end;
//Affiche('d<>cale feu '+IntToSTR(i)+'<'+intToSTR(i+1),clorange);
feux[index].Adresse:=0;
feux[index].modifie:=false;
end;
Nbrefeux:=NbreFeux-(ligneFin-LigneDeb)-1;
config_modifie:=true;
FormConfig.RichSig.Clear;
// r<>afficher le richsig
for i:=1 to NbreFeux do
begin
s:=encode_Sig_Feux(i);
if s<>'' then
begin
FormConfig.RichSig.Lines.Add(s);
RE_ColorLine(FormConfig.RichSig,FormConfig.RichSig.lines.count-1,ClAqua);
end;
end;
ligneClicSig:=-1;
AncligneClicSig:=-1;
raz_champs_sig;
clicliste:=false;
end;
procedure TFormConfig.ButtonSupFeuClick(Sender: TObject);
begin
Supprime_sig;
end;
// Ajouter le feu supprim<69>
procedure TFormConfig.ButtonInsFeuClick(Sender: TObject);
var s : string;
begin
if feu_supprime.adresse<>0 then
begin
clicliste:=true;
inc(NbreFeux);
feux[NbreFeux]:=Feu_supprime;
Feu_Supprime.adresse:=0; // d<>valider le feu sauvegard<72>
Feu_supprime.aspect:=0;
cree_image(nbrefeux);
config_modifie:=true;
// r<>afficher le rechedit
s:=encode_Sig_Feux(NbreFeux);
if s<>'' then
begin
with RichSig do
begin
ButtonInsFeu.Caption:='Ajouter le feu supprim<69>';
Lines.Add(s);
RE_ColorLine(RichSig,RichSig.lines.count-1,ClYellow);
ligneClicSig:=NbreFeux-1;
AncligneClicSig:=-1;
SetFocus;
Selstart:=RichSig.GetTextLen-1;
Perform(EM_SCROLLCARET,0,0);
end;
Aff_champs_sig_feux(NbreFeux);
end;
clicListe:=false;
end;
end;
// renvoie le num<75>ro de branche en d<>faut
// si ok, renvoie 0
Function verif_extr_branches : integer;
var i,j,detect,erreur : integer;
model,AncModel : Tequipement;
begin
Erreur:=0;
for i:=1 to NbreBranches do
begin
j:=1;
repeat
detect:=BrancheN[i][j].Adresse;
AncModel:=model;
model:=BrancheN[i][j].BType;
if (j=1) and (model<>Aig) and (Model<>Buttoir) then
begin
Affiche('Erreur 3.1 branche '+intToSTR(i)+' : le premier <20>l<EFBFBD>ment d''une branche doit <20>tre un buttoir ou un aiguillage',clred);
erreur:=i;
end;
inc(j);
until((model=rien) and (detect=0));
if (Ancmodel<>Aig) and (AncModel<>Buttoir) then
begin
Affiche('Erreur 3.2 branche '+intToSTR(i)+' : le dernier <20>l<EFBFBD>ment d''une branche doit <20>tre un buttoir ou un aiguillage',clred);
erreur:=i;
end;
end;
verif_extr_branches:=Erreur;
end;
function nombre_adresses_signal(adr : integer) : integer;
var x,dec,nc,i : integer;
begin
nc:=0;
i:=index_feu(adr);
dec:=feux[i].decodeur;
x:=feux[i].aspect;
if x>10 then
begin
nombre_adresses_signal:=x-10;
exit;
end;
// nc=nombre d'adresses du signal
if dec=0 then nc:=0; // rien
if dec=1 then nc:=14; // digitalbahn
if dec=2 then nc:=5; // leb
if dec=3 then nc:=8; // ldt
if dec=4 then nc:=feux[i].Na; // cdf
if dec=5 then nc:=feux[i].Na; // digikeijs
if dec=6 then // paco unisemaf
begin
x:=feux[index].Unisemaf; // mod<6F>le
case x of
2 : nc:=1;
3,4 : nc:=2;
51,52 : nc:=3;
71 : nc:=2;
72,73 : nc:=3;
91,92 : nc:=3;
93,94,95,96,97,98,99 : nc:=4;
end;
end;
if dec=7 then nc:=8; // sr
nombre_adresses_signal:=nc;
end;
function verif_coherence : boolean;
var AncAdr,i,j,k,l,Indexaig,adr,adr2,extr,detect,condcarre,nc,index2,SuivAdr,
x,y,extr2,adr3,index3,det1Br,det2Br,det1index,det2index,adresse,dec,nc2 : integer;
modAig,AncModel,model,km,SuivModel,model2: TEquipement;
c : char;
vitesse : longint;
ok,trouveSuiv,TrouvePrec,AdrOk : boolean;
begin
// v<>rification de la coh<6F>rence1
// parcoure les branches jusqu'<27> trouver un aiguillage pour voir s'il a <20>t<EFBFBD> d<>crit
ok:=true;
for i:=1 to NbreBranches do
begin
j:=1;
repeat
detect:=BrancheN[i][j].Adresse;
if detect>NbMemZone then
begin
Affiche('Erreur 1: adresse d<>tecteur trop grand: '+intToSTR(detect),clred);
ok:=false;
end;
AncModel:=model;
model:=BrancheN[i][j].BType; // 1= d<>tecteur 2= aiguillage 4=Buttoir
if (model=aig) then
begin
//affiche('trouv<75> aig '+intToSTR(detect),clyellow);
modAig:=aiguillage[Index_Aig(detect)].modele;
if (modAig=rien) then
begin
Affiche('Erreur 2: Aiguillage '+intToStr(detect)+' non d<>crit mais pr<70>sent en branche '+intToStr(i)+' pos. '+intToSTR(j),clred);
ok:=false;
end;
end;
j:=j+1;
until((model=rien) and (detect=0));
if (Ancmodel<>Aig) and (AncModel<>Buttoir) then
Affiche('Erreur 3.2 branche '+intToSTR(i)+' : le dernier <20>l<EFBFBD>ment d''une branche doit <20>tre un buttoir ou un aiguillage',clred);
end;
if verif_extr_branches<>0 then ok:=false;
// v<>rification de la coh<6F>rence2
// parcoure les aiguillages pour voir si les d<>tecteurs sont en branches des d<>tecteurs
// et les tjd pour voir si pb de coh<6F>rence
for Indexaig:=1 to maxaiguillage do
begin
// tjd ou tjs
if ((aiguillage[Indexaig].modele=tjd) and (aiguillage[Indexaig].EtatTJD=4)) or (aiguillage[Indexaig].modele=tjs) then
begin
if aiguillage[Indexaig].Ddroit<>aiguillage[Indexaig].Ddevie then
begin
Affiche('Erreur 7: la TJD/S '+IntToStr(Indexaig)+' a des adresses de destination diff<66>rentes ('+intToSTR(aiguillage[Indexaig].Ddroit)+' et '+intToSTR(aiguillage[Indexaig].Ddevie)+')',clred);
ok:=false;
end;
// v<>rifier si son homologue est une tjd
adr2:=aiguillage[Indexaig].Ddroit;
if (aiguillage[Index_Aig(adr2)].modele<>tjd) and (aiguillage[Index_Aig(adr2)].modele<>tjs) then
begin
Affiche('Erreur 8: l''aiguillage '+intToStr(Adr2)+' n''est pas une TJD/S ou n''existe pas, mais apparait dans la TJD/S '+IntToSTR(aiguillage[Indexaig].Adresse),clred);
ok:=false;
end;
end;
// v<>rifier si l'aiguillage est dans les branches
if aiguillage[Indexaig].modele<>rien then
begin
trouve_aiguillage(aiguillage[Indexaig].adresse); // passe l'adresse de l'aiguillage <20> trouver
if (IndexBranche_trouve=0) then
begin
Affiche('Avertissement 6: aiguillage '+intToSTR(aiguillage[Indexaig].adresse)+' d<>crit dans les aiguillages ; absent dans la description des branches',clOrange);
ok:=false;
end;
end;
adr:=aiguillage[Indexaig].Adroit;
if (aiguillage[Indexaig].AdroitB='Z') then
begin
trouve_detecteur(adr);
if IndexBranche_trouve=0 then
begin
Affiche('Erreur 21: d<>tecteur '+intToSTR(adr)+' d<>crit dans l''aiguillage '+intToSTR(aiguillage[Indexaig].adresse)+' mais absent dans la description des branches',clred);
ok:=false;
end;
end;
adr:=aiguillage[Indexaig].Adevie;
if (aiguillage[Indexaig].AdevieB='Z') then
begin
trouve_detecteur(adr);
if IndexBranche_trouve=0 then
begin
Affiche('Erreur 31: d<>tecteur '+intToSTR(adr)+' d<>crit dans l''aiguillage '+intToSTR(aiguillage[Indexaig].adresse)+' mais absent dans la description des branches',clRed);
ok:=false;
end;
end;
adr:=aiguillage[Indexaig].Apointe;
if ((aiguillage[Indexaig].ApointeB='Z') and (aiguillage[Indexaig].modele=aig)) then
begin
trouve_detecteur(adr);
if IndexBranche_trouve=0 then
begin
Affiche('Erreur 4 : d<>tecteur '+intToSTR(adr)+' d<>crit dans l''aiguillage '+intToSTR(aiguillage[Indexaig].adresse)+' mais absent dans la description des branches',clRed);
ok:=false;
end;
end;
if (aiguillage[Indexaig].modele=triple) then // aiguillage triple
begin
if (aiguillage[Indexaig].Adevie2B='Z') then
begin
adr:=aiguillage[Indexaig].Adevie2;
trouve_detecteur(adr);
if IndexBranche_trouve=0 then
begin
Affiche('Erreur 5 : d<>tecteur '+intToSTR(adr)+' d<>crit dans l''aiguillage '+intToSTR(aiguillage[Indexaig].adresse)+' mais absent dans la description des branches',clRed);
ok:=false;
end;
end;
end;
end;
// coh<6F>rence 3 : v<>rifie si aiguillage triple ok et si doublon aiguillage
for Indexaig:=1 to maxaiguillage do
begin
adr:=aiguillage[Indexaig].Adresse;
if aiguillage[Indexaig].modele=triple then
begin
if aiguillage[Indexaig].AdrTriple=0 then
begin
Affiche('Erreur 6.1: 2<>me adresse de l''aiguillage triple '+intToSTR(adr)+' non d<>finie',clred);
ok:=false;
end;
end;
for i:=Indexaig+1 to maxaiguillage do
begin
if adr=aiguillage[i].Adresse then
begin
affiche('Erreur 6.2: aiguillage '+intToSTR(adr)+' d<>fini deux fois',clred);
ok:=false;
end;
end;
end;
// coh<6F>rence 4 : v<>rifie si doublon signal ou si recouvrement avec un autre signal ou un aiguillage
for j:=1 to NbreFeux do
begin
adr:=feux[j].Adresse;
nc:=nombre_adresses_signal(adr);
for i:=1 to maxaiguillage do
begin
adr2:=aiguillage[i].Adresse;
if ((adr2>=adr) and (adr2<=adr+nc-1)) then
begin
affiche('Erreur 9.1 : signal '+intToSTR(adr)+' ('+intToSTR(nc)+' adresses) et aiguillage '+intToSTR(adr2)+' se chevauchent',clred);
ok:=false;
end;
end;
for i:=j+1 to NbreFeux do
begin
adr2:=feux[i].Adresse;
nc2:=nombre_adresses_signal(adr2);
if ((adr>adr2) and (adr <adr2+nc2-1)) or
((adr+nc-1>adr2) and (adr+nc-1<adr2+nc2-1))
then
begin
affiche('Erreur 9.2 : signaux '+intToSTR(adr)+' ('+intToSTR(nc)+' adresses) et '+intToStr(adr2)+' ('+intToSTR(nc2)+' adresses) se chevauchent',clred);
ok:=false;
end;
end;
end;
// coh<6F>rence 5 ; v<>rifie si aiguillages d<>finis en condition suppl<70>mentaires de carr<72> existent
// v<>rifie aussi le d<>codeur digikeijs
for j:=1 to NbreFeux do
begin
l:=1;
nc:=feux[j].decodeur;
if nc=5 then // digikeijs
begin
if feux[j].Na=0 then
begin
Affiche('Erreur 9.3 : signal '+intToSTR(feux[j].adresse)+' : Le nombre d''adresses du d<>codeur digiKeijs est nul',clred);
ok:=false;
end;
end;
if nc=2 then // cdf
begin
if feux[j].Na=0 then
begin
Affiche('Erreur 9.4 : signal '+intToSTR(feux[j].adresse)+' : Le nombre d''adresses du d<>codeur CDF est nul',clred);
ok:=false;
end;
end;
repeat
nc:=Length(feux[j].condcarre[l])-1 ;
for k:=1 to nc do
begin
adr:=feux[j].condcarre[l][k].Adresse; // adresse de l'aiguillage
if index_aig(adr)=0 then
begin
Affiche('Avertissement : Aig '+intToSTR(adr)+' d<>fini dans les cond de carr<72> du signal '+intToSTR(feux[j].adresse)+' mais non existant',clOrange);
ok:=false;
end;
end;
inc(l);
until (nc<=0) or (l>6);
end;
// coh<6F>rence 6 : v<>rifier si les d<>tecteurs et les aiguillages associ<63>s aux signaux existent
for j:=1 to NbreFeux do
begin
i:=feux[j].Adr_det1;
if i<>0 then
begin
trouve_detecteur(i);
if IndexBranche_trouve=0 then
begin
ok:=false;
Affiche('Erreur 8.1: D<>tecteur '+intToSTR(i)+' non existant dans les branches mais associ<63> au signal '+IntToSTR(feux[j].adresse),clred);
end;
end
else
begin
if feux[j].Aspect<10 then
begin
ok:=false;
Affiche('Erreur 8.2: D<>tecteur inconnu ('+intToSTR(i)+') sur signal '+IntToSTR(feux[j].adresse),clred);
end;
end;
i:=feux[j].Adr_det2;
if i<>0 then
begin
trouve_detecteur(i);
if IndexBranche_trouve=0 then
begin
ok:=false;
Affiche('Erreur 8.3: D<>tecteur '+intToSTR(i)+' non existant mais associ<63> au signal '+IntToSTR(feux[j].adresse),clred);
end;
end;
i:=feux[j].Adr_det3;
if i<>0 then
begin
trouve_detecteur(i);
if IndexBranche_trouve=0 then
begin
ok:=false;
Affiche('Erreur 8.4: D<>tecteur '+intToSTR(i)+' non existant mais associ<63> au signal '+IntToSTR(feux[j].adresse),clred);
end;
end;
i:=feux[j].Adr_det4;
if i<>0 then
begin
trouve_detecteur(i);
if IndexBranche_trouve=0 then
begin
ok:=false;
Affiche('Erreur 8.5: D<>tecteur '+intToSTR(i)+' non existant mais associ<63> au signal '+IntToSTR(feux[j].adresse),clred);
end;
end;
// <20>lement suivant 1
i:=feux[j].Adr_el_suiv1;
km:=feux[j].Btype_suiv1;
if i<>0 then
begin
if km=det then // d<>tecteur
begin
trouve_detecteur(i);
if IndexBranche_trouve=0 then
begin
ok:=false;
Affiche('Erreur 9.1: D<>tecteur '+intToSTR(i)+' non existant mais associ<63> au signal '+IntToSTR(feux[j].adresse),clred);
end
else
begin
// v<>rifier si les deux d<>tecteurs du signal sont contig<69>s (l et i)
l:=feux[j].Adr_det1;
trouve_detecteur(i);
det1Br:=branche_trouve;
det1Index:=IndexBranche_trouve;
trouve_detecteur(l);
det2Br:=branche_trouve;
det2Index:=IndexBranche_trouve;
if (det1Br<>Det2Br) or (abs(det1Index-det2Index)>1) then
begin
ok:=false;
Affiche('Erreur 9.12: signal '+intToSTR(feux[j].adresse)+' : d<>tecteurs '+intToSTR(i)+' et '+intToSTR(l)+' non contig<69>s ',clred);
end;
end;
end;
if ((km=aig) or (km=tjs) or (km=tjd) or (km=triple)) then
begin
// aiguillage
k:=index_aig(i);
if k=0 then
begin
ok:=false;
Affiche('Erreur 9.2: aiguillage '+intToSTR(i)+' non existant mais associ<63> au signal '+IntToSTR(feux[j].adresse),clred);
end
else
begin
// v<>rifier si le d<>tecteur du signal et l'aiguillage sont cons<6E>cutifs
l:=feux[j].Adr_det1;
if (aiguillage[k].ADroit<>l) and (aiguillage[k].ADevie<>l) and (aiguillage[k].APointe<>l) then
begin
ok:=false;
Affiche('Erreur 9.21: signal '+intToSTR(feux[j].adresse)+' : aiguillage '+intToSTR(i)+' et d<>tecteur '+intToSTR(l)+' non contig<69>s ',clred);
end;
end;
end;
end;
// <20>lement suivant 2
i:=feux[j].Adr_el_suiv2;
km:=feux[j].Btype_suiv2;
if i<>0 then
begin
if km=det then // d<>tecteur
begin
trouve_detecteur(i);
if IndexBranche_trouve=0 then
begin
ok:=false;
Affiche('Erreur 9.3: D<>tecteur '+intToSTR(i)+' non existant mais associ<63> au signal '+IntToSTR(feux[j].adresse),clred);
end;
end;
if ((km=aig) or (km=tjs) or (km=tjd) or (km=triple)) then
begin
// aiguillage
if index_aig(i)=0 then
begin
ok:=false;
Affiche('Erreur 9.4: aiguillage '+intToSTR(i)+' non existant mais associ<63> au signal '+IntToSTR(feux[j].adresse),clred);
end;
end;
end;
// <20>lement suivant 3
i:=feux[j].Adr_el_suiv3;
km:=feux[j].Btype_suiv3;
if i<>0 then
begin
if km=det then // d<>tecteur
begin
trouve_detecteur(i);
if IndexBranche_trouve=0 then
begin
ok:=false;
Affiche('Erreur 9.5: D<>tecteur '+intToSTR(i)+' non existant mais associ<63> au signal '+IntToSTR(feux[j].adresse),clred);
end;
end;
if ((km=aig) or (km=tjs) or (km=tjd) or (km=triple)) then
begin
// aiguillage
if index_aig(i)=0 then
begin
ok:=false;
Affiche('Erreur 9.6: aiguillage '+intToSTR(i)+' non existant mais associ<63> au signal '+IntToSTR(feux[j].adresse),clred);
end;
end;
end;
// <20>lement suivant 4
i:=feux[j].Adr_el_suiv4;
km:=feux[j].Btype_suiv4;
if i<>0 then
begin
if km=det then // d<>tecteur
begin
trouve_detecteur(i);
if IndexBranche_trouve=0 then
begin
ok:=false;
Affiche('Erreur 9.7: D<>tecteur '+intToSTR(i)+' non existant mais associ<63> au signal '+IntToSTR(feux[j].adresse),clred);
end;
end;
if ((km=aig) or (km=tjs) or (km=tjd) or (km=triple)) then
begin
// aiguillage
if index_aig(i)=0 then
begin
ok:=false;
Affiche('Erreur 9.10: aiguillage '+intToSTR(i)+' non existant mais associ<63> au signal '+IntToSTR(feux[j].adresse),clred);
end;
end;
end;
end;
// coh<6F>rence 7
// parcoure les aiguillages pour voir si les aiguillages d<>clar<61>s aux extr<74>mit<69>s sont existants
// et qu'ils ne pointent pas sur eux m<>mes
for Indexaig:=1 to maxaiguillage do
//indexaig:=index_aig(93);
begin
adr:=aiguillage[indexaig].Adresse;
model:=aiguillage[indexaig].modele;
if adr>NbMemZone then
begin
Affiche('Erreur 9.11: adresse aiguillage trop grand: '+intToSTR(adr),clred);
ok:=false;
end;
// on ne v<>rifie pas les tjd tjs crois
if (model<>tjd) and (model<>tjd) and (model<>crois) then
begin
adr2:=aiguillage[indexaig].ADroit; // adresse de ce qui est connect<63> sur la position droite
c:=aiguillage[indexaig].AdroitB;
if (c='D') or (c='S') or (c='P') then
begin
if adr2=adr then affiche('Erreur 10.0 : la position droite de l''aiguillage '+intToSTR(adr)+' pointe sur elle m<>me',clred);
index2:=Index_aig(adr2); // adresse de l'aiguillage connect<63>
model2:=aiguillage[index2].modele; // mod<6F>le de l'aiguillage connect<63>
if index2=0 then
begin
ok:=false;
Affiche('Erreur 10.20: aiguillage '+intToSTR(adr)+': d<>claration d''un aiguillage '+IntToSTR(adr2)+' inexistant',clred);
end
else
begin
// tjs ou tjs <20> 2 <20>tats ou croisement
if ( ((model2=tjs) or (model2=tjd)) and (aiguillage[index2].EtatTJD=2) ) or (model2=crois) then
begin
if (adr<>aiguillage[index2].Adevie) and (adr<>aiguillage[index2].ADroit) and
(adr<>aiguillage[index2].DDevie) and (adr<>aiguillage[index2].Ddroit) then
begin
Affiche('Erreur 10.21: Discordance de d<>claration aiguillages '+intToSTR(adr)+': '+intToSTR(adr2),clred);
ok:=false;
end;
end;
// tjs ou tjs <20> 4 <20>tats
if (((model2=tjs) or (model2=tjd)) and (aiguillage[index2].EtatTJD=4)) then
begin
adr3:=aiguillage[index2].Ddroit; // 2eme adresse de la TJD
index3:=index_aig(adr3);
if (adr<>aiguillage[index2].Adevie) and (adr<>aiguillage[index2].ADroit) and
(adr<>aiguillage[index3].ADevie) and (adr<>aiguillage[index3].Adroit) then
begin
Affiche('Erreur 10.22: Discordance de d<>claration aiguillages '+intToSTR(adr)+': '+intToSTR(adr2),clred);
ok:=false;
end;
end;
if (model2=aig) or (model2=triple) then
begin
if c='D' then
begin
extr:=aiguillage[index2].ADroit;
if adr<>extr then Affiche('Erreur 10.23: Discordance de d<>claration aiguillages '+intToSTR(adr)+'S: '+intToSTR(adr2)+'D diff<66>rent de '+intToSTR(extr),clred);
end;
if c='S' then
begin
extr:=aiguillage[index2].ADevie;
if adr<>extr then Affiche('Erreur 10.24: Discordance de d<>claration aiguillages '+intToSTR(adr)+'S: '+intToSTR(adr2)+'S diff<66>rent de '+intToSTR(extr),clred);
end;
if c='P' then
begin
extr:=aiguillage[index2].APointe;
if adr<>extr then Affiche('Erreur 10.25: Discordance de d<>claration aiguillages '+intToSTR(adr)+'S: '+intToSTR(adr2)+'P diff<66>rent de '+intToSTR(extr),clred);
end;
end;
end;
end;
adr2:=aiguillage[indexaig].Adevie; // adresse de ce qui est connect<63> sur la position d<>vi<76>e
c:=aiguillage[indexaig].AdevieB;
if (c='D') or (c='S') or (c='P') then
begin
if adr2=adr then affiche('Erreur 10.1 : la position d<>vi<76>e de l''aiguillage '+intToSTR(adr)+' pointe sur elle m<>me',clred);
index2:=Index_aig(adr2); // adresse de l'aiguillage connect<63>
model2:=aiguillage[index2].modele; // mod<6F>le de l'aiguillage connect<63>
if index2=0 then
begin
ok:=false;
Affiche('Erreur 10.30: aiguillage '+intToSTR(adr)+': d<>claration d''un aiguillage '+IntToSTR(adr2)+' inexistant',clred);
end
else
begin
// tjs ou tjs <20> 2 <20>tats ou croisement
if (((model2=tjs) or (model2=tjd)) and (aiguillage[index2].EtatTJD=2)) or (model2=crois) then
begin
if (adr<>aiguillage[index2].Adevie) and (adr<>aiguillage[index2].ADroit) and
(adr<>aiguillage[index2].DDevie) and (adr<>aiguillage[index2].Ddroit) then
begin
Affiche('Erreur 10.31: Discordance de d<>claration aiguillage '+intToSTR(adr)+': '+intToSTR(adr2),clred);
ok:=false;
end;
end;
// tjs ou tjs <20> 4 <20>tats
if (((model2=tjs) or (model2=tjd)) and (aiguillage[index2].EtatTJD=4)) then
begin
adr3:=aiguillage[index2].Ddroit; // 2eme adresse de la TJD
index3:=index_aig(adr3);
if (adr<>aiguillage[index2].Adevie) and (adr<>aiguillage[index2].ADroit) and
(adr<>aiguillage[index3].ADevie) and (adr<>aiguillage[index3].Adroit) then
begin
Affiche('Erreur 10.32: Discordance de d<>claration aiguillage '+intToSTR(adr)+': '+intToSTR(adr2),clred);
ok:=false;
end;
end;
if (model2=aig) or (model2=triple) then
begin
if c='D' then
begin
extr:=aiguillage[index2].ADroit;
if adr<>extr then Affiche('Erreur 10.33: Discordance de d<>claration aiguillages '+intToSTR(adr)+'S: '+intToSTR(adr2)+'D diff<66>rent de '+intToSTR(extr),clred);
end;
if c='S' then
begin
extr:=aiguillage[index2].ADevie;
if adr<>extr then Affiche('Erreur 10.34: Discordance de d<>claration aiguillages '+intToSTR(adr)+'S: '+intToSTR(adr2)+'S diff<66>rent de '+intToSTR(extr),clred);
end;
if c='P' then
begin
extr:=aiguillage[index2].APointe;
if adr<>extr then Affiche('Erreur 10.35: Discordance de d<>claration aiguillages '+intToSTR(adr)+'S: '+intToSTR(adr2)+'P diff<66>rent de '+intToSTR(extr),clred);
end;
end;
end;
end;
adr2:=aiguillage[indexaig].APointe; // adresse de ce qui est connect<63> sur la pointe
c:=aiguillage[indexaig].ApointeB;
if (c='D') or (c='S') or (c='P') then
begin
if adr2=adr then affiche('Erreur 10.2 : la pointe de l''aiguillage '+intToSTR(adr)+' pointe sur elle m<>me',clred);
index2:=Index_aig(adr2); // adresse de l'aiguillage connect<63>
model2:=aiguillage[index2].modele; // mod<6F>le de l'aiguillage connect<63>
if index2=0 then
begin
ok:=false;
Affiche('Erreur 10.40: aiguillage '+intToSTR(adr)+': d<>claration d''un aiguillage '+IntToSTR(adr2)+' inexistant',clred);
end
else
begin
// tjs ou tjs <20> 2 <20>tats ou croisement
if (((model2=tjs) or (model2=tjd)) and (aiguillage[index2].EtatTJD=2)) or (model2=crois) then
begin
if (adr<>aiguillage[index2].Adevie) and (adr<>aiguillage[index2].ADroit) and
(adr<>aiguillage[index2].DDevie) and (adr<>aiguillage[index2].Ddroit) then
begin
Affiche('Erreur 10.41: Discordance de d<>claration aiguillage '+intToSTR(adr)+': '+intToSTR(adr2),clred);
ok:=false;
end;
// tjs ou tjs <20> 4 <20>tats
if (((model2=tjs) or (model2=tjd)) and (aiguillage[index2].EtatTJD=4)) then
begin
adr3:=aiguillage[index2].Ddroit; // 2eme adresse de la TJD
index3:=index_aig(adr3);
if (adr<>aiguillage[index2].Adevie) and (adr<>aiguillage[index2].ADroit) and
(adr<>aiguillage[index3].ADevie) and (adr<>aiguillage[index3].Adroit) then
begin
Affiche('Erreur 10.42: Discordance de d<>claration aiguillage '+intToSTR(adr)+': '+intToSTR(adr2),clred);
ok:=false;
end;
end;
if (model2=aig) or (model2=triple) then
begin
if c='D' then
begin
extr:=aiguillage[index2].ADroit;
if adr<>extr then Affiche('Erreur 10.43: Discordance de d<>claration aiguillages '+intToSTR(adr)+'S: '+intToSTR(adr2)+'D diff<66>rent de '+intToSTR(extr),clred);
end;
if c='S' then
begin
extr:=aiguillage[index2].ADevie;
if adr<>extr then Affiche('Erreur 10.44: Discordance de d<>claration aiguillages '+intToSTR(adr)+'S: '+intToSTR(adr2)+'S diff<66>rent de '+intToSTR(extr),clred);
end;
if c='P' then
begin
extr:=aiguillage[index2].APointe;
if adr<>extr then Affiche('Erreur 10.45: Discordance de d<>claration aiguillages '+intToSTR(adr)+'S: '+intToSTR(adr2)+'P diff<66>rent de '+intToSTR(extr),clred);
end;
end;
end;
end;
end;
end;
end;
// coh<6F>rence 8
// parcoure les branches pour voir si les aiguillages aux extr<74>mit<69>s sont coh<6F>rentes avec leurs d<>clarations
for i:=1 to NbreBranches do
begin
j:=1; // on v<>rifie entre j-1 et j+1
detect:=BrancheN[i][1].Adresse;
model:=BrancheN[i][1].BType;
repeat
AncAdr:=detect;AncModel:=model;
detect:=BrancheN[i][j].Adresse;
SuivAdr:=BrancheN[i][j+1].Adresse;
SuivModel:=BrancheN[i][j+1].Btype;
model:=BrancheN[i][j].BType; // 1= d<>tecteur 2= aiguillage 4=Buttoir
trouvePrec:=false;
if (model=aig) or (model=Tjd) or (model=Tjs) then
begin
k:=index_aig(detect);
// comparer au pr<70>c<EFBFBD>dent
if k<>0 then
begin
if j=1 then trouvePrec:=true;
if (j>1) then
begin
if aiguillage[k].modele=Aig then
begin
if aiguillage[k].ADroit=AncAdr then trouvePrec:=true;
if aiguillage[k].ADevie=AncAdr then trouvePrec:=true;
if aiguillage[k].APointe=AncAdr then trouvePrec:=true;
end;
if (aiguillage[k].modele=Tjd) or (aiguillage[k].modele=TjS) then
begin
if aiguillage[k].EtatTJD=2 then
begin
if aiguillage[k].ADroit=AncAdr then trouvePrec:=true;
if aiguillage[k].ADevie=AncAdr then trouvePrec:=true;
if aiguillage[k].Ddroit=AncAdr then trouvePrec:=true;
if aiguillage[k].Ddevie=AncAdr then trouvePrec:=true;
end;
if aiguillage[k].EtatTJD=4 then
begin
l:=index_aig(aiguillage[k].Ddroit); // 2eme adresse de la TJD
if aiguillage[k].ADroit=AncAdr then trouvePrec:=true;
if aiguillage[k].ADevie=AncAdr then trouvePrec:=true;
if aiguillage[k].Ddroit=AncAdr then trouvePrec:=true;
if aiguillage[l].Adroit=AncAdr then trouvePrec:=true;
if aiguillage[l].Adevie=AncAdr then trouvePrec:=true;
if aiguillage[l].Ddevie=AncAdr then trouvePrec:=true;
end;
end;
if aiguillage[k].modele=crois then
begin
if aiguillage[k].ADroit=AncAdr then trouvePrec:=true;
if aiguillage[k].ADevie=AncAdr then trouvePrec:=true;
if aiguillage[k].Ddroit=AncAdr then trouvePrec:=true;
if aiguillage[k].Ddevie=AncAdr then trouvePrec:=true;
end;
if not(trouvePrec) then
begin
Affiche('Erreur 11: La description de l''aiguillage '+intToSTR(detect)+' ne correspond pas <20> son <20>l<EFBFBD>ment contigu ('+intToStr(AncAdr)+') en branche '+intToSTR(i),clred);
ok:=false;
end;
end;
TrouveSuiv:=false;
// comparer au suivant
if SuivModel<>rien then
begin
if aiguillage[k].modele=Aig then
begin
if aiguillage[k].ADroit=SuivAdr then trouveSuiv:=true;
if aiguillage[k].ADevie=SuivAdr then trouveSuiv:=true;
if aiguillage[k].APointe=SuivAdr then trouveSuiv:=true;
end;
if (aiguillage[k].modele=Tjd) or (aiguillage[k].modele=TjS) then
begin
if aiguillage[k].EtatTJD=2 then
begin
if aiguillage[k].ADroit=SuivAdr then trouveSuiv:=true;
if aiguillage[k].ADevie=SuivAdr then trouveSuiv:=true;
if aiguillage[k].Ddroit=SuivAdr then trouveSuiv:=true;
if aiguillage[k].Ddevie=SuivAdr then trouveSuiv:=true;
end;
if aiguillage[k].EtatTJD=4 then
begin
l:=index_aig(aiguillage[k].Ddroit); // 2eme adresse de la TJD
if aiguillage[k].ADroit=SuivAdr then trouveSuiv:=true;
if aiguillage[k].ADevie=SuivAdr then trouveSuiv:=true;
if aiguillage[k].Ddroit=SuivAdr then trouveSuiv:=true;
if aiguillage[l].Adroit=SuivAdr then trouveSuiv:=true;
if aiguillage[l].Adevie=SuivAdr then trouveSuiv:=true;
if aiguillage[l].Ddevie=SuivAdr then trouveSuiv:=true;
end;
end;
if aiguillage[k].modele=crois then
begin
if aiguillage[k].ADroit=SuivAdr then trouveSuiv:=true;
if aiguillage[k].ADevie=SuivAdr then trouveSuiv:=true;
if aiguillage[k].Ddroit=SuivAdr then trouveSuiv:=true;
if aiguillage[k].Ddevie=SuivAdr then trouveSuiv:=true;
end;
if not(trouveSuiv) then
begin
Affiche('Erreur 12: La description de l''aiguillage '+intToSTR(detect)+' ne correspond pas <20> son <20>l<EFBFBD>ment contigu ('+intToStr(SuivAdr)+') en branche '+intToSTR(i),clred);
ok:=false;
end;
end;
end;
end;
inc(j);
until((model=rien) and (detect=0)) ;
end;
// 9. v<>rifier la coh<6F>rence TCO
if avecTCO then
begin
for y:=1 to NbreCellY do
for x:=1 to NbreCellX do
begin
i:=TCO[x,y].BImage;
if i=30 then
begin
adr:=TCO[x,y].adresse;
if index_feu(adr)=0 then
begin
Affiche('Un signal '+IntToSTR(adr)+' est d<>clar<61> dans le TCO['+intToSTR(x)+','+intToSTR(y)+'] mais absent de la configuration',clred);
ok:=false;
end;
end;
if (i=2) or (i=3) or (i=4) or (i=5) or (i=12) or (i=13) or (i=14) or (i=15) or (i=21) or (i=22) then
begin
adr:=TCO[x,y].adresse;
if index_aig(adr)=0 then
begin
Affiche('Un aiguillage '+IntToSTR(adr)+' est d<>clar<61> dans le TCO['+intToSTR(x)+','+intToSTR(y)+'] mais absent de la configuration',clred);
ok:=false;
end;
end;
if (i=1) or (i=6) or (i=7) or (i=8) or (i=9) or (i=16) or (i=17) or (i=18) or (i=19) or (i=20) or (i=10) or (i=11) then
begin
adr:=TCO[x,y].adresse;
if adr<>0 then
begin
j:=1;
repeat
trouveSuiv:=adr=Adresse_detecteur[j];
inc(j);
until (j>NDetecteurs) or trouveSuiv;
if not(trouveSuiv) then
begin
Affiche('Un d<>tecteur '+IntToSTR(adr)+' est d<>clar<61> dans le TCO['+intToSTR(x)+','+intToSTR(y)+'] mais absent de la configuration',clred);
ok:=false;
end;
end;
end;
if not(verif_cellule(x,y,i)) then
begin
Affiche('TCO: Erreur de proximit<69> composants incompatibles: cellules TCO['+intToSTR(x)+','+intToSTR(y)+'] ',clred);
ok:=false;
end;
end;
end;
// 11 Divers
i:=pos(':',portcom);j:=pos(',',portcom);
val(copy(portcom,i+1,j-i),vitesse,l);
if (protocole=2) and (vitesse<>115200) then Affiche('La vitesse COM/USB en procotole DCC++ doit <20>tre de 115200 bauds',clred);
// si xpressnet, pas d'accesoires entre 257 <20> 272
AdrOk:=True;
if Verif_AdrXpressNet=1 then
begin
for i:=1 to maxaiguillage do
begin
adresse:=aiguillage[i].Adresse ;
if (adresse>=257) and (adresse<=272) then
begin
AdrOk:=false;
ok:=false;
Affiche('Erreur 13: l''aiguillage '+IntToSTR(adresse)+' se trouve dans la plage des accessoires DCC interdits (257-272) en Xpressnet',clred);
end;
end;
for i:=1 to NbreFeux do
begin
adresse:=feux[i].Adresse;
nc:=Nombre_adresses_signal(adresse);
if (adresse>=257) and (adresse<=272) or ((adresse+nc-1>=257) and (adresse+nc<=272)) then
begin
AdrOk:=false;
ok:=false;
Affiche('Erreur 14: le signal '+IntToSTR(adresse)+' se trouve dans la plage des accessoires DCC interdits (257-272)',clred);
Affiche('en Xpressnet car son d<>codeur '+decodeur[dec]+' occupe '+intToSTR(nc)+' adresses de '+intToSTR(adresse)+' <20> '+intToSTR(adresse+nc-1),clred);
end;
end;
// actionneurs
for i:=1 to maxTablo_act do
begin
if Tablo_actionneur[i].act then
begin
adresse:=Tablo_actionneur[i].accessoire;
if (adresse>=257) and (adresse<=272) then
begin
AdrOk:=false;
ok:=false;
Affiche('Erreur 15: l''actionneur '+IntToSTR(Tablo_actionneur[i].adresse)+' enclenche l''accessoire '+intToSTR(adresse),clred);
Affiche('qui se trouve dans la plage des accessoires DCC interdits (257-272) en Xpressnet',clred);
end;
end;
end;
if not(AdrOk) then
begin
j:=MessageDlg('Une adresse DCC via XpressNet a <20>t<EFBFBD> trouv<75>e dans la plage interdite.'+#13+
'Si vous n''utilisez pas XpressNet, vous devez choisir d''ignorer cette erreur.'+#13+#13+
'Voulez vous ignorer cette erreur <20> l''avenir? ',mtConfirmation,[mbNo,mbYes],0) ;
if j=mrYes then
begin
Verif_AdrXpressNet:=0;
sauve_config;
end;
end;
end;
verif_coherence:=ok;
end;
procedure TFormConfig.ButtonNouvAigClick(Sender: TObject);
var i : integer;
s : string;
begin
if MaxAiguillage>=NbreMaxiAiguillages then
begin
Affiche('Nombre maximal d''aiguillages atteint',clRed);
exit;
end;
clicliste:=true;
inc(MaxAiguillage);
i:=MaxAiguillage;
aiguillage[i].Adresse:=999;
aiguillage[i].modele:=aig;
aiguillage[i].AdroitB:='Z'; aiguillage[i].AdevieB:='Z';
aiguillage[i].DdroitB:='D'; aiguillage[i].DdevieB:='S'; // pr<70>paration pour TJD/S
aiguillage[i].EtatTJD:=4;
aiguillage[i].ApointeB:='Z';
aiguillage[i].Adevie2B:='Z';
aiguillage[i].tjsintB:='D';
aiguillage[i].AdrTrain:=0;
aiguillage[i].posInit:=const_inconnu;
aiguillage[i].Temps:=5;
aiguillage[i].position:=const_inconnu;
aiguillage[i].InversionCDM:=0;
aiguillage[i].vitesse:=0;
s:=encode_Aig(i);
if ligneClicAig<>-1 then RE_ColorLine(RichAig,ligneClicAig,ClAqua);
// scroller <20> la fin
with richAig do
begin
Lines.add(s);
SetFocus;
Selstart:=RichAig.GetTextLen-1;
Perform(EM_SCROLLCARET,0,0);
end;
LabelInfo.caption:='Aiguillage '+intToSTR(aiguillage[i].Adresse)+' cr<63><72>';
ligneClicAig:=i-1;
AncligneClicAig:=ligneClicAig;
Aff_champs_aig_tablo(i);
clicliste:=false;
config_modifie:=true;
Aig_sauve.Adresse:=0;
end;
// supprime le ou les aiguillages s<>lectionn<6E>s dans le richEdit
procedure supprime_aig;
var ligneDeb,LigneFin,i,debut,longueur,fin,l,ltot : integer;
s : string;
begin
//trouver ligne de d<>but et de fin s<>lectionner.
with formConfig do
begin
debut:=RichAig.SelStart;
longueur:=RichAig.SelLength;
end;
fin:=debut+longueur;
//Affiche(inttostr(debut)+' '+inttostr(longueur),clyellow);
// trouver les lignes s<>lectionn<6E>es
i:=0;ltot:=0;ligneDeb:=0;LigneFin:=0;
repeat
l:=length(FormConfig.RichAig.lines[i])+2; //+2 car CR LF
ltot:=ltot+l;
if (debut<ltot) and (ligneDeb=0) then ligneDeb:=i+1;
if (ltot>=fin) and (ligneFin=0) and (ligneDeb<>0) then ligneFin:=i+1;
//if (ltot=fin) and (ligneFin=0) then ligneFin:=i;
inc(i);
until (ltot>=fin);
if lignefin>maxAiguillage then lignefin:=maxAiguillage;
if ligneDeb=0 then begin ligneDeb:=ligneclicAig+1;ligneFin:=ligneclicAig+1;end;
if (lignedeb<1) or (lignefin<1) or (lignefin>maxAiguillage) then exit;
//Affiche(inttostr(Ltot)+' '+inttostr(Fin),clyellow);
if ligneDeb=LigneFin then s:='Voulez-vous supprimer l''aiguillage '+IntToSTR(aiguillage[lignedeb].adresse)+'?'
else s:='Voulez-vous supprimer les aiguillages de '+
IntToSTR(aiguillage[ligneDeb].adresse)+' <20> '+IntToSTR(aiguillage[ligneFin].adresse)+' ?';
if Application.MessageBox(pchar(s),pchar('confirm'), MB_YESNO or MB_DEFBUTTON2 or MB_ICONQUESTION)=idNo then exit;
FormConfig.ButtonAjSup.Caption:='Ajouter l''aig '+intToSTR(aiguillage[lignedeb].adresse)+' supprim<69>';
clicliste:=true;
raz_champs_aig;
Aig_supprime:=aiguillage[lignedeb]; // sauvegarde le supprim<69>
Aig_sauve.adresse:=0; // d<>valider sa d<>finition
index:=ligneDeb;
if ligneDeb=LigneFin then s:='Suppression de l''aiguillage '+IntToSTR(aiguillage[index].adresse)
else s:='Suppression des aiguillages de '+
IntToSTR(aiguillage[ligneDeb].adresse)+' <20> '+IntToSTR(aiguillage[ligneFin].adresse);
Affiche(s,clOrange);
for i:=lignedeb to lignefin do
begin
Affiche('Suppression aiguillage '+intToSTR(aiguillage[i].Adresse),clorange);
end;
//Affiche('Boucle de '+intToSTR(ligneDeb)+' N='+intToSTR(MaxAiguillage-ligneFin),clyellow);
for i:=1 to MaxAiguillage-ligneFin do
begin
index:=i+lignefin; //index de l'aiguillage de remplacement
//Affiche('remplacement par index '+intToSTR(index),clorange);
Aiguillage[lignedeb+i-1]:=Aiguillage[index];
aiguillage[index].Adresse:=0;
aiguillage[index].Modele:=rien;
aiguillage[index].Adroit:=0;
aiguillage[index].Adevie:=0;
aiguillage[index].Ddroit:=0;
aiguillage[index].Ddevie:=0;
aiguillage[index].APointe:=0;
aiguillage[index].modifie:=false;
end;
MaxAiguillage:=maxAiguillage-(ligneFin-LigneDeb)-1;
config_modifie:=true;
FormConfig.RichAig.Clear;
// r<>afficher le richsig
for i:=1 to MaxAiguillage do
begin
s:=encode_Aig(i);
if s<>'' then
begin
FormConfig.RichAig.Lines.Add(s);
RE_ColorLine(FormConfig.RichAig,FormConfig.RichAig.lines.count-1,ClAqua);
end;
end;
With FormConfig.RichAig do
begin
SelStart:=0;
Perform(EM_SCROLLCARET,0,0);
end;
ligneClicAig:=-1;
AncligneClicAig:=-1;
clicliste:=false;
end;
procedure TFormConfig.BoutSupAigClick(Sender: TObject);
begin
Supprime_aig;
end;
procedure TFormConfig.EditP1KeyPress(Sender: TObject; var Key: Char);
var AdrAig,adr,adr2,erreur,index,id2 : integer;
b,c : char;
s : string;
begin
if clicliste or (ord(Key)<>VK_RETURN) then exit;
if affevt then affiche('Evt change P1',clyellow);
if FormConfig.PageControl.ActivePage=FormConfig.TabSheetAig then
with Formconfig do
begin
s:=formconfig.RichAig.Lines[ligneClicAig];
Val(s,adrAig,erreur);
//v<>rifier la syntaxe de P
s:=EditP1.text;
if RightStr(s,1)<>'D' then
begin
clicListe:=true;
s:=s+'D';
editP1.text:=s;
clicListe:=false;
end;
decodeAig(s,adr,B);
if (B='D') and (adr<>0) then
begin
LabelInfo.caption:='';
RE_ColorLine(RichAig,ligneClicAig,ClWhite);
Index:=Index_Aig(AdrAig);
Aiguillage[index].modifie:=true;
LabelInfo.caption:='';
// modifier la base de donn<6E>es de l'aiguillage
if b=#0 then b:='Z';
adr2:=aiguillage[index].DDevie; // ancien aiguillage associ<63> <20> la tjd
clicliste:=true;
if B='D' then c:='S';
if B='S' then c:='D';
EditP2.Text:=IntToSTR(adr)+c;
clicliste:=false;
LabelInfo.caption:='Changement de l''adresse de la TJD de '+IntToSTR(adr2)+' <20> '+intToSTR(adr) ;
id2:=Index_Aig(Adr);
if (aiguillage[id2].modele<>rien) then
begin
LabelInfo.caption:='aiguillage '+IntToSTR(adr)+' existe d<>ja - ne sera pas <20>cras<61>' ;
exit;
end ;
aiguillage[index].Adresse:=adr;
clicliste:=true;
editAdrAig.Text:=IntToSTR(adr);
clicListe:=false;
s:=encode_aig(index);
formconfig.RichAig.Lines[ligneClicAig]:=s;
s:=encode_aig(index);
formconfig.RichAig.Lines[ligneClicAig]:=s;
// changer l'homologue
adr2:=aiguillage[index].Ddroit;
index:=index_aig(Adr2);
aiguillage[index].Ddroit:=adr;
aiguillage[index].Ddevie:=adr;
s:=encode_aig(index);
formconfig.RichAig.Lines[index-1]:=s;
end
else
LabelInfo.caption:='Erreur P1 TJD '+intToSTR(AdrAig);
end;
end;
procedure TFormConfig.EditP2KeyPress(Sender: TObject; var Key: Char);
var AdrAig,adr,adr2,erreur,index,id2 : integer;
b,c : char;
s : string;
begin
if clicliste or (ord(Key)<>VK_RETURN) then exit;
if affevt then affiche('Evt change P2',clyellow);
if FormConfig.PageControl.ActivePage=FormConfig.TabSheetAig then
with Formconfig do
begin
s:=formconfig.RichAig.Lines[ligneClicAig];
Val(s,adrAig,erreur);
//v<>rifier la syntaxe
s:=EditP2.text;
if RightStr(s,1)<>'S' then
begin
clicListe:=true;
s:=s+'S';
editP2.text:=s;
clicListe:=false;
end;
decodeAig(s,adr,B);
if (B='S') and (adr<>0) then
begin
LabelInfo.caption:='';
RE_ColorLine(RichAig,ligneClicAig,ClWhite);
Index:=Index_Aig(AdrAig);
Aiguillage[index].modifie:=true;
LabelInfo.caption:='';
// modifier la base de donn<6E>es de l'aiguillage
if b=#0 then b:='Z';
adr2:=aiguillage[index].DDevie; // ancien aiguillage associ<63> <20> la tjd
clicliste:=true;
if B='D' then c:='S';
if B='S' then c:='D';
EditP1.Text:=IntToSTR(adr)+c;
clicliste:=false;
LabelInfo.caption:='Changement de l''adresse de la TJD de '+IntToSTR(adr2)+' <20> '+intToSTR(adr) ;
id2:=Index_Aig(Adr);
if (aiguillage[id2].modele<>rien) then
begin
LabelInfo.caption:='aiguillage '+IntToSTR(adr)+' existe d<>ja - ne sera pas <20>cras<61>' ;
exit;
end ;
aiguillage[index].Adresse:=adr;
clicliste:=true;
editAdrAig.Text:=IntToSTR(adr);
clicListe:=false;
s:=encode_aig(index);
formconfig.RichAig.Lines[ligneClicAig]:=s;
// changer l'homologue
adr2:=aiguillage[index].Ddroit;
index:=index_aig(Adr2);
aiguillage[index].Ddroit:=adr;
aiguillage[index].Ddevie:=adr;
s:=encode_aig(index);
formconfig.RichAig.Lines[index-1]:=s;
end
else
LabelInfo.caption:='Erreur P2 TJD '+intToSTR(AdrAig);
end;
end;
procedure TFormConfig.EditP3KeyPress(Sender: TObject; var Key: Char);
var AdrAig,adr,adr2,erreur,index : integer;
model: Tequipement;
b,c : char;
s : string;
begin
if clicliste or (ord(Key)<>VK_RETURN) then exit;
if affevt then affiche('Evt change P3',clyellow);
if FormConfig.PageControl.ActivePage=FormConfig.TabSheetAig then
with Formconfig do
begin
s:=formconfig.RichAig.Lines[ligneClicAig];
Val(s,adrAig,erreur); // adrAig est l'adresse de l'aiguillage modifi<66>
//v<>rifier la syntaxe
s:=EditP3.text;
if RightStr(s,1)<>'S' then
begin
clicListe:=true;
s:=s+'S';
editP3.text:=s;
clicListe:=false;
end;
decodeAig(s,adr,B); // adr est le contenu du champ P3
if (B='S') and (adr<>0) then
begin
LabelInfo.caption:='';
RE_ColorLine(RichAig,ligneClicAig,ClWhite);
Index:=Index_Aig(AdrAig);
model:=aiguillage[Index].modele;
if model=tjs then // TJS
begin
LabelL.caption:=IntToSTR(adr);
aiguillage[index].tjsint:=adr;
end;
Aiguillage[index].modifie:=true;
LabelInfo.caption:='';
// modifier la base de donn<6E>es de l'aiguillage
if b=#0 then b:='Z';
adr2:=aiguillage[index].DDevie; // ancien aiguillage associ<63> <20> la tjd
clicliste:=true;
if B='D' then c:='S';
if B='S' then c:='D';
EditP4.Text:=IntToSTR(adr)+c;
clicliste:=false;
LabelInfo.caption:='Changement de la TJD homologue de '+IntToSTR(adr2)+' <20> '+intToSTR(adr) ;
adr2:=aiguillage[index].Ddroit; // 'ancienne' adresse homologue avant <20>crasement
aiguillage[index].Ddroit:=adr;
//aiguillage[index].DdroitB:=B;
aiguillage[index].Ddevie:=adr;
aiguillage[index].DdevieB:=B;
s:=encode_aig(index);
formconfig.RichAig.Lines[ligneClicAig]:=s;
// changer l'homologue
index:=index_aig(Adr);
if index=0 then // si elle n'existe pas la cr<63>er
begin
// cr<63>er homologue
if model=tjd then labelInfo.Caption:='Cr<43>ation de la TJD homologue '+IntToSTR(adr);
if model=tjs then labelInfo.Caption:='Cr<43>ation de la TJS homologue '+IntToSTR(adr);
inc(MaxAiguillage);
index:=MaxAiguillage;
aiguillage[index].Adresse:=Adr;
aiguillage[Index].modele:=model;
aiguillage[Index].Adroit:=0;
aiguillage[Index].AdroitB:='D';
aiguillage[Index].Adevie:=0;
aiguillage[Index].AdevieB:='D';
aiguillage[Index].Ddroit:=adrAig;
aiguillage[Index].DdroitB:='D';
aiguillage[Index].Ddevie:=adrAig;
aiguillage[Index].DdevieB:='S';
aiguillage[Index].APointeB:='Z';
aiguillage[Index].tjsINTB:='S';
s:=encode_aig(index);
formconfig.RichAig.Lines[index-1]:=s;
// scroller <20> la fin
with richAig do
begin
SetFocus;
Selstart:=RichAig.GetTextLen-1;
Perform(EM_SCROLLCARET,0,0);
RE_ColorLine(RichAig,index-1,ClAqua);
HideCaret(richAig.Handle); // <20>teint curseur
end;
end // fin de la cr<63>ation
else
begin
// existe, v<>rifier si c'est bien une TJD/S
model:=aiguillage[Index].modele;
if (model=tjd) or (model=tjs) then
begin
aiguillage[index].adresse:=adr;
s:=encode_aig(index);
formconfig.RichAig.Lines[index-1]:=s;
end
else
labelInfo.caption:='L''aiguillage '+IntToSTR(adr)+' existe, il ne sera pas <20>cras<61>';
end;
end
else
LabelInfo.caption:='Erreur P3 TJD '+intToSTR(AdrAig);
end;
end;
procedure TFormConfig.EditP4KeyPress(Sender: TObject; var Key: Char);
var AdrAig,adr,adr2,erreur,index : integer;
b,c : char;
s : string;
begin
if clicliste or (ord(Key)<>VK_RETURN) then exit;
if affevt then affiche('Evt change P4',clyellow);
if FormConfig.PageControl.ActivePage=FormConfig.TabSheetAig then
with Formconfig do
begin
s:=formconfig.RichAig.Lines[ligneClicAig];
Val(s,adrAig,erreur);
//v<>rifier la syntaxe
s:=EditP4.text;
if RightStr(s,1)<>'D' then
begin
clicListe:=true;
s:=s+'D';
editP4.text:=s;
clicListe:=false;
end;
decodeAig(s,adr,B);
if (B='D') and (adr<>0) then
begin
LabelInfo.caption:='';
RE_ColorLine(RichAig,ligneClicAig,ClWhite);
Index:=Index_Aig(AdrAig);
Aiguillage[index].modifie:=true;
LabelInfo.caption:='';
// modifier la base de donn<6E>es de l'aiguillage
if b=#0 then b:='Z';
adr2:=aiguillage[index].DDevie; // ancien aiguillage associ<63> <20> la tjd
clicliste:=true;
if B='D' then c:='S';
if B='S' then c:='D';
EditP3.Text:=IntToSTR(adr)+c;
clicliste:=false;
LabelInfo.caption:='Changement de la TJD homologue de '+IntToSTR(adr2)+' <20> '+intToSTR(adr) ;
adr2:=aiguillage[index].Ddroit; // 'ancienne' adresse homologue avant <20>crasement
aiguillage[index].Ddroit:=adr;
//aiguillage[index].DdroitB:=B;
aiguillage[index].Ddevie:=adr;
aiguillage[index].DdevieB:=B;
s:=encode_aig(index);
formconfig.RichAig.Lines[ligneClicAig]:=s;
// changer l'homologue
index:=index_aig(Adr2);
aiguillage[index].adresse:=adr;
s:=encode_aig(index);
formconfig.RichAig.Lines[index-1]:=s;
end
else
LabelInfo.caption:='Erreur P4 TJD '+intToSTR(AdrAig);
end;
end;
procedure TFormConfig.ButtonAjSupClick(Sender: TObject);
var s : string;
begin
if Aig_supprime.adresse<>0 then
begin
inc(MaxAiguillage);
aiguillage[MaxAiguillage]:=Aig_supprime;
Aig_Supprime.adresse:=0; // d<>valider l'aiguillage sauvegard<72>
Aig_Supprime.modele:=rien;
clicListe:=true;
config_modifie:=true;
// r<>afficher les rechedit et scroller <20> la fin
s:=encode_Aig(MaxAiguillage); // ligne de l'aiguillage
if s<>'' then
with RichAig do
begin
ButtonAjSup.Caption:='Ajouter l''aig supprim<69>';
ligneClicAig:=MaxAiguillage-1;
AncligneClicAig:=-1;
RichAig.Lines.Add(s);
RE_ColorLine(RichAig,RichAig.lines.count-1,clYellow);
SetFocus;
Selstart:=RichAig.GetTextLen-1;
Perform(EM_SCROLLCARET,0,0);
end;
Aff_champs_aig_tablo(MaxAiguillage);
end;
clicListe:=false;
end;
procedure TFormConfig.ButtonRestaureAigClick(Sender: TObject);
var index : integer;
begin
if (Aig_sauve.adresse<>0) and (ligneclicAig>=0) then
begin
clicListe:=true;
index:=ligneclicAig+1;
Aiguillage[index]:=Aig_sauve;
RichAig.Lines[ligneclicAig]:=encode_Aig(index);
aff_champs_Aig_tablo(index); // r<>affiche les champs
clicListe:=false;
end;
end;
procedure TFormConfig.ComboBoxAigChange(Sender: TObject);
var s: string;
i : integer;
begin
if clicListe then exit;
if MaxAiguillage<ligneclicAig+1 then exit;
if affevt then Affiche('Evt ComboBox Aiguillage',clOrange);
i:=ligneclicAig+1;
case ComboBoxAig.ItemIndex of
0 : aiguillage[i].modele:=aig;
1 : aiguillage[i].modele:=tjd;
2 : aiguillage[i].modele:=tjs;
3 : aiguillage[i].modele:=triple;
4 : aiguillage[i].modele:=crois;
else aiguillage[i].modele:=rien;
end;
if (aiguillage[i].modele=tjd) or (aiguillage[i].modele=tjs) then
begin
if not(radioButtonTJD2.Checked) and not(radioButtonTJD4.Checked) then radioButtonTJD2.Checked:=true;
if (aiguillage[i].tjsIntB<>'S') and (aiguillage[i].tjsIntB<>'D') then aiguillage[i].tjsIntB:='D';
end;
if aiguillage[i].modele=crois then LabelCrois.Visible:=true else LabelCrois.Visible:=false;
s:=encode_aig(i);
formconfig.RichAig.Lines[ligneclicAig]:=s;
clicliste:=true;
Aff_champs_aig_tablo(i);
clicliste:=false;
end;
procedure TFormConfig.ButtonValLigneClick(Sender: TObject);
var s: string;
ligne,esp : integer;
ok : boolean;
begin
ligne:=1;
ok:=true;
repeat
s:=AnsiUpperCase(RichBranche.Lines[ligne-1]);
if s<>'' then
begin
// supprime les espaces <20>ventuels
repeat
esp:=pos(' ',s);
if esp<>0 then delete(s,esp,1);
until esp=0;
if s<>'' then
begin
RichBranche.Lines[ligne-1]:=s;
branche[ligne]:=s; // stocker la ligne dans la branche pour la compiler
if compile_branche(s,ligne) then
begin
RE_ColorLine(RichBranche,Ligne-1,ClLime);
end
else
begin
RE_ColorLine(RichBranche,Ligne-1,ClRed);
ok:=false;
end;
inc(ligne);
end
else RichBranche.Lines.Delete(ligne-1);
end
else RichBranche.Lines.Delete(ligne-1);
until (ligne>RichBranche.Lines.count) or (ligne>=MaxBranches);
NbreBranches:=ligne-1;
if ligne>=MaxBranches then Affiche('Nombre maximal de branches atteint',clRed);
ligne:=verif_extr_branches;
if ligne<>0 then
begin
ok:=false;
RE_ColorLine(RichBranche,Ligne-1,ClRed);
end;
if ok then
begin
labelResult.Caption:='Syntaxe correcte';
config_modifie:=true;
modif_branches:=false;
end
else labelResult.Caption:='Erreur de syntaxe';
end;
function virgule_suiv(sl : string;o : integer) : integer;
var k : integer;
begin
o:=o+1;
for k:=o to length(sl) do
begin
// Affiche(sl[k],clGreen);
if sl[k]=',' then begin result:=k;exit;end;
end;
result:=0;
end;
// trouve l'enregistrement suivant apr<70>s l'offset dans une branche
// en sortie : trouve_enregistrement= nouvel offset, enregistrement
// si 0 en sortie: fin de ligne
function trouve_enregistrement_suiv(num_branche : integer;offset : integer) : integer;
var j : integer;
ss : string;
begin
j:=virgule_suiv(branche[Num_Branche],offset); // pointe sur la virgule suivante
if j<>0 then ss:=copy(branche[Num_Branche],offset,j-offset) // champ suivant
else ss:=copy(branche[Num_Branche],offset,length(branche[Num_Branche])-offset+1); // si j=0 c'est la fin de la cha<68>ne
enregistrement:=ss;
if j=0 then result:=0 else result:=j+1;
end;
// compile une branche de r<>seau sous forme de texte, et la stocke dans le tableau des branches
// i = index de la branche <20> stocker
function compile_branche(s : string;i : integer) : boolean;
var offset,j,bd,detect,erreur,adresse,erreur2 : integer;
c : char;
trouve,code : boolean;
se : string;
begin
j:=1;offset:=1;
code:=true;
// la boucle repeat parcoure la ligne s
repeat
BrancheN[i,j].adresse:=0; // pr<70>parer le suivant <20> 0
offset:=trouve_enregistrement_suiv(i,offset) ;
if enregistrement='' then
begin
Affiche('Erreur ligne '+s,clred);
compile_branche:=false;
exit;
end;
se:=enregistrement;
// d<>coder l'enregistrement
// si c'est un d<>tecteur, fini trouv<75>
Val(enregistrement,detect,erreur); // d<>termine si le champ est num<75>rique ou pas (cad si aiguillage)
// il y a un aiguillage ou un espace apr<70>s le champ....en fin de ligne
if erreur<>0 then
begin
c:=enregistrement[1];
delete(enregistrement,1,1);
if c='A' then
begin
Val(enregistrement,adresse,erreur2);
if (adresse=0) or (erreur2<>0) then
begin
Affiche('Erreur 17 champ '+se+' ligne '+s,clred);
code:=false;
end;
if adresse>NbMemZone then
begin
Affiche('Erreur 18 ligne '+s+' : adresse aiguillage trop grand: '+intToSTR(adresse),clred);
adresse:=NbMemZone;
code:=false;
end;
BrancheN[i,j].adresse:=adresse;
BrancheN[i,j].btype:=aig; // ident aiguillage
end
else
begin
Affiche('Erreur 19 champ '+se+' ligne '+s,clred);
code:=false;
erreur:=0; // forcer erreur <20> 0 pour obliger <20> passer sur un d<>tecteur
end;
end;
// d<>tecteur
if erreur=0 then
begin
if detect>NbMemZone then
begin
Affiche('Erreur 20 ligne '+s+' : adresse d<>tecteur trop grand: '+intToSTR(detect),clred);
detect:=NbMemZone;
code:=false;
end;
BrancheN[i,j].adresse:=detect; // adresse
BrancheN[i,j].btype:=det;// ident d<>tecteur
if detect=0 then begin BrancheN[i,j].btype:=buttoir;end; // buttoir
// v<>rifier si le d<>tecteur est d<>ja stock<63>
bd:=0;
repeat
inc(bd);
if bd>NbMaxDet then
begin
Affiche('Nombre maximal de d<>tecteurs d<>pass<73> ('+IntToSTR(NbMaxDet)+')',clred);
code:=false;
end
else
trouve:=Adresse_detecteur[bd]=detect;
until ((bd=NDetecteurs+1) or trouve) or (bd>NbMaxDet) ;
if not(trouve) then
begin
Adresse_detecteur[bd]:=detect;
NDetecteurs:=bd;
end;
end;
inc(j);
BrancheN[i,j].adresse:=0; // pr<70>parer le suivant <20> 0
BrancheN[i,j].BType:=rien;
//Affiche('branche '+intToSTR(i)+' index='+intToStr(j),clGreen);
until (offset=0) or (j>=MaxElBranches);
if j=2 then
begin
Affiche('Branche '+IntToSTR(i)+' : Une branche doit contenir au moins deux <20>l<EFBFBD>ments',clred);
code:=false;
end;
if (j>=MaxElBranches) then Affiche('Nombre maximal d''<27>lements dans une branche atteint',clred);
compile_branche:=code;
end;
procedure TFormConfig.RichBrancheMouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var i,curseur,lc : integer;
begin
if clicListe then exit;
clicListe:=true;
if affevt then affiche('Evt RichBranche clic',clyellow);
with Formconfig.RichBranche do
begin
i:=Selstart;
lc:=Perform(EM_LINEFROMCHAR,i,0); // num<75>ro de la lign<67>e cliqu<71>e
if lines[lc]<>'' then LabelNumBranche.Caption:='Branche n<>'+intToSTR(lc+1) else LabelNumBranche.Caption:='';
AncligneClicBr:=ligneClicBr;
ligneClicBr:=lc;
curseur:=SelStart; // position initiale du curseur
if AncligneClicBr<>ligneClicBr then
begin
if AncligneClicBr<>-1 then
begin
RE_ColorLine(RichBranche,AncligneClicBr,ClAqua);
end;
RE_ColorLine(RichBranche,ligneClicBr,ClYellow);
selStart:=curseur; // remettre le curseur en position initiale
end;
end;
clicListe:=false;
end;
procedure TFormConfig.ButtonVerifConfigClick(Sender: TObject);
var s : string;
begin
if verif_coherence then
begin
s:='La configuration est ok';
labelResult.Caption:=s;
Affiche(s,clLime);
end
else
labelResult.Caption:='Erreur de coh<6F>rence';
end;
procedure TFormConfig.MemoCarreChange(Sender: TObject);
var s,sO: string;
j,erreur,adr,ligne,aspect : integer;
c : char;
dir : boolean;
begin
if (ligneClicSig<0) or clicListe then exit;
if affevt then affiche('Evt MemoCarre change',clyellow);
j:=MemoCarre.Selstart;
clicMemo:=MemoCarre.Perform(EM_LINEFROMCHAR,j,0); // num<75>ro de la ligne du curseur
aspect:=feux[ligneClicSig+1].aspect;
dir:=aspect>10;
if dir and (clicMemo>aspect-10) then
begin
clicListe:=true;
LabelInfo.Caption:='Erreur '+intToSTR(aspect-9)+' conditions maxi pour un signal <20> '+intToSTR(aspect-10)+' directions';
MemoCarre.Lines.Delete(clicMemo);
clicListe:=false;
exit;
end;
if not(dir) and (clicMemo>5) then
begin
clicListe:=true;
LabelInfo.Caption:='Erreur 6 conditions maxi';
MemoCarre.Lines.Delete(clicMemo);
clicListe:=false;
exit;
end;
// signal directionnel
if dir then
begin
// boucle de ligne
for ligne:=1 to 6 do
begin
s:=MemoCarre.Lines[ligne-1];
sO:=s;
// boucle de chaine
j:=1;
if s<>'' then
repeat
if s[1]<>'A' then begin LabelInfo.Caption:='Erreur manque A : '+sO;exit;end;
delete(s,1,1);
val(s,adr,erreur); // adresse
if adr=0 then exit;
c:=#0;
if erreur<>0 then c:=s[erreur]; // S ou D
if (c<>'D') and (c<>'S') then begin LabelInfo.Caption:='Erreur manque D ou S : '+sO;exit;end;
setlength(feux[ligneClicSig+1].AigDirection[ligne],j+1); // augmenter le tableau dynamique
feux[ligneClicSig+1].AigDirection[ligne][j].PosAig:=c;
feux[ligneClicSig+1].AigDirection[ligne][j].Adresse:=adr;
delete(s,1,erreur); // supprime jusque D
if length(s)<>0 then if s[1]=',' then delete(s,1,1);
inc(j);
until s=''
else
setlength(feux[ligneClicSig+1].AigDirection[ligne],0);
end;
s:=encode_sig_feux(ligneClicSig+1);
RichSig.Lines[ligneClicSig]:=s;
end
else
// signal normal
begin
// boucle de ligne
for ligne:=1 to 6 do
begin
s:=uppercase(MemoCarre.Lines[ligne-1]);
clicListe:=true;
MemoCarre.Lines[ligne-1]:=s;
clicListe:=false;
sO:=s;
j:=1;
if s<>'' then
repeat
if s[1]<>'A' then begin LabelInfo.Caption:='Erreur manque A : '+sO;exit;end;
delete(s,1,1);
val(s,adr,erreur); // adresse
if adr=0 then exit;
c:=#0;
if erreur<>0 then c:=s[erreur]; // S ou D
if (c<>'D') and (c<>'S') then begin LabelInfo.Caption:='Erreur manque D ou S : '+sO;exit;end;
setlength(feux[ligneClicSig+1].condCarre[ligne],j+1);
feux[ligneClicSig+1].condCarre[ligne][j].PosAig:=c;
feux[ligneClicSig+1].condCarre[ligne][j].Adresse:=adr;
delete(s,1,erreur); // supprime jusque D
if length(s)<>0 then if s[1]=',' then delete(s,1,1);
inc(j);
until s=''
else
setlength(feux[ligneClicSig+1].condCarre[ligne],0);
end;
end;
s:=encode_sig_feux(ligneClicSig+1);
RichSig.Lines[ligneClicSig]:=s;
LabelInfo.Caption:='';
clicListe:=false;
end;
procedure TFormConfig.EditAigTripleChange(Sender: TObject);
var s : string;
i,erreur,index : integer;
model: TEquipement;
begin
if clicliste then exit;
if FormConfig.PageControl.ActivePage=FormConfig.TabSheetAig then
with Formconfig do
begin
s:=EditAigTriple.Text;
Val(s,i,erreur);
index:=ligneclicAig+1;
if index=0 then exit;
model:=aiguillage[index].modele;
if (model=triple) then
begin
if (erreur<>0) then begin LabelInfo.caption:='Erreur adresse aiguillage ';exit;end;
// v<>rifier si l'adresse de l'aiguillage existe d<>ja
if (aiguillage[Index_Aig(i)].modele<>rien) then
begin
LabelInfo.caption:='aiguillage '+IntToSTR(i)+' existe d<>ja - ne sera pas <20>cras<61>' ;
EditAigTriple.Color:=clred;
exit;
end ;
if i=0 then EditAigTriple.Color:=clred else EditAigTriple.Color:=clWindow;
LabelInfo.caption:='';
aiguillage[index].AdrTriple:=i;
aiguillage[index].modifie:=true;
s:=encode_aig(index);
formconfig.RichAig.Lines[ligneclicAig]:=s;
end;
end;
end;
procedure TFormConfig.ComboBoxDDChange(Sender: TObject);
var s: string;
i,pos: integer;
begin
if clicliste or (ligneclicAig<0) then exit;
if FormConfig.PageControl.ActivePage=FormConfig.TabSheetAig then
with Formconfig do
begin
i:=ComboBoxDD.ItemIndex;
case i of
0 : pos:=const_devie;
1 : pos:=const_droit;
2 : pos:=const_inconnu;
end;
aiguillage[ligneclicAig+1].PosInit:=pos;
aiguillage[ligneclicAig+1].modifie:=true;
s:=encode_aig(ligneclicAig+1);
RichAig.lines[ligneclicAig]:=s;
end;
end;
procedure TFormConfig.EditTempo10Change(Sender: TObject);
var s : string;
i,erreur : integer;
begin
if clicliste or (ligneclicAig<0) then exit;
if FormConfig.PageControl.ActivePage=FormConfig.TabSheetAig then
with Formconfig do
begin
s:=EditTempo10.Text;
Val(s,i,erreur);
if (i>0) and (i<50) then
begin
LabelInfo.caption:='';
aiguillage[ligneclicAig+1].temps:=i;
aiguillage[ligneclicAig+1].modifie:=true;
s:=encode_aig(ligneclicAig+1);
RichAig.lines[ligneclicAig]:=s;
end ;
end;
end;
procedure TFormConfig.CheckInvInitClick(Sender: TObject);
var adrAig,erreur : integer;
s : string;
begin
// r<>cup<75>rer l'adresse de l'aiguillage cliqu<71>
if clicliste or (ligneclicAig<0) then exit;
if affevt then affiche('Evt change InvInit',clyellow);
s:=formconfig.RichAig.Lines[ligneclicAig];
Val(s,adrAig,erreur);
// r<>encoder la ligne
s:=encode_aig(Index_Aig(AdrAig));
formconfig.RichAig.Lines[ligneclicAig]:=s;
end;
procedure TFormConfig.EditV4FChange(Sender: TObject);
var s : string;
act,erreur,NbVoies,i : integer;
V4valide : boolean;
begin
if clicliste then exit;
if affevt then affiche('Evt EditV4F Change',clyellow);
if FormConfig.PageControl.ActivePage=FormConfig.TabSheetAct then
with Formconfig do
begin
s:=EditV4F.Text;
Val(s,act,erreur);
if (erreur<>0) and (s<>'') then
begin
LabelInfo.caption:='Erreur adresse actionneur voie 4 ferme';exit
end else LabelInfo.caption:=' ';
i:=lignecliqueePN+1;
tablo_PN[i].voie[4].ActFerme:=act;
V4valide:=(EditV4O.text<>'') and (EditV4F.text<>'');
NbVoies:=tablo_PN[i].NbVoies;
if V4Valide and (NbVoies<=3) then tablo_PN[i].NbVoies:=4;
if not(V4Valide) then tablo_PN[i].NbVoies:=3;
s:=encode_act_PN(i);
RichPN.Lines[lignecliqueePN]:=s;
end;
end;
procedure TFormConfig.EditV4OChange(Sender: TObject);
var s : string;
i,act,erreur,NbVoies : integer;
V4valide : boolean;
begin
if clicliste or (lignecliqueePN<0) then exit;
if affevt then affiche('Evt EditV4O Change',clyellow);
if FormConfig.PageControl.ActivePage=FormConfig.TabSheetAct then
with Formconfig do
begin
s:=EditV4O.Text;
Val(s,act,erreur);
if (erreur<>0) and (s<>'') then
begin
LabelInfo.caption:='Erreur adresse actionneur voie 4 ouvre';exit
end else LabelInfo.caption:=' ';
i:=lignecliqueePN+1;
tablo_PN[i].voie[4].ActOuvre:=act;
V4valide:=(EditV4O.text<>'') and (EditV4F.text<>'');
NbVoies:=tablo_PN[i].NbVoies;
if V4Valide and (NbVoies<=3) then tablo_PN[i].NbVoies:=4;
if not(V4Valide) then tablo_PN[i].NbVoies:=3;
s:=encode_act_PN(i);
RichPN.Lines[lignecliqueePN]:=s;
end;
end;
procedure TFormConfig.EditV5FChange(Sender: TObject);
var s : string;
i,act,erreur,NbVoies : integer;
V5valide : boolean;
begin
if clicliste then exit;
if affevt then affiche('Evt EditV5F Change',clyellow);
if FormConfig.PageControl.ActivePage=FormConfig.TabSheetAct then
with Formconfig do
begin
s:=EditV5F.Text;
Val(s,act,erreur);
if (erreur<>0) and (s<>'') then
begin
LabelInfo.caption:='Erreur adresse actionneur voie 4 ferme';exit
end else LabelInfo.caption:=' ';
i:=lignecliqueePN+1;
tablo_PN[i].voie[5].ActFerme:=act;
V5valide:=(EditV4O.text<>'') and (EditV5F.text<>'');
NbVoies:=tablo_PN[i].NbVoies;
if V5Valide and (NbVoies<=4) then tablo_PN[i].NbVoies:=5;
if not(V5Valide) then tablo_PN[i].NbVoies:=4;
s:=encode_act_PN(i);
RichPN.Lines[lignecliqueePN]:=s;
end;
end;
procedure TFormConfig.EditV5OChange(Sender: TObject);
var s : string;
i,act,erreur,NbVoies : integer;
V5valide : boolean;
begin
if clicliste or (lignecliqueePN<0) then exit;
if affevt then affiche('Evt EditV5O Change',clyellow);
if FormConfig.PageControl.ActivePage=FormConfig.TabSheetAct then
with Formconfig do
begin
s:=EditV5O.Text;
Val(s,act,erreur);
if (erreur<>0) and (s<>'') then
begin
LabelInfo.caption:='Erreur adresse actionneur voie 4 ouvre';exit
end else LabelInfo.caption:=' ';
i:=lignecliqueePN+1;
tablo_PN[i].voie[5].ActOuvre:=act;
V5valide:=(EditV4O.text<>'') and (EditV5F.text<>'');
NbVoies:=tablo_PN[i].NbVoies;
if V5Valide and (NbVoies<=4) then tablo_PN[i].NbVoies:=5;
if not(V5Valide) then tablo_PN[i].NbVoies:=4;
s:=encode_act_PN(i);
RichPN.Lines[lignecliqueePN]:=s;
end;
end;
procedure TFormConfig.EditLChange(Sender: TObject);
var s : string;
i, erreur :integer;
begin
if clicliste or (ligneclicAig<0) then exit;
if affevt then affiche('Evt EditL Change',clyellow);
if FormConfig.PageControl.ActivePage=FormConfig.TabSheetAig then
begin
s:=EditL.Text;
if s='' then exit;
val(s,i,erreur);
if erreur<>0 then
if (s[erreur]<>'S') and (s[erreur]<>'D') then
begin
LabelInfo.caption:='Erreur Champ L manque D ou S';exit
end
else LabelInfo.caption:='';
aiguillage[ligneclicAig+1].tjsint:=i;
aiguillage[ligneclicAig+1].tjsintb:=s[erreur];
s:=encode_aig(ligneclicAig+1);
RichAig.Lines[ligneclicAig]:=s;
end;
end;
procedure TFormConfig.Button2Click(Sender: TObject);
begin
close;
end;
procedure TFormConfig.FormClose(Sender: TObject; var Action: TCloseAction);
var index : integer;
ok : boolean;
begin
if modif_branches then
begin
if MessageDlg('Les branches ont <20>t<EFBFBD> modifi<66>es mais non valid<69>es. Voulez fermer la fen<65>tre ?',mtConfirmation,[mbYes,mbNo],0)=mrNo then
begin
action:=tCloseAction(caNone);
exit;
end;
end;
modif_branches:=false;
for index:=1 to NbreFeux do
begin
// cr<63>er les nouveau checkBox de feux blancs si de nouveaux ont <20>t<EFBFBD> coch<63>s
if feux[index].FeuBlanc and (feux[index].checkFB=nil) then
begin
feux[index].CheckFB:=TCheckBox.create(Formprinc.ScrollBox1); // cr<63>e le handle
with Feux[index].CheckFB do
begin
onClick:=formprinc.proc_checkBoxFB; // affecter l'adresse de la proc<6F>dure de traitement quand on clique dessus
Hint:=intToSTR(index);
caption:='dem FB';
Parent:=Formprinc.ScrollBox1;
width:=100;height:=15;
Top:=HtImg+15+((HtImg+EspY+20)*((index-1) div NbreImagePLigne));
Left:=10+ (LargImg+5)*((index-1) mod (NbreImagePLigne));
BringToFront;
end;
end;
// supprimer les checkBox de feux blancs si ils ont <20>t<EFBFBD> d<>coch<63>s
if not(feux[index].FeuBlanc) and (feux[index].checkFB<>nil) then
begin
Feux[index].CheckFB.free;
Feux[index].CheckFB:=nil;
end;
end;
ok:=verifie_panneau_config;
if not(ok) then action:=tCloseAction(caNone); // si la config est nok, on ferme pas la fenetre
end;
procedure TFormConfig.ButtonConfigSRClick(Sender: TObject);
var decodeur : integer;
begin
clicListe:=true;
decodeur:=feux[ligneClicSig+1].decodeur;
if decodeur=7 then // SR
begin
formSR.showmodal;
formSR.close;
end;
if (decodeur=2) or (decodeur=5) then // cdf ou digikeijs
begin
formCDF.showmodal;
formCDF.close;
end;
clicListe:=false;
end;
procedure TFormConfig.PageControlChange(Sender: TObject);
begin
Label20.Visible:=false;
if FormConfig.PageControl.ActivePage=FormConfig.TabSheetAct then label40.Visible:=true
else label40.Visible:=false;
end;
procedure TFormConfig.SpeedButtonJoueClick(Sender: TObject);
begin
if PlaySound(pchar(EditSon.Text),0,SND_ASYNC)=false then
labelInfo.Caption:='Erreur';
end;
procedure TFormConfig.ButtonTestActClick(Sender: TObject);
Var Adr,adr2,erreur,etat : integer;
begin
etat:=0;
val(EditEtatActionneur.Text,Etat,erreur);
val(EditAct.Text,Adr,erreur);
val(EditAct2.Text,Adr2,erreur);
if erreur=0 then
begin
Event_act(adr,adr2,etat,'');
end;
end;
procedure TFormConfig.RadioButtonActDetClick(Sender: TObject);
var i,champ,erreur : integer;
s : string;
begin
if clicListe then exit;
i:=ligneClicAct+1;
if AffEvt then Affiche('RadioBoutonActDet '+IntToSTR(i),clyellow);
Tablo_Actionneur[i].typdeclenche:=0;
LabelActionneur.Caption:='Actionneur D<>tecteurZ';
editAct2.Visible:=false;
EditTrainDecl.Visible:=true;
LabelTrain.Visible:=true;
EditEtatActionneur.Hint:='Etat 0 ou 1';
Tablo_Actionneur[i].trainDecl:=trainSauve;
EditTrainDecl.Text:=trainSauve;
val(editact.Text,champ,erreur);
Tablo_actionneur[i].adresse:=champ ;
val(editEtatActionneur.Text,champ,erreur);
Tablo_actionneur[i].etat:=champ;
Tablo_actionneur[i].trainDecl:=EditTrainDecl.Text;
val(editFonctionAccess.Text,champ,erreur);
Tablo_actionneur[i].fonction:=champ;
val(editEtatFoncSortie.Text,champ,erreur);
Tablo_actionneur[i].sortie:=champ;
val(editTempo.Text,champ,erreur);
Tablo_actionneur[i].tempo:=champ;
tablo_actionneur[i].Raz:=checkRaz.checked;
s:=encode_act_loc_son(i);
RichAct.Lines[ligneClicAct]:=s;
end;
procedure TFormConfig.RadioButtonZonesClick(Sender: TObject);
var i,champ,erreur : integer;
s : string;
begin
if clicListe then exit;
i:=ligneClicAct+1;
if AffEvt then Affiche('RadioBoutonZones '+IntToSTR(i),clyellow);
Tablo_Actionneur[i].typdeclenche:=3;
LabelActionneur.Caption:='M<>moire de Zone';
EditTrainDecl.Visible:=false;
LabelTrain.Visible:=false;
editAct2.Visible:=true;
//editact.Text:=intToSTR(Tablo_actionneur[i].adresse2);
EditEtatActionneur.Hint:='Etat 0 ou 1';
Tablo_actionneur[i].trainDecl:='X';
val(editact.Text,champ,erreur);
Tablo_actionneur[i].adresse:=champ ;
val(editEtatActionneur.Text,champ,erreur);
Tablo_actionneur[i].etat:=champ;
val(editFonctionAccess.Text,champ,erreur);
Tablo_actionneur[i].fonction:=champ;
val(editEtatFoncSortie.Text,champ,erreur);
Tablo_actionneur[i].sortie:=champ;
val(editTempo.Text,champ,erreur);
Tablo_actionneur[i].tempo:=champ;
tablo_actionneur[i].Raz:=checkRaz.checked;
s:=encode_act_loc_son(i);
RichAct.Lines[ligneClicAct]:=s;
end;
procedure TFormConfig.RadioButtonAigClick(Sender: TObject);
var i,champ,erreur : integer;
s : string;
begin
if clicListe then exit;
i:=ligneClicAct+1;
if AffEvt then Affiche('RadioBoutonAig '+IntToSTR(i),clyellow);
Tablo_Actionneur[i].typdeclenche:=2;
LabelActionneur.Caption:='Aiguillage';
EditTrainDecl.Visible:=false;
LabelTrain.Visible:=false;
editAct2.Visible:=false;
//editact.Text:=intToSTR(Tablo_actionneur[i].adresse2);
EditEtatActionneur.Hint:='1 ou S=d<>vi<76> 2 ou D=droit';
Tablo_actionneur[i].trainDecl:='X';
val(editact.Text,champ,erreur);
Tablo_actionneur[i].adresse:=champ ;
val(editEtatActionneur.Text,champ,erreur);
Tablo_actionneur[i].etat:=champ;
val(editFonctionAccess.Text,champ,erreur);
Tablo_actionneur[i].fonction:=champ;
val(editEtatFoncSortie.Text,champ,erreur);
Tablo_actionneur[i].sortie:=champ;
val(editTempo.Text,champ,erreur);
Tablo_actionneur[i].tempo:=champ;
tablo_actionneur[i].Raz:=checkRaz.checked;
s:=encode_act_loc_son(i);
RichAct.Lines[ligneClicAct]:=s;
end;
procedure TFormConfig.SpeedButtonChargerClick(Sender: TObject);
var s: string;
begin
s:=GetCurrentDir;
OpenDialogSon.InitialDir:=s;
OpenDialogSon.DefaultExt:='wav';
OpenDialogSon.Title:='Ouvrir un fichier son';
OpenDialogSon.Filter:='Fichiers wav (*.wav)|*.wav|Tous fichiers (*.*)|*.*';
if openDialogSon.Execute then
begin
s:=openDialogSon.FileName;
editson.Text:=s;
end;
end;
procedure TFormConfig.RichBrancheKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
var lc,curseur,i : integer;
begin
modif_branches:=true;
if ord(Key)=VK_UP then
begin
if clicListe then exit;
clicListe:=true;
if affevt then affiche('Evt RichBranche keydown',clyellow);
with Formconfig.RichBranche do
begin
i:=Selstart;
lc:=Perform(EM_LINEFROMCHAR,i,0); // num<75>ro de la lign<67>e cliqu<71>e
if lc>0 then
begin
dec(lc);
if lines[lc]<>'' then LabelNumBranche.Caption:='Branche n<>'+intToSTR(lc+1) else LabelNumBranche.Caption:='';
AncligneClicBr:=ligneClicBr;
ligneClicBr:=lc;
curseur:=SelStart; // position initiale du curseur
if AncligneClicBr<>ligneClicBr then
begin
if AncligneClicBr<>-1 then
begin
RE_ColorLine(RichBranche,AncligneClicBr,ClAqua);
end;
RE_ColorLine(RichBranche,ligneClicBr,ClYellow);
selStart:=curseur; // remettre le curseur en position initiale
end;
end;
end;
end;
if ord(Key)=VK_DOWN then
begin
if clicListe then exit;
clicListe:=true;
if affevt then affiche('Evt RichBranche keydown',clyellow);
with Formconfig.RichBranche do
begin
i:=Selstart;
lc:=Perform(EM_LINEFROMCHAR,i,0); // num<75>ro de la lign<67>e cliqu<71>e
if lc<NbreBranches-1 then
begin
inc(lc);
LabelNumBranche.Caption:='Branche n<>'+intToSTR(lc+1);
AncligneClicBr:=ligneClicBr;
ligneClicBr:=lc;
curseur:=SelStart; // position initiale du curseur
if AncligneClicBr<>ligneClicBr then
begin
if AncligneClicBr<>-1 then
begin
RE_ColorLine(RichBranche,AncligneClicBr,ClAqua);
end;
RE_ColorLine(RichBranche,ligneClicBr,ClYellow);
selStart:=curseur; // remettre le curseur en position initiale
end;
end;
end;
end;
clicListe:=false;
end;
procedure TFormConfig.RichAigKeyDown(Sender: TObject; var Key: Word;Shift: TShiftState);
var lc,curseur,i : integer;
begin
if key=VK_delete then supprime_aig;
if ord(Key)=VK_UP then
begin
if clicListe then exit;
clicListe:=true;
if affevt then affiche('Evt RichAig keydown',clyellow);
with Formconfig.RichAig do
begin
i:=Selstart;
lc:=Perform(EM_LINEFROMCHAR,i,0); // num<75>ro de la lign<67>e cliqu<71>e
if lc>0 then
begin
dec(lc);
AncligneClicAig:=ligneClicAig;
ligneClicAig:=lc;
curseur:=SelStart; // position initiale du curseur
if AncligneClicAig<>ligneClicAig then
begin
if AncligneClicAig<>-1 then
begin
RE_ColorLine(RichAig,AncligneClicAig,ClAqua);
end;
RE_ColorLine(RichAig,ligneClicAig,ClYellow);
selStart:=curseur; // remettre le curseur en position initiale
aff_champs_Aig_tablo(lc+1);
end;
end;
end;
end;
if ord(Key)=VK_DOWN then
begin
if clicListe then exit;
clicListe:=true;
if affevt then affiche('Evt RichAig keydown',clyellow);
with Formconfig.RichAig do
begin
i:=Selstart;
lc:=Perform(EM_LINEFROMCHAR,i,0); // num<75>ro de la lign<67>e cliqu<71>e
if lc<maxaiguillage-1 then
begin
inc(lc);
AncligneClicAig:=ligneClicAig;
ligneClicAig:=lc;
curseur:=SelStart; // position initiale du curseur
if AncligneClicAig<>ligneClicAig then
begin
if AncligneClicAig<>-1 then
begin
RE_ColorLine(RichAig,AncligneClicAig,ClAqua);
end;
RE_ColorLine(RichAig,ligneClicAig,ClYellow);
selStart:=curseur; // remettre le curseur en position initiale
aff_champs_Aig_tablo(lc+1);
end;
end;
end;
end;
clicListe:=false;
end;
procedure TFormConfig.RichSigKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
var lc,curseur,i : integer;
begin
if key=VK_delete then supprime_sig;
if ord(Key)=VK_UP then
begin
if clicListe then exit;
clicListe:=true;
if affevt then affiche('Evt RichSig keydown',clyellow);
with Formconfig.RichSig do
begin
i:=Selstart;
lc:=Perform(EM_LINEFROMCHAR,i,0); // num<75>ro de la lign<67>e cliqu<71>e
if lc>0 then
begin
dec(lc);
AncligneClicSig:=ligneClicSig;
ligneClicSig:=lc;
curseur:=SelStart; // position initiale du curseur
if AncligneClicSig<>ligneClicSig then
begin
if AncligneClicSig<>-1 then
begin
RE_ColorLine(RichSig,AncligneClicSig,ClAqua);
end;
RE_ColorLine(RichSig,ligneClicSig,ClYellow);
selStart:=curseur; // remettre le curseur en position initiale
aff_champs_sig_feux(lc+1);
end;
end;
end;
end;
if ord(Key)=VK_DOWN then
begin
if clicListe then exit;
clicListe:=true;
if affevt then affiche('Evt RichSig keydown',clyellow);
with Formconfig.RichSig do
begin
i:=Selstart;
lc:=Perform(EM_LINEFROMCHAR,i,0); // num<75>ro de la lign<67>e cliqu<71>e
if lc<NbreFeux-1 then
begin
inc(lc);
AncligneClicSig:=ligneClicSig;
ligneClicSig:=lc;
curseur:=SelStart; // position initiale du curseur
if AncligneClicSig<>ligneClicSig then
begin
if AncligneClicSig<>-1 then
begin
RE_ColorLine(RichSig,AncligneClicSig,ClAqua);
end;
RE_ColorLine(RichSig,ligneClicSig,ClYellow);
selStart:=curseur; // remettre le curseur en position initiale
aff_champs_sig_feux(lc+1);
end;
end;
end;
end;
clicListe:=false;
end;
procedure TFormConfig.ButtonEnregistreClick(Sender: TObject);
var ok: boolean;
begin
ok:=verifie_panneau_config;
if ok then Sauve_config;
end;
procedure TFormConfig.EditZdet1V1FChange(Sender: TObject);
var s : string;
det,erreur : integer;
begin
if clicliste then exit;
if affevt then affiche('Evt EditZdet1V1F Change',clyellow);
if FormConfig.PageControl.ActivePage=FormConfig.TabSheetAct then
with Formconfig do
begin
s:=EditZdet1V1F.Text;
Val(s,det,erreur);
if (erreur<>0) then
begin
LabelInfo.caption:='Erreur adresse d<>tecteur voie 1 ferme';exit
end else LabelInfo.caption:=' ';
tablo_PN[lignecliqueePN+1].voie[1].DetZ1F:=det;
s:=encode_act_PN(lignecliqueePN+1);
RichPN.Lines[lignecliqueePN]:=s;
end;
end;
procedure TFormConfig.EditZdet2V1FChange(Sender: TObject);
var s : string;
det,erreur : integer;
begin
if clicliste then exit;
if affevt then affiche('Evt EditZdet2V1F Change',clyellow);
if FormConfig.PageControl.ActivePage=FormConfig.TabSheetAct then
with Formconfig do
begin
s:=EditZdet2V1F.Text;
Val(s,det,erreur);
if (erreur<>0) then
begin
LabelInfo.caption:='Erreur adresse d<>tecteur voie 1 ferme';exit
end else LabelInfo.caption:=' ';
tablo_PN[lignecliqueePN+1].voie[1].DetZ2F:=det;
s:=encode_act_PN(lignecliqueePN+1);
RichPN.Lines[lignecliqueePN]:=s;
end;
end;
procedure TFormConfig.EditZdet1V1OChange(Sender: TObject);
var s : string;
det,erreur : integer;
begin
if clicliste then exit;
if affevt then affiche('Evt EditZdet1V1O Change',clyellow);
if FormConfig.PageControl.ActivePage=FormConfig.TabSheetAct then
with Formconfig do
begin
s:=EditZdet1V1O.Text;
Val(s,det,erreur);
if (erreur<>0) then
begin
LabelInfo.caption:='Erreur adresse d<>tecteur voie 1 ouvre';exit
end else LabelInfo.caption:=' ';
tablo_PN[lignecliqueePN+1].voie[1].DetZ1O:=det;
s:=encode_act_PN(lignecliqueePN+1);
RichPN.Lines[lignecliqueePN]:=s;
end;
end;
procedure TFormConfig.EditZdet2V1OChange(Sender: TObject);
var s : string;
det,erreur : integer;
begin
if clicliste then exit;
if affevt then affiche('Evt EditZdet2V1O Change',clyellow);
if FormConfig.PageControl.ActivePage=FormConfig.TabSheetAct then
with Formconfig do
begin
s:=EditZdet2V1O.Text;
Val(s,det,erreur);
if (erreur<>0) then
begin
LabelInfo.caption:='Erreur adresse d<>tecteur voie 1 ouvre';exit
end else LabelInfo.caption:=' ';
tablo_PN[lignecliqueePN+1].voie[1].DetZ2O:=det;
s:=encode_act_PN(lignecliqueePN+1);
RichPN.Lines[lignecliqueePN]:=s;
end;
end;
procedure TFormConfig.EditZdet1V2FChange(Sender: TObject);
var s : string;
act,erreur,NbVoies,i : integer;
V2valide : boolean;
begin
if clicliste then exit;
if affevt then affiche('Evt EditZdet1V2F Change',clyellow);
if FormConfig.PageControl.ActivePage=FormConfig.TabSheetAct then
with Formconfig do
begin
s:=EditZdet1V2F.Text;
Val(s,act,erreur);
if (erreur<>0) and (s<>'') then
begin
LabelInfo.caption:='Erreur adresse d<>tecteur voie 2 ferme';exit
end else LabelInfo.caption:=' ';
i:=lignecliqueePN+1;
tablo_PN[i].voie[2].detZ1F:=act;
V2valide:=(EditZdet1V2F.text<>'');
NbVoies:=tablo_PN[i].NbVoies;
if V2Valide and (NbVoies=1) then tablo_PN[i].NbVoies:=2;
if not(V2Valide) then tablo_PN[i].NbVoies:=1;
s:=encode_act_PN(i);
RichPN.Lines[lignecliqueePN]:=s;
end;
end;
procedure TFormConfig.EditZdet2V2FChange(Sender: TObject);
var s : string;
act,erreur,NbVoies,i : integer;
V2valide : boolean;
begin
if clicliste then exit;
if affevt then affiche('Evt EditZdet2V2F Change',clyellow);
if FormConfig.PageControl.ActivePage=FormConfig.TabSheetAct then
with Formconfig do
begin
s:=EditZdet2V2F.Text;
Val(s,act,erreur);
if (erreur<>0) and (s<>'') then
begin
LabelInfo.caption:='Erreur adresse d<>tecteur voie 2 ferme';exit
end else LabelInfo.caption:=' ';
i:=lignecliqueePN+1;
tablo_PN[i].voie[2].detZ2F:=act;
V2valide:=(EditZdet2V2F.text<>'');
NbVoies:=tablo_PN[i].NbVoies;
if V2Valide and (NbVoies=1) then tablo_PN[i].NbVoies:=2;
if not(V2Valide) then tablo_PN[i].NbVoies:=1;
s:=encode_act_PN(i);
RichPN.Lines[lignecliqueePN]:=s;
end;
end;
procedure TFormConfig.EditZdet1V2OChange(Sender: TObject);
var s : string;
act,erreur,NbVoies,i : integer;
V2valide : boolean;
begin
if clicliste then exit;
if affevt then affiche('Evt EditZdet1V2O Change',clyellow);
if FormConfig.PageControl.ActivePage=FormConfig.TabSheetAct then
with Formconfig do
begin
s:=EditZdet1V2O.Text;
Val(s,act,erreur);
if (erreur<>0) and (s<>'') then
begin
LabelInfo.caption:='Erreur adresse d<>tecteur voie 2 ouvre';exit
end else LabelInfo.caption:=' ';
i:=lignecliqueePN+1;
tablo_PN[i].voie[2].detZ1O:=act;
V2valide:=(EditZdet1V2O.text<>'');
NbVoies:=tablo_PN[i].NbVoies;
if V2Valide and (NbVoies=1) then tablo_PN[i].NbVoies:=2;
if not(V2Valide) then tablo_PN[i].NbVoies:=1;
s:=encode_act_PN(i);
RichPN.Lines[lignecliqueePN]:=s;
end;
end;
procedure TFormConfig.EditZdet2V2OChange(Sender: TObject);
var s : string;
act,erreur,NbVoies,i : integer;
V2valide : boolean;
begin
if clicliste then exit;
if affevt then affiche('Evt EditZdet2V2F Change',clyellow);
if FormConfig.PageControl.ActivePage=FormConfig.TabSheetAct then
with Formconfig do
begin
s:=EditZdet2V2O.Text;
Val(s,act,erreur);
if (erreur<>0) and (s<>'') then
begin
LabelInfo.caption:='Erreur adresse d<>tecteur voie 2 ouvre';exit
end else LabelInfo.caption:=' ';
i:=lignecliqueePN+1;
tablo_PN[i].voie[2].detZ2O:=act;
V2valide:=(EditZdet2V2O.text<>'');
NbVoies:=tablo_PN[i].NbVoies;
if V2Valide and (NbVoies=1) then tablo_PN[i].NbVoies:=2;
if not(V2Valide) then tablo_PN[i].NbVoies:=1;
s:=encode_act_PN(i);
RichPN.Lines[lignecliqueePN]:=s;
end;
end;
procedure TFormConfig.EditZdet1V3FChange(Sender: TObject);
var s : string;
act,erreur,NbVoies,i : integer;
V2valide : boolean;
begin
if clicliste then exit;
if affevt then affiche('Evt EditZdet1V3F Change',clyellow);
if FormConfig.PageControl.ActivePage=FormConfig.TabSheetAct then
with Formconfig do
begin
s:=EditZdet1V3F.Text;
Val(s,act,erreur);
if (erreur<>0) and (s<>'') then
begin
LabelInfo.caption:='Erreur adresse d<>tecteur voie 3 ferme';exit
end else LabelInfo.caption:=' ';
i:=lignecliqueePN+1;
tablo_PN[i].voie[3].detZ1F:=act;
V2valide:=(EditZdet1V3F.text<>'');
NbVoies:=tablo_PN[i].NbVoies;
if V2Valide and (NbVoies=2) then tablo_PN[i].NbVoies:=3;
if not(V2Valide) then tablo_PN[i].NbVoies:=2;
s:=encode_act_PN(i);
RichPN.Lines[lignecliqueePN]:=s;
end;
end;
procedure TFormConfig.EditZdet2V3FChange(Sender: TObject);
var s : string;
act,erreur,NbVoies,i : integer;
V2valide : boolean;
begin
if clicliste then exit;
if affevt then affiche('Evt EditZdet2V3F Change',clyellow);
if FormConfig.PageControl.ActivePage=FormConfig.TabSheetAct then
with Formconfig do
begin
s:=EditZdet2V3F.Text;
Val(s,act,erreur);
if (erreur<>0) and (s<>'') then
begin
LabelInfo.caption:='Erreur adresse d<>tecteur voie 3 ferme';exit
end else LabelInfo.caption:=' ';
i:=lignecliqueePN+1;
tablo_PN[i].voie[3].detZ2F:=act;
V2valide:=(EditZdet2V3F.text<>'');
NbVoies:=tablo_PN[i].NbVoies;
if V2Valide and (NbVoies=2) then tablo_PN[i].NbVoies:=3;
if not(V2Valide) then tablo_PN[i].NbVoies:=2;
s:=encode_act_PN(i);
RichPN.Lines[lignecliqueePN]:=s;
end;
end;
procedure TFormConfig.EditZdet1V3OChange(Sender: TObject);
var s : string;
act,erreur,NbVoies,i : integer;
V2valide : boolean;
begin
if clicliste then exit;
if affevt then affiche('Evt EditZdet1V3O Change',clyellow);
if FormConfig.PageControl.ActivePage=FormConfig.TabSheetAct then
with Formconfig do
begin
s:=EditZdet1V3O.Text;
Val(s,act,erreur);
if (erreur<>0) and (s<>'') then
begin
LabelInfo.caption:='Erreur adresse d<>tecteur voie 3 ouvre';exit
end else LabelInfo.caption:=' ';
i:=lignecliqueePN+1;
tablo_PN[i].voie[3].detZ1O:=act;
V2valide:=(EditZdet1V3O.text<>'');
NbVoies:=tablo_PN[i].NbVoies;
if V2Valide and (NbVoies=2) then tablo_PN[i].NbVoies:=3;
if not(V2Valide) then tablo_PN[i].NbVoies:=2;
s:=encode_act_PN(i);
RichPN.Lines[lignecliqueePN]:=s;
end;
end;
procedure TFormConfig.EditZdet2V3OChange(Sender: TObject);
var s : string;
act,erreur,NbVoies,i : integer;
V2valide : boolean;
begin
if clicliste then exit;
if affevt then affiche('Evt EditZdet2V3O Change',clyellow);
if FormConfig.PageControl.ActivePage=FormConfig.TabSheetAct then
with Formconfig do
begin
s:=EditZdet2V3O.Text;
Val(s,act,erreur);
if (erreur<>0) and (s<>'') then
begin
LabelInfo.caption:='Erreur adresse d<>tecteur voie 3 ouvre';exit
end else LabelInfo.caption:=' ';
i:=lignecliqueePN+1;
tablo_PN[i].voie[3].detZ2O:=act;
V2valide:=(EditZdet2V3O.text<>'');
NbVoies:=tablo_PN[i].NbVoies;
if V2Valide and (NbVoies=2) then tablo_PN[i].NbVoies:=3;
if not(V2Valide) then tablo_PN[i].NbVoies:=2;
s:=encode_act_PN(i);
RichPN.Lines[lignecliqueePN]:=s;
end;
end;
procedure TFormConfig.EditZdet1V4FChange(Sender: TObject);
var s : string;
act,erreur,NbVoies,i : integer;
V2valide : boolean;
begin
if clicliste then exit;
if affevt then affiche('Evt EditZdet1V4F Change',clyellow);
if FormConfig.PageControl.ActivePage=FormConfig.TabSheetAct then
with Formconfig do
begin
s:=EditZdet1V4F.Text;
Val(s,act,erreur);
if (erreur<>0) and (s<>'') then
begin
LabelInfo.caption:='Erreur adresse d<>tecteur voie 4 ferme';exit
end else LabelInfo.caption:=' ';
i:=lignecliqueePN+1;
tablo_PN[i].voie[4].detZ1F:=act;
V2valide:=(EditZdet1V4F.text<>'');
NbVoies:=tablo_PN[i].NbVoies;
if V2Valide and (NbVoies=3) then tablo_PN[i].NbVoies:=4;
if not(V2Valide) then tablo_PN[i].NbVoies:=3;
s:=encode_act_PN(i);
RichPN.Lines[lignecliqueePN]:=s;
end;
end;
procedure TFormConfig.EditZdet1V5FChange(Sender: TObject);
var s : string;
act,erreur,NbVoies,i : integer;
V2valide : boolean;
begin
if clicliste then exit;
if affevt then affiche('Evt EditZdet1V5F Change',clyellow);
if FormConfig.PageControl.ActivePage=FormConfig.TabSheetAct then
with Formconfig do
begin
s:=EditZdet1V5F.Text;
Val(s,act,erreur);
if (erreur<>0) and (s<>'') then
begin
LabelInfo.caption:='Erreur adresse d<>tecteur voie 5 ferme';exit
end else LabelInfo.caption:=' ';
i:=lignecliqueePN+1;
tablo_PN[i].voie[5].detZ1F:=act;
V2valide:=(EditZdet1V5F.text<>'');
NbVoies:=tablo_PN[i].NbVoies;
if V2Valide and (NbVoies=4) then tablo_PN[i].NbVoies:=5;
if not(V2Valide) then tablo_PN[i].NbVoies:=4;
s:=encode_act_PN(i);
RichPN.Lines[lignecliqueePN]:=s;
end;
end;
procedure TFormConfig.EditZdet2V5FChange(Sender: TObject);
var s : string;
act,erreur,NbVoies,i : integer;
V2valide : boolean;
begin
if clicliste then exit;
if affevt then affiche('Evt EditZdet2V5F Change',clyellow);
if FormConfig.PageControl.ActivePage=FormConfig.TabSheetAct then
with Formconfig do
begin
s:=EditZdet2V5F.Text;
Val(s,act,erreur);
if (erreur<>0) and (s<>'') then
begin
LabelInfo.caption:='Erreur adresse d<>tecteur voie 5 ferme';exit
end else LabelInfo.caption:=' ';
i:=lignecliqueePN+1;
tablo_PN[i].voie[5].detZ2F:=act;
V2valide:=(EditZdet2V5F.text<>'');
NbVoies:=tablo_PN[i].NbVoies;
if V2Valide and (NbVoies=4) then tablo_PN[i].NbVoies:=5;
if not(V2Valide) then tablo_PN[i].NbVoies:=4;
s:=encode_act_PN(i);
RichPN.Lines[lignecliqueePN]:=s;
end;
end;
procedure TFormConfig.EditZdet1V4OChange(Sender: TObject);
var s : string;
act,erreur,NbVoies,i : integer;
V2valide : boolean;
begin
if clicliste then exit;
if affevt then affiche('Evt EditZdet1V4O Change',clyellow);
if FormConfig.PageControl.ActivePage=FormConfig.TabSheetAct then
with Formconfig do
begin
s:=EditZdet1V4O.Text;
Val(s,act,erreur);
if (erreur<>0) and (s<>'') then
begin
LabelInfo.caption:='Erreur adresse d<>tecteur voie 4 ouvre';exit
end else LabelInfo.caption:=' ';
i:=lignecliqueePN+1;
tablo_PN[i].voie[4].detZ1O:=act;
V2valide:=(EditZdet1V4O.text<>'');
NbVoies:=tablo_PN[i].NbVoies;
if V2Valide and (NbVoies=3) then tablo_PN[i].NbVoies:=4;
if not(V2Valide) then tablo_PN[i].NbVoies:=3;
s:=encode_act_PN(i);
RichPN.Lines[lignecliqueePN]:=s;
end;
end;
procedure TFormConfig.EditZdet1V5OChange(Sender: TObject);
var s : string;
act,erreur,NbVoies,i : integer;
V2valide : boolean;
begin
if clicliste then exit;
if affevt then affiche('Evt EditZdet1V5O Change',clyellow);
if FormConfig.PageControl.ActivePage=FormConfig.TabSheetAct then
with Formconfig do
begin
s:=EditZdet1V5O.Text;
Val(s,act,erreur);
if (erreur<>0) and (s<>'') then
begin
LabelInfo.caption:='Erreur adresse d<>tecteur voie 5 ouvre';exit
end else LabelInfo.caption:=' ';
i:=lignecliqueePN+1;
tablo_PN[i].voie[5].detZ1O:=act;
V2valide:=(EditZdet1V5O.text<>'');
NbVoies:=tablo_PN[i].NbVoies;
if V2Valide and (NbVoies=4) then tablo_PN[i].NbVoies:=5;
if not(V2Valide) then tablo_PN[i].NbVoies:=4;
s:=encode_act_PN(i);
RichPN.Lines[lignecliqueePN]:=s;
end;
end;
procedure TFormConfig.EditZdet2V4OChange(Sender: TObject);
var s : string;
act,erreur,NbVoies,i : integer;
V2valide : boolean;
begin
if clicliste then exit;
if affevt then affiche('Evt EditZdet2V4O Change',clyellow);
if FormConfig.PageControl.ActivePage=FormConfig.TabSheetAct then
with Formconfig do
begin
s:=EditZdet2V4O.Text;
Val(s,act,erreur);
if (erreur<>0) and (s<>'') then
begin
LabelInfo.caption:='Erreur adresse d<>tecteur voie 4 ouvre';exit
end else LabelInfo.caption:=' ';
i:=lignecliqueePN+1;
tablo_PN[i].voie[4].detZ2O:=act;
V2valide:=(EditZdet2V4O.text<>'');
NbVoies:=tablo_PN[i].NbVoies;
if V2Valide and (NbVoies=3) then tablo_PN[i].NbVoies:=4;
if not(V2Valide) then tablo_PN[i].NbVoies:=3;
s:=encode_act_PN(i);
RichPN.Lines[lignecliqueePN]:=s;
end;
end;
procedure TFormConfig.EditZdet2V5OChange(Sender: TObject);
var s : string;
act,erreur,NbVoies,i : integer;
V2valide : boolean;
begin
if clicliste then exit;
if affevt then affiche('Evt EditZdet2V5O Change',clyellow);
if FormConfig.PageControl.ActivePage=FormConfig.TabSheetAct then
with Formconfig do
begin
s:=EditZdet2V5O.Text;
Val(s,act,erreur);
if (erreur<>0) and (s<>'') then
begin
LabelInfo.caption:='Erreur adresse d<>tecteur voie 5 ouvre';exit
end else LabelInfo.caption:=' ';
i:=lignecliqueePN+1;
tablo_PN[i].voie[5].detZ2O:=act;
V2valide:=(EditZdet2V5O.text<>'');
NbVoies:=tablo_PN[i].NbVoies;
if V2Valide and (NbVoies=4) then tablo_PN[i].NbVoies:=5;
if not(V2Valide) then tablo_PN[i].NbVoies:=4;
s:=encode_act_PN(i);
RichPN.Lines[lignecliqueePN]:=s;
end;
end;
procedure TFormConfig.Button1Click(Sender: TObject);
var adr,cmd,erreur : integer;
ts : Taccessoire;
begin
val(editAdrFerme.Text,adr,erreur);if erreur<>0 then exit;
val(editCmdFerme.Text,cmd,erreur);if erreur<>0 then exit;
if ligneCliqueePN=-1 then exit;
aff_acc:=true;
if Tablo_PN[ligneCliqueePN+1].pulse=1 then ts:=aigP else ts:=feu;
pilote_acc(adr,cmd,ts);
aff_acc:=false;
end;
procedure TFormConfig.Button3Click(Sender: TObject);
var adr,cmd,erreur : integer;
ts : Taccessoire;
begin
val(editAdrOuvre.Text,adr,erreur);if erreur<>0 then exit;
val(editCdeOuvre.Text,cmd,erreur);if erreur<>0 then exit;
if ligneCliqueePN=-1 then exit;
aff_acc:=true;
if Tablo_PN[ligneCliqueePN+1].pulse=1 then ts:=aigP else ts:=feu;
pilote_acc(adr,cmd,ts);
aff_acc:=false;
end;
procedure TFormConfig.CheckPnPulseClick(Sender: TObject);
var i : integer;
s : string;
begin
if clicliste then exit;
if affevt then affiche('Evt CheckPnPulse Change',clyellow);
if FormConfig.PageControl.ActivePage=FormConfig.TabSheetAct then
with Formconfig do
begin
if CheckPnPulse.Checked then i:=1 else i:=0;
tablo_PN[lignecliqueePN+1].Pulse:=i;
s:=encode_act_PN(lignecliqueePN+1);
RichPN.Lines[lignecliqueePN]:=s;
end;
end;
procedure TFormConfig.CheckFVCClick(Sender: TObject);
var s : string;
begin
if clicliste or (ligneClicSig<0) then exit;
if affevt then Affiche('Evt FVC',clOrange);
if FormConfig.PageControl.ActivePage=FormConfig.TabSheetSig then
begin
feux[ligneClicSig+1].checkFV:=checkFVC.Checked;
s:=encode_sig_feux(ligneClicSig+1);
RichSig.Lines[ligneClicSig]:=s;
feux[ligneClicSig+1].modifie:=true;
end;
end;
procedure TFormConfig.CheckFRCClick(Sender: TObject);
var s : string;
begin
if clicliste or (ligneClicSig<0) then exit;
if affevt then Affiche('Evt FRC',clOrange);
if FormConfig.PageControl.ActivePage=FormConfig.TabSheetSig then
begin
feux[ligneClicSig+1].checkFR:=checkFRC.Checked;
s:=encode_sig_feux(ligneClicSig+1);
RichSig.Lines[ligneClicSig]:=s;
feux[ligneClicSig+1].modifie:=true;
end;
end;
procedure TFormConfig.ButtonEnvClick(Sender: TObject);
begin
init_dccpp;
end;
procedure TFormConfig.EditBaseChange(Sender: TObject);
var erreur : integer;
begin
val(EditBase.Text,AdrBaseDetDccpp,erreur);
if (AdrBaseDetDccpp<0) or (AdrBaseDetDccpp>2048) then
begin
AdrBaseDetDccpp:=513;
EditBase.Text:='513';
end;
end;
procedure TFormConfig.RichCdeDccppChange(Sender: TObject);
var i,maxi : integer;
begin
maxi:=RichCdeDCCpp.Lines.count;
if maxi>MaxCdeDccpp then maxi:=MaxCdeDccpp;
for i:=1 to maxi do
begin
CdeDccpp[i]:=RichCdeDccpp.Lines[i-1];
end;
end;
procedure TFormConfig.CheckEnvAigDccppClick(Sender: TObject);
begin
if CheckEnvAigDccpp.checked then EnvAigDccpp:=1 else EnvAigDccpp:=0;
end;
procedure clicListeTrains(index : integer);
begin
if index<1 then exit;
if Trains[index].nom_train='' then exit;
with formconfig do
begin
editNomTrain.text:=Trains[index].nom_train;
editAdresseTrain.Text:=intToSTR(trains[index].adresse);
editVitesseMaxi.Text:=intToSTR(trains[index].vitmax);
editVitRalenti.Text:=IntToSTR(trains[index].Vitralenti);
editvitnom.text:=IntToSTR(trains[index].VitNominale);
end;
end;
procedure TFormConfig.RichEditTrainsMouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var j : integer;
s : string;
begin
//affiche('RichEditTrainChange',clyellow);
clicListe:=true;
AncligneclicTrain:=ligneclicTrain;
with richeditTrains do
begin
j:=Selstart;
RE_ColorLine(Formconfig.richeditTrains,ligneclicTrain,ClAqua);
ligneclicTrain:=Perform(EM_LINEFROMCHAR,j,0); // num<75>ro de la lign<67>e cliqu<71>e
end;
//Affiche(intToSTR(lc),clyellow);
if ligneclicTrain+1>ntrains then
begin
ligneclicTrain:=ntrains-1;
end;
s:=RichEditTrains.Lines[ligneclicTrain];
if s='' then exit;
RE_ColorLine(Formconfig.richeditTrains,ligneclicTrain,ClYellow);
clicListeTrains(ligneclicTrain+1);
clicliste:=false;
end;
procedure TFormConfig.EditNomTrainChange(Sender: TObject);
var i : integer;
begin
if clicliste then exit;
if affevt then affiche('Evt change nom train',clyellow);
if (ligneclicTrain<0) or (ligneclicTrain>=ntrains) or (ntrains<1) then exit;
if FormConfig.PageControl.ActivePage=FormConfig.TabSheetTrains then
RE_ColorLine(RichEditTrains,ligneclicTrain,ClYellow);
trains[ligneclicTrain+1].Nom_train:=EditNomTrain.text;
RichEditTrains.Lines[ligneclicTrain]:=Train_tablo(ligneclicTrain+1);
i:=formprinc.ComboTrains.ItemIndex;
if i<0 then exit;
formprinc.ComboTrains.Items[ligneclicTrain]:=EditNomTrain.text;
if i=ligneclicTrain then formprinc.ComboTrains.Text:=EditNomTrain.text;
end;
procedure TFormConfig.EditAdresseTrainChange(Sender: TObject);
var erreur :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;
if FormConfig.PageControl.ActivePage=FormConfig.TabSheetTrains then
RE_ColorLine(RichEditTrains,ligneclicTrain,ClYellow);
val(EditAdresseTrain.text,trains[ligneclicTrain+1].adresse,erreur);
formconfig.RichEditTrains.Lines[ligneclicTrain]:=Train_tablo(ligneclicTrain+1);
end;
procedure TFormConfig.EditVitesseMaxiChange(Sender: TObject);
var erreur :integer;
begin
if clicliste then exit;
if affevt then affiche('Evt change adresse train',clyellow);
if (ligneclicTrain<0) or (ntrains>=ntrains) or (ntrains<1) then exit;
if FormConfig.PageControl.ActivePage=FormConfig.TabSheetTrains then
RE_ColorLine(RichEditTrains,ligneclicTrain,ClYellow);
val(EditVitesseMaxi.text,trains[ligneclicTrain+1].vitmax,erreur);
formconfig.RichEditTrains.Lines[ligneclicTrain]:=Train_tablo(ligneclicTrain+1);
end;
procedure TFormConfig.EditVitNomChange(Sender: TObject);
var erreur : integer;
begin
if clicliste then exit;
if affevt then affiche('Evt change vitesse nominale train',clyellow);
if (ligneclicTrain<0) or (ligneclicTrain>=ntrains) or (ntrains<1) then exit;
if FormConfig.PageControl.ActivePage=FormConfig.TabSheetTrains then
with Formconfig do
begin
RE_ColorLine(RichEditTrains,ligneclicTrain,ClYellow);
val(EditVitNom.text,trains[ligneclicTrain+1].vitNominale,erreur);
formconfig.RichEditTrains.Lines[ligneclicTrain]:=Train_tablo(ligneclicTrain+1);
end;
end;
procedure TFormConfig.EditVitRalentiChange(Sender: TObject);
var erreur : integer;
begin
if clicliste then exit;
if affevt then affiche('Evt change vitesse ralenti train',clyellow);
if (ligneclicTrain<0) or (ligneclicTrain>=ntrains) then exit;
if FormConfig.PageControl.ActivePage=FormConfig.TabSheetTrains then
with Formconfig do
begin
RE_ColorLine(RichEditTrains,ligneclicTrain,ClYellow);
val(EditVitRalenti.text,trains[ligneclicTrain+1].vitRalenti,erreur);
formconfig.RichEditTrains.Lines[ligneclicTrain]:=Train_tablo(ligneclicTrain+1);
end;
end;
procedure TFormConfig.ButtonNTClick(Sender: TObject);
begin
if nTrains>=Max_Trains then exit;
clicListe:=true;
inc(nTrains);
trains[ntrains].nom_train:='train';
trains[ntrains].adresse:=99;
trains[ntrains].VitNominale:=60;
trains[ntrains].VitRalenti:=40;
trains[ntrains].vitmax:=120;
clicListeTrains(ntrains);
RE_ColorLine(Formconfig.richeditTrains,ligneclicTrain,ClAqua);
ligneclicTrain:=ntrains-1;
RE_ColorLine(Formconfig.richeditTrains,ligneclicTrain,ClYellow);
formconfig.RichEditTrains.Lines.Add(Train_tablo(ntrains));
with formconfig.richEdittrains do
begin
SetFocus;
Selstart:=RichEdittrains.GetTextLen-1;
Perform(EM_SCROLLCARET,0,0);
end;
clicListe:=false;
end;
// supprime le ou les train s<>lectionn<6E>s dans le richEdit
procedure supprime_train;
var ligneDeb,LigneFin,i,debut,longueur,fin,l,ltot : integer;
s : string;
begin
//trouver ligne de d<>but et de fin s<>lectionn<6E>es.
with formConfig do
begin
debut:=RichEditTrains.SelStart;
longueur:=RichEditTrains.SelLength;
end;
fin:=debut+longueur;
//Affiche(inttostr(debut)+' '+inttostr(longueur),clorange);
// trouver les lignes s<>lectionn<6E>es
i:=0;ltot:=0;ligneDeb:=0;LigneFin:=0;
repeat
l:=length(FormConfig.RichEditTrains.lines[i])+2; //+2 car CR LF
ltot:=ltot+l;
if (debut<ltot) and (ligneDeb=0) then ligneDeb:=i+1;
if (ltot>=fin) and (ligneFin=0) and (ligneDeb<>0) then ligneFin:=i+1;
//if (ltot=fin) and (ligneFin=0) then ligneFin:=i;
inc(i);
until (ltot>=fin);
if lignefin>nTrains then lignefin:=nTrains;
if ligneDeb=0 then begin ligneDeb:=ligneclictrain+1;ligneFin:=ligneclictrain+1;end;
if (lignedeb<1) or (lignefin<1) or (lignefin>ntrains) then exit;
//Affiche(inttostr(Lignedeb)+' '+inttostr(LigneFin),clyellow);
if ligneDeb=LigneFin then s:='Voulez-vous supprimer le train '+trains[lignedeb].nom_train+'?'
else s:='Voulez-vous supprimer les trains de '+
trains[lignedeb].nom_train+' <20> '+trains[lignefin].nom_train+' ?';
if Application.MessageBox(pchar(s),pchar('confirm'), MB_YESNO or MB_DEFBUTTON2 or MB_ICONQUESTION)=idNo then exit;
clicliste:=true;
index:=ligneDeb;
if ligneDeb=LigneFin then s:='Suppression du train '+trains[index].nom_train
else s:='Suppression des trains de '+
trains[ligneDeb].nom_train+' <20> '+trains[ligneFin].nom_train;
Affiche(s,clOrange);
for i:=lignedeb to lignefin do
begin
Affiche('Suppression du train '+trains[i].nom_train+' @'+intToSTR(trains[i].Adresse),clorange);
end;
for i:=1 to ntrains-ligneFin do
begin
index:=i+lignefin; //index de remplacement
trains[lignedeb+i-1]:=trains[index];
trains[index].Adresse:=0;
trains[index].nom_train:='';
trains[index].vitmax:=0;
end;
ntrains:=ntrains-(ligneFin-LigneDeb)-1;
config_modifie:=true;
FormConfig.RichEdittrains.Clear;
// r<>afficher le richsig
for i:=1 to ntrains do
begin
s:=trains[i].nom_train+','+inttostr(trains[i].adresse)+','+intToSTR(trains[i].vitmax);
if s<>'' then
begin
FormConfig.RicheditTrains.Lines.Add(s);
RE_ColorLine(FormConfig.RicheditTrains,FormConfig.RicheditTrains.lines.count-1,ClAqua);
end;
end;
With FormConfig.RicheditTrains do
begin
SelStart:=0;
Perform(EM_SCROLLCARET,0,0);
end;
ligneclicTrain:=-1;
clicliste:=false;
end;
procedure TFormConfig.ButtonSupprimeClick(Sender: TObject);
begin
supprime_train;
end;
procedure TFormConfig.CheckBoxVerifXpressNetClick(Sender: TObject);
begin
if CheckBoxVerifXpressNet.checked then Verif_AdrXpressNet:=1 else Verif_AdrXpressNet:=0;
end;
procedure TFormConfig.RichActKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
var lc,curseur,i : integer;
begin
if key=VK_delete then supprime_act;
if ord(Key)=VK_UP then
begin
if clicListe then exit;
clicListe:=true;
if affevt then affiche('Evt RichAct keyup',clyellow);
with Formconfig.RichAct do
begin
i:=Selstart;
lc:=Perform(EM_LINEFROMCHAR,i,0); // num<75>ro de la lign<67>e cliqu<71>e
if lc>0 then
begin
dec(lc);
AncligneClicAct:=ligneClicAct;
ligneClicAct:=lc;
curseur:=SelStart; // position initiale du curseur
if AncligneClicAct<>ligneClicAct then
begin
if AncligneClicAct<>-1 then
begin
RE_ColorLine(RichAct,AncligneClicAct,ClAqua);
end;
RE_ColorLine(RichAct,ligneClicAct,ClYellow);
selStart:=curseur; // remettre le curseur en position initiale
aff_champs_Act(lc+1);
end;
end;
end;
end;
if ord(Key)=VK_DOWN then
begin
if clicListe then exit;
clicListe:=true;
if affevt then affiche('Evt RichAct keydown',clyellow);
with Formconfig.RichAct do
begin
i:=Selstart;
lc:=Perform(EM_LINEFROMCHAR,i,0); // num<75>ro de la lign<67>e cliqu<71>e
if lc<maxTablo_act-1 then
begin
inc(lc);
AncligneClicAct:=ligneClicAct;
ligneClicAct:=lc;
curseur:=SelStart; // position initiale du curseur
if AncligneClicAct<>ligneClicAct then
begin
if AncligneClicAct<>-1 then
begin
RE_ColorLine(RichAct,AncligneClicAct,ClAqua);
end;
RE_ColorLine(RichAct,ligneClicAct,ClYellow);
selStart:=curseur; // remettre le curseur en position initiale
aff_champs_Act(lc+1);
end;
end;
end;
end;
clicListe:=false;
end;
procedure TFormConfig.RichPNKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
var lc,curseur,i : integer;
begin
if ord(Key)=VK_DELETE then supprime_pn;
if ord(Key)=VK_UP then
begin
if clicListe then exit;
clicListe:=true;
if affevt then affiche('Evt RichPN keyup',clyellow);
with Formconfig.RichPN do
begin
i:=Selstart;
lc:=Perform(EM_LINEFROMCHAR,i,0); // num<75>ro de la lign<67>e cliqu<71>e
if lc>0 then
begin
dec(lc);
AncLigneCliqueePN:=LigneCliqueePN;
LigneCliqueePN:=lc;
curseur:=SelStart; // position initiale du curseur
if AncLigneCliqueePN<>LigneCliqueePN then
begin
if AncLigneCliqueePN<>-1 then
begin
RE_ColorLine(RichPN,AncLigneCliqueePN,ClAqua);
end;
RE_ColorLine(RichPN,LigneCliqueePN,ClYellow);
selStart:=curseur; // remettre le curseur en position initiale
aff_champs_PN(lc+1);
end;
end;
end;
end;
if ord(Key)=VK_DOWN then
begin
if clicListe then exit;
clicListe:=true;
if affevt then affiche('Evt RichPN keydown',clyellow);
with Formconfig.RichPN do
begin
i:=Selstart;
lc:=Perform(EM_LINEFROMCHAR,i,0); // num<75>ro de la lign<67>e cliqu<71>e
if lc<NbrePN-1 then
begin
inc(lc);
AncLigneCliqueePN:=LigneCliqueePN;
LigneCliqueePN:=lc;
curseur:=SelStart; // position initiale du curseur
if AncLigneCliqueePN<>LigneCliqueePN then
begin
if AncLigneCliqueePN<>-1 then
begin
RE_ColorLine(RichPN,AncLigneCliqueePN,ClAqua);
end;
RE_ColorLine(RichPN,LigneCliqueePN,ClYellow);
selStart:=curseur; // remettre le curseur en position initiale
aff_champs_PN(lc+1);
end;
end;
end;
end;
clicListe:=false;
end;
procedure TFormConfig.RichEditTrainsKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
var lc,curseur,i : integer;
begin
if ord(key)=VK_DELETE then supprime_train;
if ord(Key)=VK_UP then
begin
if clicListe then exit;
clicListe:=true;
if affevt then affiche('Evt RichEditTrains keyup',clyellow);
with Formconfig.RichEditTrains do
begin
i:=Selstart;
lc:=Perform(EM_LINEFROMCHAR,i,0); // num<75>ro de la lign<67>e cliqu<71>e
if lc>0 then
begin
dec(lc);
AncligneclicTrain:=ligneclicTrain;
ligneclicTrain:=lc;
curseur:=SelStart; // position initiale du curseur
if AncligneclicTrain<>ligneclicTrain then
begin
if AncligneclicTrain<>-1 then
begin
RE_ColorLine(RichEditTrains,AncligneclicTrain,ClAqua);
end;
RE_ColorLine(RichEditTrains,ligneclicTrain,ClYellow);
selStart:=curseur; // remettre le curseur en position initiale
clicListeTrains(lc+1);
end;
end;
end;
end;
if ord(Key)=VK_DOWN then
begin
if clicListe then exit;
clicListe:=true;
if affevt then affiche('Evt RichEditTrains keydown',clyellow);
with Formconfig.RichEditTrains do
begin
i:=Selstart;
lc:=Perform(EM_LINEFROMCHAR,i,0); // num<75>ro de la lign<67>e cliqu<71>e
if lc<ntrains-1 then
begin
inc(lc);
AncligneclicTrain:=ligneclicTrain;
ligneclicTrain:=lc;
curseur:=SelStart; // position initiale du curseur
if AncligneclicTrain<>ligneclicTrain then
begin
if AncligneclicTrain<>-1 then
begin
RE_ColorLine(RichEditTrains,AncligneclicTrain,ClAqua);
end;
RE_ColorLine(RichEditTrains,ligneclicTrain,ClYellow);
selStart:=curseur; // remettre le curseur en position initiale
clicListeTrains(lc+1);
end;
end;
end;
end;
clicListe:=false;
end;
procedure TFormConfig.ButtonPFCDMClick(Sender: TObject);
var i : integer;
s : string;
r : boolean;
begin
i:=verifie_regle;
if i=0 then
begin
r:=cree_regle;
if r then
begin
s:='La r<>gle d''autorisation CDM rail a <20>t<EFBFBD> ajout<75>e dans le pare-feu ';
Affiche(s,clyellow);
i:=verifie_regle;
end;
end;
if i=0 then s:='La r<>gle d''autorisation CDM rail n''a pas <20>t<EFBFBD> trouv<75>e dans le pare-feu ';
if i=1 then s:='La r<>gle d''autorisation CDM rail a <20>t<EFBFBD> trouv<75>e dans le pare-feu mais elle est d<>sactiv<69>e';
if i=2 then s:='La r<>gle d''autorisation CDM rail a <20>t<EFBFBD> trouv<75>e dans le pare-feu et elle est activ<69>e';
Affiche(s,clyellow);
formconfig.Labelinfo.caption:=s;
activecontrol:=nil;
end;
procedure TFormConfig.EditLAYChange(Sender: TObject);
var s : string;
begin
if clicListe then exit;
if not(Affiche_avert) then
begin
Affiche_avert:=true;
s:='Pour que cette fonction soit op<6F>rationnelle, dans CDM Rail, il faut charger votre r<>seau, puis "d<>finir le r<>seau actuel comme ';
s:=s+'r<>seau de d<>marrage" puis le d<>valider';
LabelInfo.caption:=s;
end;
end;
procedure TFormConfig.EditLAYExit(Sender: TObject);
begin
Affiche_avert:=false;
LabelInfo.caption:='';
end;
end.
Reference in New Issue View Git Blame Copy Permalink