1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45
| procedure TfExplorateurFichiers.btnEnregistrerClick(Sender: TObject);
Var F: TextFile; //Variable qui contiendra le fichier
Var nom, chemin, extension, fichier: String; {Variables qui récupère le nom,
l'extension et le chemin du fichier}
begin
chemin := cheminFichier.Text;{Affectation de la variable recueilli dans
le champ de saisie du chemin de fichier}
nom := nomFichier.Text;{Affectation de la variable recueilli dans
le champ de saisie du nom du fichier}
extension := ExtensionFichier.Text;{Affectation de la variable recueilli dans
le champ de saisie de l'extension du fichier}
fichier := chemin + '\' + nom + extension; {Concaténation du chemin et du nom
complet du fichier pour l'affecter dans une seule variable}
AssignFile(F,fichier); //Associe la variable F au fichier texte à créer
{Si le fichier existe déjà, envoyer un message d'erreur. Sinon, créer le
fichier}
If fileExists (fichier) <> true then
begin
rewrite (F); //Créer le fichier
showmessage('Fichier créé avec succès!'); //Message de confirmation
//Réinitialisation des champs de saisie
cheminFichier.Text := '';
nomFichier.Text := '';
ExtensionFichier.Text := '';
end
else
begin
showmessage('Désolé! Ce fichier existe déjà.'); {Message d'erreur indiquant
que le fichier existe déjà}
//Réinitialisation des champs de saisie
nomFichier.Text := '';
end;
end; |
Partager