IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Langage Delphi Discussion :

boucle jusqu'a arrêt par un bouton


Sujet :

Langage Delphi

  1. #1
    Membre actif
    Homme Profil pro
    aux études mais 40 ans
    Inscrit en
    juin 2004
    Messages
    1 895
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Belgique

    Informations professionnelles :
    Activité : aux études mais 40 ans

    Informations forums :
    Inscription : juin 2004
    Messages : 1 895
    Points : 279
    Points
    279
    Par défaut boucle jusqu'a arrêt par un bouton
    Hello,
    Je voudrais executer une série de choses jusqu'a ce que l'user presse un boutton, je crois que je dois utiliser while mais je ne sais pas trop comment quelqu'un peut il m'aider ?

  2. #2
    Rédacteur
    Avatar de evarisnea
    Homme Profil pro
    Ingénieur intégration
    Inscrit en
    juin 2005
    Messages
    1 957
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Cameroun

    Informations professionnelles :
    Activité : Ingénieur intégration
    Secteur : Transports

    Informations forums :
    Inscription : juin 2005
    Messages : 1 957
    Points : 4 381
    Points
    4 381
    Par défaut
    salut,
    tu peux utiliser une boucle while ... do pour ton traitement, dans cette boucle tu testes la valeur d'une variable de niveau feuille, laquelle variable sera assignée à une valeur X lorsque tu cliqueras sur ton bouton.
    exemple:
    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
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
    37
    38
    39
    40
    41
    42
    43
    44
    45
    46
    47
    48
    49
    unit Unit1;
     
    interface
     
    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, StdCtrls;
     
    type
      TForm1 = class(TForm)
        Button1: TButton;
        Button2: TButton;
        procedure Button1Click(Sender: TObject);
        procedure Button2Click(Sender: TObject);
      private
        { Déclarations privées }
      public
        { Déclarations publiques }
      end;
     
    var
      Form1: TForm1;
      Arret: Boolean;//variable test
     
    implementation
     
    {$R *.dfm}
     
    procedure TForm1.Button1Click(Sender: TObject);
    begin
    	//initialise la variable arret
      Arret := False;
    	//boucle tant que la variable Arret n'est pas vraie
      while not Arret do
      begin
      	//traitement ici ...
      	Application.ProcessMessages(); //traite les messages dans la file d'attente
      end;
      //notification de fin
      ShowMessage('Fin de procédure !');
    end;
     
    procedure TForm1.Button2Click(Sender: TObject);
    begin
    	//arrete la procédure lancée
      Arret := True;
    end;
     
    end.
    Button1 lance un traitement qui est arrêté par Button2

  3. #3
    Expert éminent sénior

    Avatar de sjrd
    Homme Profil pro
    Directeur de projet
    Inscrit en
    juin 2004
    Messages
    4 517
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 32
    Localisation : Suisse

    Informations professionnelles :
    Activité : Directeur de projet
    Secteur : Enseignement

    Informations forums :
    Inscription : juin 2004
    Messages : 4 517
    Points : 10 144
    Points
    10 144
    Par défaut
    Ca peut fonctionner... Mais il serait ô combien plus judicieux d'utiliser un thread
    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
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
    37
    38
    39
    40
    41
    42
    43
    44
    45
    46
    47
    48
    49
    50
    51
    52
    53
    54
    55
    56
    57
    58
    59
    60
    61
    62
    63
    64
    65
    66
    67
    68
    69
    70
    71
    72
    73
    74
    75
    76
    77
    78
    79
    80
    81
    82
    83
    84
    85
    86
    87
    88
    unit Unit1;
     
    interface
     
    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, StdCtrls;
     
    type
      TTache = class(TThread)
      protected
        procedure Execute; override;
      public
        constructor Create(AOnTerminate : TNotifyEvent);
      end;
     
      TForm1 = class(TForm)
        Button1: TButton;
        Button2: TButton;
        procedure FormCreate(Sender: TObject);
        procedure FormDestroy(Sender: TObject);
        procedure Button1Click(Sender: TObject);
        procedure Button2Click(Sender: TObject);
        procedure TacheTerminated(Sender: TObject);
      private
        { Déclarations privées }
        Tache : TTache;
      public
        { Déclarations publiques }
      end;
     
    var
      Form1: TForm1;
     
    implementation
     
    {$R *.dfm}
     
    constructor TTache.Create(AOnTerminate : TNotifyEvent);
    begin
      inherited Create(True);
      OnTerminate := AOnTerminate;
      FreeOnTerminate := True;
      Resume;
    end;
     
    procedure TTache.Execute;
    begin
      while not Terminated do
      begin
        // Ton traitement
      end;
    end;
     
    procedure TForm1.FormCreate(Sender: TObject);
    begin
      Tache := nil;
    end;
     
    procedure TForm1.FormDestroy(Sender: TObject);
    begin
      if Assigned(Tache) then
      begin
        Tache.Terminate;
        while Assigned(Tache) do
          Sleep(10); // Pour attendre que le thread se termine
      end;
    end;
     
    procedure TForm1.Button1Click(Sender: TObject);
    begin
      if not Assigned(Tache) then
        Tache := TTache.Create(TacheTerminated);
    end;
     
    procedure TForm1.Button2Click(Sender: TObject);
    begin
      if Assigned(Tache) then
        Tache.Terminate;
    end;
     
    procedure TForm1.TacheTerminated(Sender: TObject);
    begin
      ShowMessage('Fin de procédure !');
      Tache := nil;
    end;
     
    end.
    sjrd, ancien rédacteur/modérateur Delphi.
    Auteur de Scala.js, le compilateur de Scala vers JavaScript, et directeur technique du Scala Center à l'EPFL.
    Découvrez Mes tutoriels.

  4. #4
    Rédacteur
    Avatar de evarisnea
    Homme Profil pro
    Ingénieur intégration
    Inscrit en
    juin 2005
    Messages
    1 957
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Cameroun

    Informations professionnelles :
    Activité : Ingénieur intégration
    Secteur : Transports

    Informations forums :
    Inscription : juin 2005
    Messages : 1 957
    Points : 4 381
    Points
    4 381
    Par défaut
    Citation Envoyé par sjrd
    Ca peut fonctionner... Mais il serait ô combien plus judicieux d'utiliser un thread
    entièrement d'accord avec toi 8)

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Comment remplacer le clavier par des boutons ?
    Par aliwassem dans le forum Langage
    Réponses: 1
    Dernier message: 14/12/2005, 20h00
  2. Valider un formulaire par un lien et non par un bouton
    Par budiste dans le forum Langage
    Réponses: 2
    Dernier message: 14/12/2005, 12h58
  3. [VB.Net] Problème appel fonction par un bouton
    Par balibo dans le forum ASP.NET
    Réponses: 4
    Dernier message: 25/11/2005, 11h48
  4. Passage de paramètres POST par un bouton
    Par damjal dans le forum Langage
    Réponses: 7
    Dernier message: 07/10/2005, 18h54
  5. Select qui boucle ou se termine par un Ora-01460
    Par PatriceP dans le forum Oracle
    Réponses: 4
    Dernier message: 29/10/2004, 09h53

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo