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
|
ValeurBtn:=3; // init
NomFichier:=''; // initialisation du nom de fichier
TEcrase:=false; // initialisation
repeat
FrmGraph.SavDialog.Filter := 'Fichier Excel (*.CSV)|*.CSV'; // filtre les fichiers dans la fenêtre de présentation
if FrmGraph.Savdialog.Execute then begin // boîte de dialogue 'enregistrer sous...', pour enreg. le fichier CSV
NomFichier:=FrmGraph.SavDialog.FileName; // récupère le nom du fichier
if FileExists(NomFichier) then begin // le fichier existe-il ?
FrmMsg.MsgEcrase(); // oui !, demande s'il faut écraser l'ancien ?
ValeurBtn:=FrmMsg.ShowModal; // affichage de la fenêtre de choix des paramètres d'extraction
if (ValeurBtn=1) or (ValeurBtn=8) then // la fenêtre a été fermée par le bouton 'OK' ou 'Ajout', écrasement de l'ancien fichier existant
TEcrase:=true // sortie de boucle avec nom de fichier valide, existant, à écraser !
else
FrmGraph.SavDialog.FileName:=''; // il ne faut pas écraser l'ancien fichier, efface le nom ...
end; // ... et redemande un nom de fichier
end
else begin // sortie de la boîte de dialogue par 'annuler'
TEcrase:=true; // clic sur bouton 'annuler'
FrmGraph.SavDialog.FileName:=''; // sortie de boucle avec filename=''
end;
until ((TEcrase) or (not FileExists(NomFichier)) and (FrmGraph.SavDialog.FileName<>''));
//------------------------------------------ Création du fichier '*.CSV'
if NomFichier<>'' then begin // Un nom de fichier a-t'il été retourné
SaveFileCSV(Sender, NomFichier, ValeurBtn); // Oui ! construit le fichier '*.CSV' |
Partager