Discussion :

[jeng37]

Bonjour,

J' aimerais tester une valeur, si elle a incrémentée ou décrémentée.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
procedure TMiniDOForm.SpinBoxChange(Sender: TObject);
Var X: Integer;
begin
         X := Round(SpinBox1.Value);  
 
         si   X inc alors     
                Memo1.Lines.Insert(0,'PortUp');
          si  X dec alors      
                Memo1.Lines.Insert(0,'PortDown');
 
end;

Je n´ai pas de plan..

[Roland Chastain]

Bonsoir ! Comme ça, non ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
var
  XGlobal: Integer;
 
procedure TMiniDOForm.SpinBoxChange(Sender: TObject);
var
  XLocal: Integer;
begin
  XLocal := Round(SpinBox1.Value);  
 
  if XLocal > XGlobal then     
    Memo1.Lines.Insert(0, 'PortUp')
  else if XLocal < XGlobal then  
    Memo1.Lines.Insert(0, 'PortDown');
 
  XGlobal := XLocal;
end;

Ou alors j'ai mal compris ?

[jeng37]

Bonsoir ! Comme ça, non ?

Non, c´est clairement pas comme ca, juste pour faire visualiser ce que je voulais faire.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
var
  XGlobal: Integer;
 
procedure TMiniDOForm.SpinBoxChange(Sender: TObject);
var
  XLocal: Integer;
begin
  XLocal := Round(SpinBox1.Value);  
 
  if XLocal > XGlobal then     
    Memo1.Lines.Insert(0, 'PortUp')
  else if XLocal < XGlobal then  
    Memo1.Lines.Insert(0, 'PortDown');
 
  XGlobal := XLocal;
end;

Ou alors j'ai mal compris ?

Non la solution et parfaite!

Merci beaucoup!