passage de parametre dans un memo origine MaGIC 7.1

Question

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ExtCtrls;

type
  TForm1 = class(TForm)
    a: TEdit;
    b: TEdit;
    emul: TMemo;
    la: TButton;
    c: TEdit;
    d: TEdit;
    Timer1: TTimer;
    Label1: TLabel;
    Label2: TLabel;
    Button1: TButton;
    Label3: TLabel;
    ordre: TEdit;
    ctr: TEdit;
    procedure LAUCH(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure ARMED(Sender: TObject);

  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;

var
  Form1: TForm1;
  var nom : string;
  var param: string;
  var init : string;
  var vide : integer;
  var par1 : integer;


implementation
      uses Right_Left_VB;

//PARAM

{$R *.dfm}

procedure TForm1.ARMED(Sender: TObject);
begin
Label2.caption := Left_HiA(init,1);
label3.Caption := Right_HiA(init,1);
IF param ='ARMED' then
BEGIN
IF label3.caption='4' THEN ordre.text:='check' ;
END;
END;
 //declenche dans l initializion


procedure TForm1.FormCreate(Sender: TObject);
begin
vide := 6;
end;

procedure TForm1.LAUCH(Sender: TObject);
  var val:string;

begin

param:=a.text;
init:=d.text;

timer1.enabled := true;
label1.Caption := d.text;

if param='param' then
begin
param:='ARMED';
nom:=b.text;
end;
IF init='init' then
begin
val:=INIT;
 //INITIALATION DE LA CHAINE  INIT


   //label3.caption := Left_HiA('3',StrToInt(c.Text));
  // EDIT2.TEXT := Right_HiA(EDIT1.TEXT,StrToInt(init);
   end;


//;passage

emul.text:='Dim ' + nom +':'+ 'INIT'+ init;
Label2.caption := Left_HiA(init,3);
//val:=INIT;thimechaine alogri
end;

procedure TForm1.Timer1Timer(Sender: TObject);
   var un, deux : string;
begin
 if vide >=3 then vide := 1;
          un := '';
          deux := '';
          un := copy(label1.caption,1,1);
          deux := copy(label1.caption,2,length(label1.caption));

          if vide = 1 then
          begin
          label1.Caption := deux +' '+un ;
          vide := 2;
          end
          else
    label1.Caption := deux + un ;
end;

end.

bdxpro · Answer

[^^sad1][^^sad1]

Caribensila · Answer

C'est vrai que c'est triste.

 

C'est pour ça que je préfère les BD. 
C'est plus rigolo !

korgis · Answer

La luminothérapie. 
Ne rigolez pas, enfin je veux dire... croyez-moi, c'est radical contre la dépression saisonnière.

Passage de parametre dans un memo origine MaGIC 7.1

3 réponses

Votre réponse

Discussions similaires