Fonction Exit (<code d'erreur>)

Version imprimable

13/02/2007, 15h04
franckgar

Fonction Exit (<code d'erreur>)

Slt,
existe t il l'équivalent en pascal de la fonction Exit(<code d'erreur>) qui permet de sortir d'une fonction en indiquant un code d'erreur ?
Sinon peut on l'implémenter facilement ?

Merci

Code:

1
2
3
4
5
6
7
 
try
  // générère une exception avec un message personnalisé
  raise.Exception.Create('Mon message');
finally
  exit;
end;

13/02/2007, 15h25
slimjoe
Citation:
Envoyé par Malatar

Code:

1 2 3 4 5 6 7 try // générère une exception avec un message personnalisé raise.Exception.Create('Mon message'); finally exit; end;
raise ne va-t-il pas lui même faire en sorte de sortir de la méthode ? En d'autres mots le exit est-il superflu ?
13/02/2007, 15h25
franckgar

oui bien sur on peut utiliser les exception pour y parvenir mais je trouve ça un peu "lourd" pour faire qqchose de finalement trés simple.
N'y aurait il pas une autre solution ? (un peut comme la Halt mais au niveau des fonctions)

merci
13/02/2007, 15h28
slimjoe

Citation:

Envoyé par franckgar

oui bien sur on peut utiliser les exception pour y parvenir mais je trouve ça un peu "lourd" pour faire qqchose de finalement trés simple.
N'y aurait il pas une autre solution ? (un peut comme la Halt mais au niveau des fonctions)

merci

En quoi est-ce que raise est lourd ?
13/02/2007, 15h38
franckgar
et bien au lieu d'écrire ça :
Code:

1 2 3 4 5 try if <Erreur> then raise MonException.Create(<code d'erreur>); except On E: MonException do Result := MonException.<code d'erreur>; end;
je voudrais écrire ça :

Code:

if <Erreur> then Exit(<code d'erreur>);

ce qui me parrait plus simple d'écriture (.... mais on est d'accord ça fait la même chose).
13/02/2007, 15h39
slimjoe

Peut-être est-ce que tu pourrais t'inspirer de Abort qui soulève une exception silencieuse. J'imagine une classe dérivée de EAbort qui conserverait un numéro d'erreur et une fonction Abort(Code: integer) qui la soulèverait.
13/02/2007, 15h40
Rayek

Citation:

Envoyé par slimjoe

raise ne va-t-il pas lui même faire en sorte de sortir de la méthode ? En d'autres mots le exit est-il superflu ?

Je n'utilises pas souvent cette méthode donc je ne pourrais pas te répondre.
Mais bon, ca depend où il veut intercepter l'erreur : à l'interrieur de la fonction ou à l'extérieur ?
13/02/2007, 15h54
slimjoe
Citation:
Envoyé par franckgar

et bien au lieu d'écrire ça :

Code:

1 2 3 4 5 try if <Erreur> then raise MonException.Create(<code d'erreur>); except On E: MonException do Result := MonException.<code d'erreur>; end;

je voudrais écrire ça :

Code:

if <Erreur> then Exit(<code d'erreur>);

ce qui me parrait plus simple d'écriture (.... mais on est d'accord ça fait la même chose).
Ok je comprends mieux... toutes tes méthodes sont des fonctions et toutes ces fonctions retournent des entiers c'est ça ?

En gros, tu voudrais que Result := 123 te sorte de la fonction c'est ça ? Un peu comme le return de d'autres langages ?

Et ça est-ce que ça t'irais ce code ?
Code:

1 2 3 4 5 procedure Exit(out Result: integer; const Code: integer); begin Result := Code; Abort; end;
Pour l'appeller :
Code:

1 2 3 4 function MaFonction: integer; begin if <erreur> then Exit(Result, 123); end;
J'ai rien testé tout est improvisé alors il est possible que ça plante ;).

[EDIT]
Bon je viens de tester et Abort semble être une mauvaise idée....
13/02/2007, 16h00
Rayek
Citation:
Envoyé par slimjoe

Code:

1 2 3 4 5 procedure Exit(out Result: integer; const Code: integer); begin Result := Code; Abort; end;
Result étant un mot réservé, je doute de la fiabilité de ce code et des problèmes qu'il pourrait entrainer.
13/02/2007, 16h15
slimjoe

Citation:

Envoyé par Malatar

Result étant un mot réservé, je doute de la fiabilité de ce code et des problèmes qu'il pourrait entrainer.

Effectivement, ça ne fonctionne pas mais c'est plus à cause du Abort que du Result (Result ne semble pas être un mot réservé au même titre que type, procedure ou begin. Ça ressemblerait plus une variable déclarée implicitement à l'intérieur des fonctions. On ne peut pas déclarer un 2e Result à l'intérieur d'une fonction par exemple.)

Dans ma suggestion, Abort semble faire sortir de toutes les fonctions ce qui n'est pas l'objectif de notre ami.

Retour à la case départ.
13/02/2007, 16h25
Rayek
Citation:

Envoyé par slimjoe

On ne peut pas déclarer un 2e Result à l'intérieur d'une fonction par exemple.)

si si, on peut
Code:

1 2 3 4 5 6 7 8 function Montest (bTest : Boolean) : Boolean; begin Result := False; if bTest then Result := True; end;
Tant que le code n'est pas exécuté completement (en clair qu'il n'arrive aps sur le end final de la fonction), tu peux modifier le Result autant de fois que tu le souhaites.

Citation:

Dans ma suggestion, Abort semble faire sortir de toutes les fonctions ce qui n'est pas l'objectif de notre ami.

Oui, Abort ca tue tout
13/02/2007, 16h26
Eric Boisvert
Citation:

Envoyé par franckgar

je voudrais écrire ça :

Code:

if <Erreur> then Exit(<code d'erreur>);

et pourquoi pas ca:
Code:

1 2 if <Erreur> then begin result:=<Code erreur>;Exit; End;
C'est pas Exit(code) mais bon, c'est toujours moin pire que try-raise-except?
13/02/2007, 16h56
slimjoe
Citation:

Envoyé par slimjoe

On ne peut pas déclarer un 2e Result à l'intérieur d'une fonction par exemple.)
Citation:
Envoyé par Malatar

si si, on peut

Code:

1 2 3 4 5 6 function Montest (bTest : Boolean) : Boolean; begin Result := False; if bTest then Result := True; end;
Mais...
Code:

1 2 3 4 5 6 7 8 9 function Montest (bTest : Boolean) : Boolean; var Result: boolean; begin Result := False; if bTest then Result := True; end;
...va planter ;).

Citation:

Envoyé par slimjoe

Oui, Abort ca tue tout

J'adore cette expression :)

[EDIT]
Typo