Discussion :

[deubal]

bonjour,
Voila dans mon appli, j'ai un champs contenant le nom d'une entreprise (plusieurs mots ecrits en toutes lettres) saisit par l'utilisateur. je souhaiterais concatene tous ces mots pour n'en faire qu'un seul et retirer tous les caractères qui ne sont pas des lettres. Pour simplifier j'ai bloquer toute la saisie en majuscule ce qui evite déjà les accents...
Par exemple :
la saisie : ECOLE NATIONALE E.N. DE PARIS
je voudrais que ca retire tous les "espaces", les points, mais dans certains cas il peut y avoir aussi des , des & ...
ce que je voudrais que ca donne : ECOLENATIONALEENDEPARIS
Comment je dois faire ? est-ce que je met dans un tableau les caracteres valables (les lettres majuscules classiques) et je teste chaque lettre ? Dans ce cas comment je fais si c'est un caractere à retirer pour decaler toute ma chaine avec un caractere de moins ?
Merci pour vos suggestions quant à mon problème
Bonne journée

[edam]

Code :

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

1
2
3
4
5
6
7
8
9
10
 
function concatene(s:string):string;
var 
     i:integer;
begin
    result:='';
     for i:=1 to length(s) do 
          if s[i] in ['A'..'Z'] then result:=result+s[i];
 
end;

[TicTacToe]

un petit UpperCase( S[ i ] ) aussi non ?