Discussion :

[Pierre95]

Bonjour,

Je développe une application utilisant 3 MaskEdit.
Dans ceux-ci des masses en kilos ou Livres sont saisies au format : 000 000

1°) Si je souhaite entrer 88 000 dans l'un de ces edits, il me met 880 000.
Comment Corriger ce défaut?.

Les valeurs contenues dans ces edits sont enregistrées dans un fichier texte à la fermeture du programme et rechargées à sa réouverture. (Ce point fonctionne bien).

Deux fonctions simples convertissent les kilos en Livres et inversement.
Seulement, le résultat de ces conversions n'affiche que XX dans les maskedits.

2°) Comment puis obtenir un affichage correct des valeurs converties?

Espérant avoir été assez clair, je vous remercie de vos conseils et idées.

Cordialement
Pierre

[mick605]

Salut

J'ai toujours constaté que les MaskEdits étaient difficiles a gérer. Ce que je te conseille, est d'utiliser un Edit simple, avec son évenement OnKeyDown. Dans ton cas, tu ne souhaite pouvoir rentrer que des chiffres, le code serait donc assez simple ...

Bonne chance

Mick605

[Pierre95]

Merci de ce conseil que j'ai suivi et qui s'avère plutôt intéressant.

Cordialement
Pierre

[mick605]

Pas de problème ! Dans ce cas, coche dans la discussion ... Tu peux aussi poster ton code, pour que cela serve aux suivants !

[Pierre95]

Ok,

Je suis revenu au TEdit, mais je voudrais y saisir des chaines soit de format:
XX XXX, soit: XXX XXX.
Je ne sais pas trop comment.

De plus voudrais ensuite que ces chaines soient converties en entier pour traitement, mais l'espace me joue des tours.

Merci
Pierre

[mick605]

Ah, je n'avais pas compris que tu voulais absolument l'espace dans ta chaine ... Je ne sais pas si l'utilisation du MaskEdit est la meilleure, puisque ta chaine n'a pas forcément la même longueur ...

Dans le cas ou tu utiliserai un simple Edit, je vois 3 solutions :
- Tu laisse taper ce que tu veux a l'utilisateur, et tu valides sa chaine quand il a fini (par exemple, dans le OnExit du Edit)
- Tu peux controler un peu la saisie de l'utilisateur, et ajouter toi même les espaces quand la saisie est terminée :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
procedure TForm1.Edit2Enter(Sender: TObject);
begin
  Edit2.Text:=ReplaceStr(Edit2.Text,' ','');
  Edit2.SelectAll;
end;
 
procedure TForm1.Edit2Exit(Sender: TObject);
var t : string;
begin
  t:=Edit2.Text;
  if Length(t)>3 then
    Edit2.Text:=Copy(t,0,Length(t)-3)+' '+Copy(t,Length(t)-3+1,MaxInt)
  else
    Edit2.Text:=t;
end;
 
procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
  if not (Key in ['0'..'9',#8]) then Key:=#0;
end;

- Tu peux essayer de formatter ta chaine en temps réel :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
var t :string;
    s : integer;
begin
  if (Key in ['0'..'9']) then
  begin
    if (Length(Edit1.Text)-Edit1.SelLength)<7 then
    begin
      Edit1.SelText:=Key;
      s:=Edit1.SelStart;
      t:=Edit1.Text;
      t:=ReplaceStr(t,' ','');
      if Length(t)>3 then
        Edit1.Text:=Copy(t,0,Length(t)-3)+' '+Copy(t,Length(t)-3+1,MaxInt)
      else
        Edit1.Text:=t;
      Edit1.SelStart:=s+1;
    end;
  end;
 
  Key:=#0;
end;

Pour effacer les espaces, utilise la fonction ReplaceStr.

J'espere avoir été utile.

Bonne chance ...

Mick605

[Pierre95]

Merci mille fois, j'ai utilisé une solution proche de la première que tu me donne.

Tout fonctionne parfaitement.

Encore merci