Discussion :

[Alexandre`]

Bonjour,
Lors de l'execution de mon programme, je suis parfois soumis à saisir un entier, je voudrais que celui-ci s'affiche dans un memo lors de la saisie.

La saisie se fait pendant l'execution du programme, donc je ne peux utiliser le lines.add.

Voici mon code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if (mode_saisie = true) then // On récupère les touches pressées
  begin
    // Vérification que les touches pressées sont que des entiers (0 à 9)
    if (Key in ['0', '1', '2', '3', '4', '5', '6', '7', '8', '9']) then
    begin
      buffer.ajouter(strtoint(Key)) ;
      console.SetSelTextBuf(PChar(Key)) ;
    end ;
  end ;
end;

Il n'a aucun effet sur le memo. Maintenant si j'utilise ce code là :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if (mode_saisie = true) then // On récupère les touches pressées
  begin
    // Vérification que les touches pressées sont que des entiers (0 à 9)
    if (Key in ['0', '1', '2', '3', '4', '5', '6', '7', '8', '9']) then
    begin
      buffer.ajouter(strtoint(Key)) ;
      console.SetSelTextBuf(@Key) ;
    end ;
  end ;
end;

Soit utiliser @ et non PChar(), alors les touches sont bien affichés mais il rajoute un 'B' après chaque saisie et je ne comprend pas pourquoi...

Une idée ?

Merci.

[blinkseb]

Pourquoi tu ne peux pas utiliser Lines.Add pendant l'exécution ?

Code :

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

1
2
3
 
 
Memo1.Lines.Add(Key);

Ca devrait très bien marcher

[Alexandre`]

chaque touche pressé doit être ajouter à la suite, enfin sur la même ligne dans le mémo.

merci

[Nono40]

Plus simple :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char); 
begin 
  if (mode_saisie = true) then // On récupère les touches pressées 
  begin 
    // Vérification que les touches pressées sont que des entiers (0 à 9) 
    if (Key in ['0'.. '9']) then 
    begin 
      buffer.ajouter(strtoint(Key)) ; 
      console.Lines.Text :=  console.Lines.Text+Key;
    end ; 
  end ; 
end;

[blinkseb]

Ah d'accord, donc

Code :

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

1
2
 
Memo1.Text := Memo1.Text + Key;

Ca devrait aller

[blinkseb]

Arf grillé

[tourlourou]

je suppose que ton memo a le focus et ta form le KeyPreview

Code :

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

1
2
3
4
5
6
7
8
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char); 
begin if (mode_saisie = true) then // On récupère les touches pressées 
  begin 
    // Vérification que les touches pressées sont que des entiers (0 à 9) 
    if  not Key in ['0', '1', '2', '3', '4', '5', '6', '7', '8', '9']) then key := #0;
 
end ; 
end;

[Alexandre`]

Bah ma technique fonctionne presque, je ne comprend pas c'est pourquoi il rajoute un caractère...

je tape 123, il affiche 1B2B3B :/

[Alexandre`]

Je n'avais pu vu quelques réponses vu quelles ont été postées en même temps... La technique de Nono40 fonctionne !

Merci à tous.