Pascal : et oui, sa exist encore ...
Fermé
xivix
Messages postés
18
Date d'inscription
lundi 10 mars 2008
Statut
Membre
Dernière intervention
27 décembre 2010
-
21 mai 2008 à 13:51
KX - 30 mai 2008 à 23:43
KX - 30 mai 2008 à 23:43
A voir également:
- Pascal : et oui, sa exist encore ...
- Turbo pascal download - Télécharger - Édition & Programmation
- My pascal - Télécharger - Édition & Programmation
- Dev-pascal - Télécharger - Édition & Programmation
- Algorithme triangle de pascal - Forum Pascal
- Pascal veut modifier une photo mais c’est la visionneuse d’images qui l’ouvre. que doit-il choisir pour l’ouvrir avec son logiciel de traitement d’image ? - Forum Windows
2 réponses
Bonjour xivix,
Le language pascal je m'y connait pas trop mais j'espère que quelqu'un pourra apporter son aide ;)
Le language pascal je m'y connait pas trop mais j'espère que quelqu'un pourra apporter son aide ;)
Pour supprimer un fichier à un chemin d'accès donné (le nom physique du fichier)
Il faut d'abord avoir une variable (le nom logique du fichier) de type 'file of ...' ou 'text'
Puis on assigne le nom logique au nom physique avec 'assign(nom_logique,nom_physique);'
Enfin on utilise 'erase(nom_logique);'
Ensuite le type char est en effet in-approprié ici, car il n'est utilisé que pour les caractères.
Il faut ici utiliser un type string, malheureusement pour toi c'est loin d'être la seule erreur dans ton code.
Voici un code correct (sur Dev-Pas) répondant au problème, tu remarquera qu'il est inutile de mettre 'uses dos,crt;'
program texte;
const Chemin='C:\TP7\TEXTE\TEXTE.TXT';
Code='azerty';
Eaigu=char(130); // pour la présentation et le respect de la langue française ;-)
procedure SuppressionAvecConfirmation;
var s:string;
var f:text;
begin
writeln('Code de suppression ?');
readln(s);
writeln;
if s=Code
then begin
assign(f,Chemin); // Si le fichier est déjà effacé, le programme s'arrête
erase(f);
writeln('Fichier effac',Eaigu);
end
else writeln('Code ',Eaigu,'rron',Eaigu,', le fichier est sauv',Eaigu);
end;
begin
SuppressionAvecConfirmation;
writeln;
writeln('Fin du programme. Appuyer sur une touche.');
readln;
end.
Normalement ça devrait être bon...
Il faut d'abord avoir une variable (le nom logique du fichier) de type 'file of ...' ou 'text'
Puis on assigne le nom logique au nom physique avec 'assign(nom_logique,nom_physique);'
Enfin on utilise 'erase(nom_logique);'
Ensuite le type char est en effet in-approprié ici, car il n'est utilisé que pour les caractères.
Il faut ici utiliser un type string, malheureusement pour toi c'est loin d'être la seule erreur dans ton code.
Voici un code correct (sur Dev-Pas) répondant au problème, tu remarquera qu'il est inutile de mettre 'uses dos,crt;'
program texte;
const Chemin='C:\TP7\TEXTE\TEXTE.TXT';
Code='azerty';
Eaigu=char(130); // pour la présentation et le respect de la langue française ;-)
procedure SuppressionAvecConfirmation;
var s:string;
var f:text;
begin
writeln('Code de suppression ?');
readln(s);
writeln;
if s=Code
then begin
assign(f,Chemin); // Si le fichier est déjà effacé, le programme s'arrête
erase(f);
writeln('Fichier effac',Eaigu);
end
else writeln('Code ',Eaigu,'rron',Eaigu,', le fichier est sauv',Eaigu);
end;
begin
SuppressionAvecConfirmation;
writeln;
writeln('Fin du programme. Appuyer sur une touche.');
readln;
end.
Normalement ça devrait être bon...
21 mai 2008 à 22:27