caractere indesirableRésolu

Question

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&#232;res qui ne sont pas des lettres. Pour simplifier j'ai bloquer toute la saisie en majuscule ce qui evite d&#233;j&#224; les accents...
Par exemple :
la saisie : ECOLE NATIONALE E.N.  DE PARIS
je voudrais que ca retire tous les "espaces", laes 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 &#224; retirer pour decaler toute ma chaine avec un caractere de moins ?
Merci pour vos suggestions quant &#224; mon probl&#232;me
Bonne journ&#233;e

jlen100 · Accepted Answer

Salut essaie ce filtre 

procedure TForm1.Button1Click(Sender: TObject);

var temp:string;

begin

 //

 temp:= edit1.Text;

 edit1.Text:=reduit(temp);



 end ;

 function Tform1.Reduit(var entree:string):string;

 const valid =['A'..'Z'];

 var i:integer;

 temp:string;

begin

 temp:= '';

    for  i: =1 to length(entree) do

   if entree[i]in valid then temp:=temp+entree[i];

   result:=temp;

end;

bonne prog

Filipe35 · Answer

avec des boucles des AnsiPos et des Delete

tu devrais y arriver je pense

Filipe35 · Answer

je vai expliquer un peux mieux


AnsiPos te renvoi la position d'un caratectère par exe ' ' (espace)
tu le supprime à l'aide de Delete
le tout en boucle pour chaque caratère indésirable

cs_deubal · Answer

merci a vous deux pour vos solutions, m'en vais essayer ca de suite.
Bonne aprem'

Caractere indesirable

4 réponses

Votre réponse

Discussions similaires