Discussion :

[Niko92]

Salut
J'aurais voulu savoir comment faire pour relancer le programme en cours sans passer par reset.
En fait je voulais utiliser tout simlement un label qui renvoie au debut du programme, misi le probleme c'est qu'il me faudrais placer le goto dans une procedure et le label, dans le program de base (ecrit apres un certain nombre d'autre procedures), mais ca ne marche pas (problemes de position).
J'arrive a relancer le programme en rentrant directement son chemin d'acces et avec la commande "reset", mais dans ce cas le 1er lancement du prog n'est pas fermé, et je dois en plus rentrer le chemin d'acces complet vers le prog dans la source, ou le faire ecrire par l'utilisateur... a moins que quelqu'un puisse au passage me donner une instruction pour renvoyer le chemin complet du programme lancé et pour l'enregistrer sous une variable...
Dans tous les cas si quelqu'un peut me donner une maniere simple de relancer un prog au debut, a partir d'une commande contenue dans celui-ci (Suite a 3 choix donnés a l'utilisateur : continuer, recommencer ou arreter le prog )

Merci pour l'aide. Ciao

Niko

[M.Dlb]

J'arrive a relancer le programme en rentrant directement son chemin d'acces et avec la commande "reset"

C'est quoi cette commande ?

Pourquoi ne fais-tu pas une boucle dans ton programme principal, du style :

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
 
begin
repeat
writeln('Choisissez entre :');
writel,('1 - Continuer');
writeln('2 - Recommencer');
writeln('3 - S''arreter');
writeln('Votre choix : ');
ch:=readkey;
case ord(ch) of
49 : begin;
     { continuer... }
     end;
50 : begin;
     { recommencer... }
     end;
end;
until ord(ch)=51;
end.

En adaptant ça bien sûr à ton cas...

[Eric Sigoillot]

Tu peux aussi réorganiser toutes tes procédures pour qu'elles aient un paramètre suplémentaire indiquant quand le programme doit reprendre, un peu dans ce style :

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
 
procedure Proc1(...; var Fail: Boolean);
begin
  ...
  Fail := True;
  ...
end;
 
function Proc2(...; var Fail: Boolean): ...;
begin
  ...
  Proc1(..., Fail);
  if Fail then Exit;
  ...
end;
 
procedure Proc3(...; var Fail: Boolean);
var
  X: ...;
  ...
begin
  ...
  X := Proc2(..., Fail);
  if Fail then Exit;
  ...
end;
 
 
var
  Fail: Boolean;
  ...
begin
  repeat
    ...
    Proc3(..., Fail);
  until not Fail;
end.

Un exemple parmi d'autres... Tu peux aussi placer le contenu du bloc principal de ton programme dans une procédure de façon à le relancer plus facilement.

Sinon, le chemin d'accès complet à un programme est donné par ParamStr(0).

D'autre part, Reset en Pascal ISO ser à ouvrir un fichier en lecture seule... Alors je ne vois vraiment pas le rapport. Tu utilises quoi comme compilateur obscur ?

@++