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

V8.5

Browse Source
This commit is contained in:
f1iwq2
2024-02-24 10:32:19 +01:00
parent c116b8c933
commit 315b803e40
21 changed files with 1946 additions and 2000 deletions
Download Patch File Download Diff File Expand all files Collapse all files

50
Unitplace.pas
View File

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