Stopper procédure [Résolu]

Messages postés
236
Date d'inscription
jeudi 30 septembre 2004
Dernière intervention
26 juin 2011
- - Dernière réponse : cs_JackNUMBER
Messages postés
236
Date d'inscription
jeudi 30 septembre 2004
Dernière intervention
26 juin 2011
- 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

Meilleure réponse
Messages postés
97
Date d'inscription
vendredi 12 octobre 2007
Dernière intervention
20 novembre 2009
3
Merci
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...

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 104 internautes nous ont dit merci ce mois-ci

Commenter la réponse de BernieNoel68
Messages postés
236
Date d'inscription
jeudi 30 septembre 2004
Dernière intervention
26 juin 2011
0
Merci
ha génial !!!
merci




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



Jack NUMBER
Commenter la réponse de cs_JackNUMBER
Messages postés
4304
Date d'inscription
samedi 16 octobre 2004
Dernière intervention
9 mars 2018
0
Merci
sinon :

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


Commenter la réponse de f0xi
Messages postés
4304
Date d'inscription
samedi 16 octobre 2004
Dernière intervention
9 mars 2018
0
Merci
"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
Messages postés
236
Date d'inscription
jeudi 30 septembre 2004
Dernière intervention
26 juin 2011
0
Merci
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.