Discussion :

[gaston11]

bonsoir, et bonne année a tous!

voilà mon petit soucis
je traite actuellement une gros lots de fichiers

environ 1000 fichiers avec chacune +-200 lignes

cette boucle fait des calculs et ça prend du temps

comme je suis en test une fois que la boucle est lancée comment l’interrompre facilement?? (pour pouvoir debugger)

actuellement je vais avec le gestionnaire windows et je casse le processus, il n'y aurais un moyen plus subtil??
j'ai placé " Application.ProcessMessages;" dans la boucle qui m donne acces a windows mais pas pour l’arrêter

autre chose, dans le temps avec turbo pascal pour debugger mes prog je plaçais dans des endroit stratégique des test qui lançait une opération interdite je divisait un nombre par zero, du coup ca plantait là et quand je le voulait et je pouvait verifier les variables concernées... ca ne marche plus! la division par zero ne provoque plus de plantage??

merci de vos lumières!

[Paul TOTH]

impressionnant

tu connais les points d'arrêt ?

Ctrl+F2 pour stopper le programme en cours.

[Lung]

tu connais les points d'arrêt ?

Et les points d'arrêt conditionnels (très pratique sur les grosses boucles).

[Gilbert Geyer]

Bonjour,

Autre possibilité :

Code :

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

1
2
3
4
5
function  ToucheCla(t : integer) : boolean; // Appui Touche
//        utilisations : if ToucheCla(VK_CONTROL) then EXIT;
//                       if ToucheCla(Ord('R')) then EXIT;
begin     Result:= ((GetAsyncKeyState(t) and 32768)<> 0)
end;

A+.

[gaston11]

impressionnant

tu connais les points d'arrêt ?

Ctrl+F2 pour stopper le programme en cours.

Ctrl+F2 NE MARCHE PAS!!!!

pourquoi tand d'ironie??

[yvonic2010]

Je dis peut être une bêtise mais CTRL+F2 c'est pour réinitialiser le programme, ça risque de compliquer de faire du débug si tout retourne à 0 ...

[gaby277]

Bonjour
Moi je rajoute simplement une case a cocher que je reste dns la boucle
if caseACocherStop.checked then exit;
Bien sur il faut application.processmessages dans la boucle
Apres mise au point je supprme la case a cocher ou je la rend invisible.

[gaston11]

Bonjour,

Autre possibilité :

Code :

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

1
2
3
4
5
function  ToucheCla(t : integer) : boolean; // Appui Touche
//        utilisations : if ToucheCla(VK_CONTROL) then EXIT;
//                       if ToucheCla(Ord('R')) then EXIT;
begin     Result:= ((GetAsyncKeyState(t) and 32768)<> 0)
end;

A+.

Impeccable!! ça marche!!!

merci!

[gaston11]

Bonjour
Moi je rajoute simplement une case a cocher que je reste dns la boucle
if caseACocherStop.checked then exit;
Bien sur il faut application.processmessages dans la boucle
Apres mise au point je supprme la case a cocher ou je la rend invisible.

merci de l'idée!!
j'essayerais