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

V9.7

Browse Source 
V9.7
This commit is contained in:
f1iwq2
2024-12-20 12:17:29 +01:00
parent 087351ecd3
commit 02eccff67e
21 changed files with 2056 additions and 1395 deletions
Download Patch File Download Diff File Expand all files Collapse all files

23
UnitIntro.pas
View File

@@ -9,8 +9,11 @@ uses
type
TFormIntro = class(TForm)
LabeledEditDetAig: TLabeledEdit;
ButtonTrouver: TButton;
procedure ButtonTrouverClick(Sender: TObject);
ButtonTrCanton: TButton;
LabeledEditCanton: TLabeledEdit;
ButtonTrDet: TButton;
procedure ButtonTrCantonClick(Sender: TObject);
procedure ButtonTrDetClick(Sender: TObject);
private
{ Déclarations privées }
public
@@ -19,17 +22,23 @@ type
var
FormIntro: TFormIntro;
Achercher : integer;
AchercherDet,AchercherCanton : integer;
implementation
{$R *.dfm}
procedure TFormIntro.ButtonTrouverClick(Sender: TObject);
var i,erreur : integer;
procedure TFormIntro.ButtonTrCantonClick(Sender: TObject);
var erreur : integer;
begin
val(LabeledEditDetAig.text,i,erreur);
Achercher:=i;
val(LabeledEditCanton.text,Acherchercanton,erreur);
close;
end;
procedure TFormIntro.ButtonTrDetClick(Sender: TObject);
var erreur : integer;
begin
val(LabeledEditDetAig.text,AchercherDet,erreur);
close;
end;