Discussion :

[wizdom]

Heu...je sais que ca a l'air bete comme question mais c'est toujours comme ca avec moi

Je voulais savoir si il y avait une instruction en Pascal Objet qui permette de quitter une procédure avant d'en avoir atteint la fin (dans le cas où la procédure est très longue et bourrée de conditions) ? J'ai repris mes cours de pascal de l'époque, mais je n'ai rien trouvé (ca commence à dater d'ailleurs )

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
procedure P_test;
begin
 
if {condition_pas_ok} then {quitter_la_procedure};
 
{suite de la procedure
.
.
}
 
end;

[Pascal Jankowski]

Tu peux utiliser pour cela exit

Cordialement

[Pergos]

Bonjour,

Juste une question (en réponse à ta question ) : l'instruction "exit" ne fonctionne pas ? Je crois me souvenir qu'en Turbo Pascal, ça existait déjà, et en Delphi, on s'en sert pas mal, alors bon...

[F.Victoire]

dans les fonctions, break fonctionne aussi je crois mais je ne sais pour les procédures.

F.V

[Pascal Jankowski]

dans les fonctions, break fonctionne aussi je crois mais je ne sais pour les procédures.

F.V

Non break c'est uniquement pour sortir d'une boucle. La seule solution est exit que ce soit pour une procédure ou une fonction.

[LadyWasky]

Exit :

Dans Delphi,la procédure Exit fait immédiatement passer le contrôle d'exécution en dehors de la procédure.Si la procédure en cours correspond au programme principal,Exit termine l'exécution du programme.

Break :

La procédure Break fait quitter le flux de contrôle dans le code Delphi d'une instruction for,while ou repeat et passe àla prochaine instruction qui suit l'instruction de boucle.

Un appel àBreak doit être contenu dans une instruction for,while ou repeat,ou bien le compilateur génère une erreur.

Halt :

La procédure Halt exécute une fin anormale d'un programme et renvoie le contrôle au système d'exploitation.

Continue :

Dans le code Delphi,la procédure Continue poursuit le flux de contrôle jusqu'àla prochaine itération d'une instruction for,while ou repeat.

Le compilateur renvoie une erreur si un appel àContinue se trouve en dehors d'une boucle for,while ou repeat.

(passe directement à l'itération suivante...

[wizdom]

Merci messieurs pour toutes ces précisions

J'avais essayé Break, Leave, Quit, Terminate....mais pas Exit Voilà ce que sais que de bosser chaque jour dans un langage différent !

merci encore !

[Pascal Jankowski]

La procédure Break fait quitter le flux de contrôle dans le code Delphi d'une instruction for,while ou repeat et passe àla prochaine instruction qui suit l'instruction de boucle.

Un appel à Break doit être contenu dans une instruction for,while ou repeat,ou bien le compilateur génère une erreur.

Sauf sur Delphi 2005 où mettre un break en dehors d'une boucle ne génère pas d'exception mais une erreur en interne dans l'éditeur.

[Pedro]

Salut
Et si tout simplement tu faisais:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
procedure P_test;
begin
 
  if {condition_ok} then
  begin
      {suite de la procedure
     .
     .
     }
    end;
end;

J'aime pas trop ces mots réservés qui, certes, facilitent le code mais le rende "sale"...
On peut, dans 99.9999999% des cas l'éviter en repensant un minimum son code...
Ce n'est évidemment qu'un avis personnel

[LadyWasky]

Je suis à 99,99999999999999999% d'accord avec Pedro.

Les Goto déguisés, ce n'est pas beau !

Celà dit un petit exit de temps à autre...

le 0,0000000000000000001% qui reste tu peux le garder a usage personnel.

[Pascal Jankowski]

J'aime pas trop ces mots réservés qui, certes, facilitent le code mais le rende "sale"

le 0,0000000000000000001% qui reste tu peux le garder a usage personnel.

Ourghhh!

Allez faire un tour dans le code de la VCL et vous verrez qu'une utilisation intelligente de exit de break simplifie le code et permet des gains lors du traitement.
Lors de l'écriture de son code, avoir une approche 'philosophie VCL' rend tout sauf sale.

Personnellement, je les utilise assez souvent dès que c'est nécessaire à peu près dans les mêmes proportions que la VCL, et je ne pense pas que mon code soit particulièrement sale.

[JJJJJ]

Je suis surpris que l'instruction application.processmessages n'aie pas été citée dans cette longue et vielle discussion. Elle est pourtant très simple à utiliser et utile dans certains cas.
Par exemple (quel que peu caricatural) un calcul long en boucle que l'on interrompt quand on veut en cliquant sur Button1.

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
 
var
  Form1: TForm1;
  stp:boolean;
  n:integer;
 
implementation
 
{$R *.DFM}
 
procedure TForm1.startClick(Sender: TObject);
begin
     stp:=false;
     n:=0;
     repeat
           n:=n+1;
           Edit1.text:=inttostr(n);
           form1.Refresh;
           application.processmessages;
     until((n>=1000000)or(stp=true));
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
     stp:=true;
end;
 
end.

[popo]

Déterrer un sujet clôturé depuis 17 ans pour écrire un commentaire hors sujet, ça mérite un pouce vers le bas.