conversion en String un ensemble Set

salut,
   j'ai un souci sur une parti de ma prog, j'ai effectué un test de caractère non autorisé (qui fonctionne très bien !) mais je n'arrive pas à faire apparaitre la liste dans un showmessage
voici mon extrait de code concerné :

Const
  TabInterdit =  [':','/','\','?','>','<','*','"','|'];
var
   j : Integer;
begin
   for j := 1 to Length(Edit1.Text) do
        if (Edit1.Text[j] in TabInterdit) then
        Showmessage('Le nom de l''image '+TabEdit[i].Text+
                    ' ne peut contenir les caractères spéciaux suivants :'+#13
                    //+ là je veux lister les caractères TabInterdit
                    );
end;

Salut,

Si le code est identique à ce que tu a posté c'est normal que ca marche pas car dans ton ShowMessage tu a mis TabEdit[i].Text alors que tu a beaucoup plus simple, vu que le caractère qui est interdit est celui testé dans l'Edit1 tu peux faire :

ShowMessage('Le nom de l''image ne peut contenir la caractère suivant : '+Edit1.Text[i])

Ensuite tu met ta fonction dans le Edit1KeyPress et voila le tour est joué.

Bonne Prog

salut,

pour afficher juste un message d'erreur pour le char tapé, fait comme moldov t'as dit. C'est super simple.
(detail: t'as un problem entre i vs j)

pour afficher TOUT le set, je ne connais aucun moyen simple. Si j'étais a ta place, je ferrais juste une const string (comme ça t'as les virgule et tout).

A+

Loda

---

Se poser les bonnes questions est le premier pas pour trouver les bonnes réponses.

salut lova, 
   merci pour ta remarque mais pour le KeyPress, cela neme donnait pas le résultat désiré et aurait été lourd à la longue, je pense car si à chaque fois que l'on frappe un touche interdite un message apparait voilà quoi !!

salut moldov,
   comme tu vois il y a un moyen simple proposé par cirec auquel on aurait pu éventuellement penser a cela mais il en est ainsi !
merci tout de même d'avoir répondu à mon message !!

salut cirec, 
   c'est super, je te  remercie
C'est exactement ça qui me fallait, tu me sauves !! merci encore !

re,

je suis bien d'accord, les messagebox qui te coupe la saisie: c'est pénible....

pour gérer des erreurs de saisie, je recommande (à  mon humble avis):
1. une correction le plus automatique possible
2. une message d'erreur clair (pour comprendre la correction auto)
3. des message d'erreur non "interrompant".

le point trois peut se réaliser de plusieurs manières:

3.a une console d'erreur (ie: un memo à alBottom)
3.b l'affiche d'un label en rouge en dessous de la zone de saisie.
3.c une  fenêtre "stayOnTop" de petit taille qui se position près de la zone de saisie. tu la fait apparaître lors de l'erreur et disparaître lorsque la saisie est corrigée. Un genre de bull d'info. avec la transparence et une jolie image de fond, t'arrive à faire qqch de très jolie. En plus, tu peux ajouter de l'interactivité (bouton d'aide, liens vers site web, ...)

bon code,

Loda

---

Se poser les bonnes questions est le premier pas pour trouver les bonnes réponses.

Salut,

Moi, je ferais simplement:



procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
 If Key in [':','/','\','?','>','<','*','"','|'] then Key := #0;
end;

Je pense qu'il est inutile de prévenir l'utilisateur de sa petite distraction... 

Quoique...

Si c'est un prog pour débutant de Papouasie, il vaut peut-être mieux lui indiquer l'erreur...
Ce sera plus didactique. 

...Enfin, j'ai rien contre les Papous.
Mais on n'en voit pas beaucoup traîner sur CS...

On se demande bien ce qu'ils peuvent bien foutre de leur journée...