Discussion :

[numeror]

Bonsoir comment allez vous?

Dans mon éditeur html , je propose la sauvegarde d'un fichier en tant que modèle, j'ouvre une fenêtre avec edit pour rentrer le nom du modèle. Et je voudrais bloquer l'edit comme suivant :

nomdufichier.extension

je voudrais empecher l'edition de la partie extension, est ce possible ou dois je modifié le compo en profondeur?

Bonne nuit a tous

[Papy214]

Pas bien compris le problème ...

Pour enregistrer un fichier en choisissant son nom, le TSaveDialog fait généralement très bien l'affaire.

Sinon:

Code :

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

1
2
3
4
5
6
 
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if not (Key in [' ', 'a'..'z', 'A'..'Z', '0'..'9']) then
    Key := #0;
end;

[numeror]

Bonsoir

En faites j'utilise une fiche avec un edit car l'utilisateur n'a pas le choix du dossier, ni de l'extension du fichier. Mon probleme est donc le suivant :

mon nom de fichier : sansnom1.html

Je voudrais que l'utilisateur ne puisse pas modifié la partie qui se situe apres le . qui est dans l'exemple .html.

Bonne soiree

[archonte]

Pourquoi ne pas demander seulement le nom du fichier (sans l'extension) dans ton TEdit puis ajouter par programmation cette extension (MonTitreDeFichier := MonEdit.Text + '.html';) ?

[numeror]

Bonjour

C'est ce que j'avais fait au debut, mais si l'utilisateur rentre une extension ca fera une erreur Windows.

Merci

[numeror]

Je suis bête , j'ai juste a bloquer le clavier sur les ponctuations pour etre sûr de ne pas avoir de . donc pas d'extension.

Bonne nuit

[Paul TOTH]

Bonjour

C'est ce que j'avais fait au debut, mais si l'utilisateur rentre une extension ca fera une erreur Windows.

Merci

non, un fichier peut très bien s'appeler fichier.doc.xls.txt.html, ça restera un fichier HTML

ce que tu dois interdire dans le nom du fichier c'est surtout "..", "\", "<" ">" et ":" (de tête je pense que c'est tout).

sinon je nomme mon fichier "c:\windows\toto" et voilà que tu crées un fichier dans le répertoire Windows

mais au lieu d'interdire la touche je trouve plus agréable d'avoir un message d'erreur lors de la validation (comme le fait Windows quand on renomme un fichier par exemple).

[Papy214]

La solution logique reste le TSaveDialog en renseignant la propriété DefaultExt.
Par exemple, si cette propriété vaut html, Filename renverra la saisie utilisateur suivie de .html. De cette façon, l'extension est forcée et le contrôle de validité du nom est fait par le composant.

Saisie utilisateur: toto.premier.second.txt
Retour: toto.premier.second.txt.html

[numeror]

Salut

Oui mais avec le SaveDialog , on ne peut pas bloquer le dossier?

[Eric.H]

Pour info, dépend de ta version de Delphi, mais en XE3, il y a entre autres.

System.IOUtils
TPath.HasValidFileNameChars()
TPath.GetInvalidFileNameChars
IsValidFileNameChar()

plutôt que "Key in []" ou CharInSet

[numeror]

J'ai la version XE, mais je vais voir a quoi servent les fonctions que tu a donné.