Bonjour,

Donc voilà j'ai un petit problème, me faudrais réaliser se petit programme :

1 - ecrite a l'écran : " donner votre code "
2 - lire le code
3 - si le code est egal a "azerty" :
a - Effacer le fichier TEXTE.TXT
b - Ecrire "fichier effacer"
4 - Si le code est mauvais :
a - Ecrire "Code erroner, le fichier et sauver"
5 - QUITER

¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
PROGRAM TEXTE; 
USES Dos,Crt,
VAR 
      Code char;
Begin 
    Writeln('Code?'); 
    Readln(Code); 
    If Code = 'azerty'; 
    begin 
{JE NE SAIS PAS SUPPRIMER UN FICHIER} 
        Writeln('fichier effacer'); 
    END;
    else 
    begin
        Writeln('Code erroner, le fichier et sauver'); 
    END; 
END.
¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤

Déjà Ce programme "rikiki" ne marche pas, je ne sais pas effacer un fichier et je ne sais pas si le type char pour le code et le type le mieux aproprié.

Merci d'avance de votre aide.

Xivix


PS : le fichier TEXTE.TXT se trouve dans "C:\TP7\TEXTE\TEXTE.TXT"