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

5
UnitAnalyseSegCDM.pas
View File

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