Discussion :

[shell13010]

Bonsoir a tous et a toute,

J'aimerais savoir comment faire pour que a chaque clique sur un tbouton m'affiche dans mon Tedit 1,2,3,4 etc... jusqu'a 50

je serais le faire avec plusieur tbouton mais je pense qu'il y a une meilleur solution a mon probleme

merci d'avance pour votre aide.

[neodelphi2007]

Si tu veut une séquence de [1,2,3,4,5...]
voici ce que je te propose:

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
     ButtonValue : integer = 0;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
     if ButtonValue<50
     then begin
          Inc(ButtonValue);
          if ButtonValue=1
          then Edit1.Text:=IntToStr(ButtonValue)
          else Edit1.Text:=Edit1.Text+','+IntToStr(ButtonValue);
          end;
 
end;

[Duan]

Je ne sais pas si j'ai bien compris mais essaie ce code:

Code :

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

1
2
3
4
5
6
7
8
9
10
procedure TForm1.FormCreate(Sender: TObject);
  begin
    edit1.Text:='0';
  end;
 
procedure TForm1.Button1Click(Sender: TObject);
  begin
    if (strtoint(edit1.Text)<1)or (strtoint(edit1.Text)>49) then edit1.Text:='0';
    edit1.Text:= Inttostr(StrToInt(edit1.Text)+1);
  end;

À 50, le TEdit reprend à 0

Duan

[shell13010]

et merci bien j'y avais pas penser

[cincap]

Bonjour à toutes et à tous,

@ Shell13010, et ceci aussi :

Code :

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

1
2
3
4
5
6
7
8
9
 
var
   Test: TTest;
 
    BtInc : integer = 1;
 
implementation
 
{$R *.DFM}

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
procedure TTest.FormCreate(Sender: TObject);
begin
 
edit1.Text:='1';
 
end;
 
procedure TTest.BincrementeClick(Sender: TObject);
begin
  Edit1.Text := IntToStr(BtInc+1);
  BtInc := (BtInc+1) mod 50;
end;

@+,

Cincap

[shell13010]

merci cincap c'est encore plus simple a comprendre