editRésolu

Question

Comment peut on inserer un blanc dans un edit pendant la saisie dans cet edit et au bout du 3eme chiffre.
 exemple : 123 678 999
merci

JulioDelphi · Accepted Answer

Bon je la refais :

Voila une (cf. mon post du dessus, et retouchée) fonction de formatage (n'hésites pas à la modifier) :
function Formatage(Valeur : String) : String;
var i, p : Integer;
    Minus, DecPresent: Boolean;
    Int, Dec: string;
begin
  p := 0;
  i := 3;
  DecPresent:= False;
  Int:= Valeur;
  if pos('.', Valeur)>0 then
  begin
    DecPresent:= True;
    Int:= Copy(Valeur,0,Pos('.', Valeur)-1);
    Dec:= Copy(Valeur,Pos('.', Valeur)+1, Length(valeur));
  end;

  Minus:= Pos('-', Valeur)>0;
  if Minus then
    Int:= IntToStr(Abs(StrToInt(Int)));
  while i + p < Length(Int) do
  begin
    Insert(' ', Int, Length(Int) - (i + p)+ 1);
    Inc(p);
    Inc(i, 3);
  end;
  Result:= Int;
  if Minus then
    Result:= '-'+Int;
  if DecPresent then
    Result := Result+'.'+Dec;
end;

Puis poses un TEdit et un TButton, sur le bouton mets un simple :
Edit1.Text:= Formatage(Edit1.Text);

Tu peux ajouter une vérification basique des touches enfoncées dans le TEdit, mets ça dans son OnKeyPress :
if not (Key in ['0'..'9', DecimalSeparator, '-', Chr(VK_BACK), Chr(VK_DELETE), chr(13)]) then key :=#0;

Et ça devrait fonctionner ...

nethacker · Answer

interdire la saisie de 4 et 5 ?

JulioDelphi · Answer

@nethacket : ho mon dieu ...

@belaid : Commence déjà par "BONJOUR", puis pense à utiliser un TMaskEdit au lieu de penser à bidouiller du code.

belaid52 · Answer

Bonjour,
je m'excuse pour le salut.
je reformule ma question :
je saisis des nombres dont le nombre de chiffres est different des uns et des autres exemples :
       Pendant la saisie les chiffres se presenteront comme suit :

         N1=      1969,51----->      1 969,51 
         N2=  125308,78 ----> 125 308,78
         N3=             2,78---->            2,78
   Les chiffres s'ecriront de droite a gauche comme dans les langages de programmation sous DOS

Merci

JulioDelphi · Answer

function Formatage(Valeue : Int64) : String;
var i : Integer;
    p : Integer;
begin
  p := 0;
  i := 3;
  Result := IntToStr(Abs(Valeur));
  while i + p < Length(Result) do
  begin
    Insert(' ', Result, Length(Result) - (i + p)+ 1);
    Inc(p);
    Inc(i, 3);
  end;
  if Valeur<0 then Result := '-'+Result;
end;

nethacker · Answer

@ JulioDelphi : faut poser les bonnes questions pour avoir les bonnes réponses ! j'ai su que c'était flou !

belaid52 · Answer

bonjour,


Mr Juliodelphi, si je savais poser des questions meilleurs que celles que j'ai posees, je l'aurai fait.


Je reformule ma question.
    j'ai un edit, je saisis des nombres.
    ce que je veux : la saisie des chiffres se fera de droie a gauche et a
                            chaque mille on insere un blanc. 
je pense que je suis plus explicite.

Merci

nethacker · Answer

ah ok
bah il t'a dit Tmaskedit !

belaid52 · Answer

Bonjour,


j'ai essaye d'utiliser Tmaskedit mais en vain.


je n'arrive pas a mettre en application ce que j'ai dit dns ma question.


merci

nethacker · Answer

Bonjour,
euh ca sera du genre !  _ _ _   _ _ _   _ _ _ je vais voir comment pourrais je t'expliquer plus !

a+

belaid52 · Answer

Mr Juliodelphi,


Excellent travail,
je vous remercie pour ce code.Il repond exactement a ce que je veux.


Mais maintenant que le sujet est bien compris, est il possible de faire la meme chose pendant la saisie au lieu de cliqueter sur le bouton?


Merci

JulioDelphi · Answer

Pendant non, mais tu peux le faire sur le "OnExit" du TEdit, dès que la personne quitte le TEdit, la procédure fait son boulot.

Edit

12 réponses

Votre réponse

Discussions similaires