SaveDialog : Rajouter le .txt si il n'y est pas et ne pas le rajouter si il y es

Question

Bonjour

J'utilise le composant
SaveDialog

Je specifie le code suivant pour sauver un fichier texte

 SaveDialog1.Filter := 'Text files (*.txt)|*.txt';
  if SaveDialog1.Execute then
  begin
      AssignFile(Fichier,SaveDialog1.FileName);
      etc ...

Hors si l'utilisateur ne specifie pas l'extension ".txt" dans le nom du fichier, elle n'est pas rajouté automatiquement.
Quelqu'un à t'il une solution (rajouter le .txt si il n'y est pas et ne pas le rajouter si il y est)

japee · Answer

Pourquoi pas :

if ExtractFileExt(SaveDialog1.FileName) = '' then
      SaveDialog1.FileName := SaveDialog1.FileName + '.txt';


ou

if ExtractFileExt(SaveDialog1.FileName) <> '.txt' then
      SaveDialog1.FileName := SaveDialog1.FileName + '.txt';


ou ce genre de choses, selon ce que tu veux faire exactement.

cs_globule · Answer

Merci

cs_Delphiprog · Answer

Il suffit de renseigner la propriéte DefaultExt du composant TSaveDialog pour qu'elle soit ajoutée si l'utilisateur n'a rien précisé.
May Delphi be with you

japee · Answer

Oh la la, c'est si simple...  %-6 

Bon, ça n'empêche pas l'usager fantaisiste d'enregistrer son fichier avec une extension farfelue, mais alors, qu'est-ce que ça allège le code !

SaveDialog : Rajouter le .txt si il n'y est pas et ne pas le rajouter si il y es

4 réponses

Votre réponse

Discussions similaires