Discussion :

[SOPSOU]

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;

[pitango]

Bonjour

Tu peux essayer cela sur l'évennement KeyPress de ton Tedit.

Code :

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

1
2
3
4
5
 
if Key = ' ' then
begin
if copy(ta.Text,Length(ta.Text),1)= ' ' then Key := #0;
end;

A+

[ShaiLeTroll]

une variante du code ci dessus, une vérification de la chaine manuel au lieu de l'utilisation du copy

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
var
  Str: String;
  LenStr: Integer;
begin
  if Key = ' ' then
  begin
    Str := ta.Text;
    LenStr := Length(Str);
 
    if (LenStr  > 0) and (Str[LenStr] = ' ') then
      Key := #0;
  end;
end;