[TPW] Sortir du programme

Bonjour ,
Je désire savoir s'il existe une fonction ou une procédure qui permet la fermeture du programme pascal !!
Merci d'avance pour votre réponse ;)

Break, pour sortir d'une boucle. Exit, pour sortir d'une procédure ou fonction, ou pour arreter le programme dans la boucle principale. Halt pour quitter le programmer n'importe où. :)

Citation:

---

Envoyé par wormful_sickfoot

Break, pour sortir d'une boucle. Exit, pour sortir d'une procédure ou fonction, ou pour arreter le programme dans la boucle principale. Halt pour quitter le programmer n'importe où. :)

---

j'ai essayé 'halt' mais le programme ne se ferme pas (je veux que ça ferme sans que l'utilisateur clique sur la case X à droite du fenêtre ;)
Merci

Code:

---

1 2 3 4 5 6 7 8 9 10 11

program sortie ; uses wincrt; var n :char ; begin   writeln('desirez vous quitter le programme :(o/n)'); readln(n); if n = 'o' then halt ; end.

---

Ton code ne compile pas, il faut passer un paramètre à Halt. Regarde l'aide du compilateur ;)

Citation:

---

Envoyé par wormful_sickfoot

Ton code ne compile pas, il faut passer un paramètre à Halt. Regarde l'aide du compilateur ;)

---

J'ai essayé avec TPW et ça marche ,le problème c'est que mon programme ne se ferme pas !!
Est ce que tu peux me dire comment utiliser la procédure halt sur mon programme. (l'aide du compilateur :()
Merci d'avance

Jui,

Citation:

---

Envoyé par WhiteTigerZ

J'ai essayé avec TPW et ça marche ,le problème c'est que mon programme ne se ferme pas !!
Est ce que tu peux me dire comment utiliser la procédure halt sur mon programme. (l'aide du compilateur :()
Merci d'avance

---

Tu donnes toi-même la solution.

Regarde l'aide du compilateur. :)

Citation:

---

Envoyé par droggo

Jui,

Tu donnes toi-même la solution.

Regarde l'aide du compilateur. :)

---

bon j'ai modifié le code comme l'a dit wormful_sickfoot et ça marche toujours pas.L'aide du compilateur n'est pas utile :aie: c'est pour ça que je demande de l'aide.
merci d'avance

Koi,

Alors montre-nous le code effectif que tu as actuellement, parce quand tu écris

Citation:

---

Envoyé par WhiteTigerZ

J'ai essayé avec TPW et ça marche ,le problème c'est que mon programme ne se ferme pas !!
Est ce que tu peux me dire comment utiliser la procédure halt sur mon programme. (l'aide du compilateur :()
Merci d'avance

---

avec le code cité,

Code:

---

1 2 3 4 5 6 7 8 9 10

program sortie ; uses wincrt; var n :char ; begin   writeln('desirez vous quitter le programme :(o/n)'); readln(n); if n = 'o' then halt ; end.

---

je ne te crois pas vraiment, ça ne doit pas pouvoir compiler.

Citation:

---

Envoyé par droggo

Koi,

Alors montre-nous le code effectif que tu as actuellement, parce quand tu écris

avec le code cité,

Code:

---

1 2 3 4 5 6 7 8 9 10

program sortie ; uses wincrt; var n :char ; begin   writeln('desirez vous quitter le programme :(o/n)'); readln(n); if n = 'o' then halt ; end.

---

je ne te crois pas vraiment, ça ne doit pas pouvoir compiler.

---

si tu ne me crois pas vraiment alors regarde la capture d'écran.
Pour le code j'ai pas grand chose j'ai juste changé halt ;
par halt(1) ;
dans mon cas ,c'est dur de cherche la solution du problème car TPW l'éxecute
correctement

Hui,

Je suis pour le moins surpris que ça puisse compiler comme ça, c'est un coup à mettre TPW à la poubelle !!

Ajoute une ligne d'affichage après celle qui contient le halt, car, dans l'état actuel, ton programme fait la même chose (du moins visuellement), que tu répondes 'o' ou 'n'.

Code:

---

1 2 3 4 5 6 7 8 9 10 11

program sortie ; uses wincrt; var n :char ; begin   writeln('desirez vous quitter le programme :(o/n)'); readln(n); if n = 'o' then halt(0) ; writeln('réponse <> de o !!'); end.

---

Ainsi, si tu réponds o à la question, cette ligne ne doit pas s'afficher, et inversement si tu réponds autre chose.

je veux que ça se ferme quand l'utilisateur tape 'o' sans qu'il clique sur la case X à droite du fenêtre

Kou,

J'ai bien compris, et c'est bien ce que doit faire le code indiqué :

- si tu réponds o à la question, il doit sortir immédiatement, sans exécuter

Code:

---

writeln('réponse <> de o !!');

---

- pour toute autre réponse, cette ligne doit s'exécuter, et le programme doit se terminer normalement.

Jue,

Bon, comme je ne comprenais pas ton problème, j'ai installé TPW (il a fallu également remettre le lecteur de disquettes :)).

Et je vois ce que tu veux dire : la fenêtre d'exécution du programme ne se ferme pas à la fin, elle devient seulement "inactive".

Comme je n'ai jamais utilisé TPW pour faire des applications de type console, je ne fais que constater le fait, et ne connais pas la réponse. Une recherche sur le réseau n'a rien donné pour l'instant.

Et pour le halt sans paramètre, c'est ok : ce paramètre est effectivement optionnel (j'avais oublié, car une telle sortie "brutale" d'un programme doit être réservée à une erreur non récupérable par le programme, et doit donc n'être utilisée qu'exceptionnellement, or, je sécurise toujours mes programmes côté entrées/sorties/calculs..., ce qui représente beaucoup de code, mais conduit à des logiciels "solides").

Merci beaucoup Drogg :D
A propos tu utilises quoi comme compilateur ? :roll:

Kio,

Citation:

---

Envoyé par WhiteTigerZ

Merci beaucoup Drogg :D
A propos tu utilises quoi comme compilateur ? :roll:

---

J'ai réinstallé TPW juste pour tester ton prog.

Sinon, il y a longtemps que je n'utilise plus Pascal, Delphi, ou autres dérivés de Pascal. :)

Bonjour !

Je pense que pour que la fenêtre WinCRT de ton appli s'exécute et se ferme proprement, tu dois commencer ton programme par InitWinCRT et le terminer par DoneWinCRT.

;)

Jio,

Citation:

---

Envoyé par Alcatîz

Bonjour !

Je pense que pour que la fenêtre WinCRT de ton appli s'exécute et se ferme proprement, tu dois commencer ton programme par InitWinCRT et le terminer par DoneWinCRT.

;)

---

Vérifié, ça marche. :)