Initial commit with my code directory

code_JMW/UnitRelais.pas

@@ -0,0 +1,32 @@
+unit UnitRelais;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, StdCtrls, ExtCtrls, UInit,Unit1;
+
+type
+  TF_Relais = class(TForm)
+    Label1: TLabel;
+    LabeledEdit1: TLabeledEdit;
+    procedure FormClose(Sender: TObject; var Action: TCloseAction);
+  private
+    { D<>clarations priv<69>es }
+  public
+    { D<>clarations publiques }
+  end;
+
+var
+  F_Relais: TF_Relais;
+
+implementation
+
+{$R *.dfm}
+
+procedure TF_Relais.FormClose(Sender: TObject; var Action: TCloseAction);
+begin
+  L_Relais[NumeroEnCours].nom:=LabeledEdit1.Text;
+end;
+
+end.