passage de parametre dans un memo origine MaGIC 7.1

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.

C'est vrai que c'est triste.



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

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