Discussion :

[Bouillon]

Bonjour,

je cherche à ajouter une extension à un fichier.
Lorsque j'utilise ces quleques lignes:

if openDialog1.execute then
begin
AssignFile(F, OpenDialog1.FileName);
Rewrite(F);

pour créer un fichier je voudrais ajouter au fichier F une extension (ex.: .txt)
au nom du fichier sans que l'utilisateur ne doive la taper.

Ou alors y-a-t-il moyen de placer des extensions dans la boite de dialogue?

Merci

BB

[kmsoft]

salut

Essaye de mettre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
 AssignFile(F, OpenDialog1.FileName+’.txt’);

Sinon, oui, il ya un moyen pour limiter les extentions dans la boite de dialogue :
Si par exmple ton soft permet d’ouvrir deux formats :des .txt et des .csv tu ajoute le code suivant avant l’exécution de ta boite de dialogue :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
OpenDialog1.Filter:='Fichier texte |*.txt|Fichier csv|*.csv|';

[defluc]

AssignFile(F, OpenDialog1.FileName + '.txt');

[Bouillon]

Ah ben merci ça marche!

Merci

BB