Discussion: Espaces dans un édit
Afficher un message
Vieux 16/10/2007, 22h01   #8
JP Passama
Aucun Avatar
 
Messages: n/a
Hébergeur:
Par défaut Re: Espaces dans un édit

delphi a écrit :
> Bonsoir à tous.
> j'ai besoin de supprimer des espaces entre les mots dans un champ type
> chaine.
> je m'explique :
> dans un champ type varchar(40) j'ai un ou plusieurs mots séparés par un
> ou plusieurs espaces.
> je veux conserver un et un seul espace entre chaque mot.
> y-a t'il une instruction sql qui fait ça ?
> comment puis-je interdire plusieurs espaces (dans un édit) entre chaque
> mot ?


Dans le OnEditKeyPress, si le caractère tapé est un espace (#32) et que
le text est non vide et que le caractère terminal de la chaîne déjà
saisie est aussi un #32, on refuse le caractère (Key := #0)

Ca doit donner à peu près ça :

procedure MonEdit.KeyPress(var Key: Char);
begin
if (Key = #32)
and (length(Text) <> 0)
and Text[length(Text)] = #32)
then Key := #0;
end;

JP
  Réponse avec citation
 
Page generated in 0,05219 seconds with 9 queries