Stopper procédure [Résolu]

cs_JackNUMBER 236 Messages postés jeudi 30 septembre 2004Date d'inscription 26 juin 2011 Dernière intervention - 18 févr. 2008 à 17:58 - Dernière réponse : cs_JackNUMBER 236 Messages postés jeudi 30 septembre 2004Date d'inscription 26 juin 2011 Dernière intervention
- 18 févr. 2008 à 22:17
bonjour à tous !!

Alors voilà mon problème, j'ai une procédure qui commence par vérifier l'existance d'un fichier, si il existe la procédure continue (par exemple renommage du fichier) mais si il n'existe pas il affiche un message. Le soucis c'est que j'aimerai arrèter la procédure si le fichier n'existe pas, en gros je cherche une sorte de "stop" à mettre avec le




ShowMessage
.






voici un extrait de mon code:
if FileExists(CheminFichier.Text) then
else
ShowMessage('Le fichier sélectionné n''existe pas');
RenameFile(CheminFichier.Text,'c:\b.txt');

(c'est un extrait, le vrai est plus long après le



RenameFile
donc pas possible de mettre ce



RenameFile
après then


)

peut-être mettre le contenu du




RenameFile




plus la suite dans une procédure et mettre cette procédure après then
, mais je sais pas faire :/







merci de votre aide !








-----------------------------------------



Jack NUMBER
Afficher la suite 

Votre réponse

5 réponses

BernieNoel68 97 Messages postés vendredi 12 octobre 2007Date d'inscription 20 novembre 2009 Dernière intervention - 18 févr. 2008 à 18:17
+3
Utile
Ben tu peux faire tout simplement :

----------------------------------------------------------------------

if FileExists(CheminFichier.Text) then
begin
 
RenameFile(CheminFichier.Text,'c:\b.txt');
  // tout ce que tu veux

end else
  ShowMessage('Le fichier sélectionné n''existe pas');
----------------------------------------------------------------------

Sinon si tu veux sortir d'une procédure en cours de roure, tu peux utiliser exit

Bon courage...
Cette réponse vous a-t-elle aidé ?  
Commenter la réponse de BernieNoel68
cs_JackNUMBER 236 Messages postés jeudi 30 septembre 2004Date d'inscription 26 juin 2011 Dernière intervention - 18 févr. 2008 à 18:51
0
Utile
ha génial !!!
merci




-----------------------------------------



Jack NUMBER
Commenter la réponse de cs_JackNUMBER
f0xi 4304 Messages postés samedi 16 octobre 2004Date d'inscription 9 mars 2018 Dernière intervention - 18 févr. 2008 à 20:00
0
Utile
sinon :

if not FileExists(FileName) then
begin
  ... message ...
  Exit;
end;
... suite ...


Commenter la réponse de f0xi
f0xi 4304 Messages postés samedi 16 octobre 2004Date d'inscription 9 mars 2018 Dernière intervention - 18 févr. 2008 à 20:35
0
Utile
"Sinon si tu veux sortir d'une procédure en cours de roure, tu peux utiliser exit"



ha ben j'avais pas vus qu'il y avait deja la reponse...


Commenter la réponse de f0xi
cs_JackNUMBER 236 Messages postés jeudi 30 septembre 2004Date d'inscription 26 juin 2011 Dernière intervention - 18 févr. 2008 à 22:17
0
Utile
pas grave, merci quand même !! :)






-----------------------------------------



Jack NUMBER
Commenter la réponse de cs_JackNUMBER

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.