bonjour,
je me heurte à un probleme lors de l'utilisation de la boite de dialogue de sauvegarde d'un fichier: savedialog. Si l'utilisateur entre un nom trop long, celui ci est enregistré, mais pose probleme lorsqu'il est rappelé.
je veux donc limiter la longueur du nom du fichier à 18 caracteres, je n'ai pas trouvé dans l'aide comment faire alors j'ai pondu une petite routine appelée par l'evenement OnSelectionChange. Mais cela ne fonctionne pas.
voici la routine:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
procedure TFrenseign.nomapp(Sender: TObject);
 var nom:string;
     debutnom:integer;
 
begin
      nom:=savedialog1.FileName;
      debutnom:=pos('\',nom);
      while debutnom>0 do
      begin
           delete(nom,1,debutnom);
           debutnom:=pos('\',nom);
      end;
 
      if length(nom)> 18 then
         savedialog1.filename:=nom;
end;
Si vous savez comment résoudre mon probleme...
d'avance je vous remercie de votre aide