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
|