Salut les amis
je desire que lorsque l'utilisateur en siasissant dans un Edit
fait deux espaces, qu'une espace soit supprimée et le ramène à un pas derrière
donc pas de 2 espaces qui se suivent.
mais le code que j'utilise si dessus me ramène au debut de la saisie et de fois,
l'application se planTE lorque l'utilisateur fait deux espaces
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
 
var txt_ta : string;
begin
 txt_ta:=ta.Text;
   while pos ('  ',txt_ta)>0 do // on cherche deux espaces
   delete (txt_ta,pos('  ',txt_ta),1);
   ta.Text := txt_ta;
end;