Stopper procédure [Résolu]

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

5 réponses

Messages postés
92
Date d'inscription
vendredi 12 octobre 2007
Statut
Membre
Dernière intervention
20 novembre 2009
1
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...
Messages postés
236
Date d'inscription
jeudi 30 septembre 2004
Statut
Membre
Dernière intervention
26 juin 2011
1
ha génial !!!
merci




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



Jack NUMBER
Messages postés
4199
Date d'inscription
samedi 16 octobre 2004
Statut
Modérateur
Dernière intervention
2 janvier 2019
29
sinon :

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


Messages postés
4199
Date d'inscription
samedi 16 octobre 2004
Statut
Modérateur
Dernière intervention
2 janvier 2019
29
"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...


Messages postés
236
Date d'inscription
jeudi 30 septembre 2004
Statut
Membre
Dernière intervention
26 juin 2011
1
pas grave, merci quand même !! :)






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



Jack NUMBER