Discussion :

[sirius123]

salut , mon problème et que que je ne si il faut que j'utilise une base de donner au autre chose pour que les chiffre de la premier colonne corresponde a ceux de la deuxième colonne .
je m'explique ...
les premier chiffre de chaque colonne corresponde au frappe du pave numérique(pour sa pas de problème)
en revanche il faut que chaque chiffre de la première colonne une foi frappé au clavier marque sur Tedit le chiffre correspondant


6=1 5=1 4=1 3=1
7=2 6=2 5=2 4=2
8=3 7=3 6=3 5=3
9=4 8=4 7=4 6=4
0=1 9=5 8=5 7=5
1=2 0=2 9=6 8=6
2=3 1=3 0=3 9=7
3=4 2=4 1=4 0=4
4=5 3=5 2=5 1=5
5=6 4=6 3=6 2=6

[Tardiff Jean-François]

Bonjour,

Je ne comprend pas très bien votre question.

Si j'ai bien compris, vous désirez établir des conversions de caractères.

Vous désirez stocker les équivalence de conversions, c'est à dire je remplace la valeur x par la valeur x'.

Si c'est bien cela que vous désirez, un TStringList peut très bien faire l'affaire.

Si vous stocker "C1.1=2" "C1.2=3' etc. vous stocker directement la colonne (C1.), la valeur de frappe (1 ou 2 dans l'example) et la valeur de remplacement (=2 ou =3 dans l'exemple).

vous pouvez accéder directement a chaque valeur de remplacement avec la fonction Values.
Exemple:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
var
  List: TStringList
begin
  List := TStringList.create;
  try
    List.Add('C1.1=2');
    List.Add('C1.2=3');
    ShowMessage(List.Values['C1.1']); // affiche la valeur de la colonne 1 (C1) entrée 1
  Finally
    List.free;
  end;

Vous pouvez sauver et lire facilement votre List par un SaveToFile/LoadFromFile.
Il existe de nombreux composant permettant de coder la liste (confidentialité).

Par contre vous devez copier la liste en même temps que votre executable pour transférer l'application sur une autre machine.
Ce n'est pas une solution standard.

Il existe naturellement beaucoup d'autre solutions (fichier avec un format qui vous est propre, fichier ini, fichier registre, table ado sauvegarder sous forme de fichier text etc.).

Si vous n'avez que cela à sauvegarder, je ne pense pas qu'une Base de donnée soit indispensable. Si par contre vous avez d'autres données à sauvegarder, je vous conseille d'envisager une solution global dés le départ. Cela évite bien des repentires.

[sirius123]

oui il sagi bien d'établir des conversions de caractères.
pour TStringList je ne dispose pas de cette outil (delphie 2005 perso)
il y a quatre colonne

6=1 ... 5=1 ... 4=1 ... 3=1
7=2 ... 6=2 ... 5=2 ... 4=2
8=3 ... 7=3 ... 6=3 ... 5=3
9=4 ... 8=4 ... 7=4 ... 6=4
0=1 ... 9=5 ... 8=5 ... 7=5
1=2 ... 0=2 ... 9=6 ... 8=6
2=3 ... 1=3 ... 0=3 ... 9=7
3=4 ... 2=4 ... 1=4 ... 0=4
4=5 ... 3=5 ... 2=5 ... 1=5
5=6 ... 4=6 ... 3=6 ... 2=6

tout est la, il sagie d'un algo de décodage
chaque colonne correspond a une case Tedit
ex) dans la première colonne le 6 et le 0 devrons afficher le même numéro c'est a dire ici le 1. le 7et le 1 = 2 ect....

[Tardiff Jean-François]

Dans ce cas mon message précédent était pertinent.

Je créerai mes TEdit en leur associant le même évènement onchange, avec des test (onPresskey) pour empécher des saisie non numérique et une maxlength de 1.

Dans le On Change j'écrirai quelque chose du genre

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
 
var
  Cible: TEdit;
  Header: String;
var
  // exemple sur 3 TEdit en entré / sorti (traduit)
  if Sender = edtInput1 the begin
    Cible := edtTranslate1;
    Header := 'C1.';
  end else  if Sender = edtInput2 the begin
    Cible := edtTranslate2;
    Header := 'C2.';
  end else  if Sender = edtInput3 the begin
    Cible := edtTranslate3;
    Header := 'C3.';
  end else
    exit;
 
   // recherche dans mas liste pré rempli comme dans le message précédent
   Cible.Text := List.Values[Header + IntTostr(TEdit(Sender).Text];

Rapel si dans une un tstringList vous avez mis la valeur 'abcd=fdsfdsf', le fait de faire Values[abcd] vous donnera le résultat 'fdsfdsf'.

[sirius123]

ok merci pour tous mais le problème s'est que je n'ai a priori pas tstringList se qui est bien dommage
donc j'ai fait autrement .
le codes suivant correspond a la touche (1) du pave numérique .
j'ai marquer &1 dans capiton et j'ai mis visble sur false

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
23
procedure TForm10.Button2Click(Sender: TObject);
begin
if (TF=0) then Edit1.Text := Edit1.Text+'2'
                      else begin
                     Edit1.Text:='2';
                     TF :=0;
                     end;
if (TF=1) then Edit2.Text := Edit2.Text+'3'
                     else begin
                     Edit2.Text:='3';
                     Tf:= 1;
                     end;
if (TF=2) then Edit3.Text := Edit3.Text+'4'
                     else begin
                     Edit3.Text:='4';
                     TF :=2;
                     end;
if (TF=3) then Edit4.Text := Edit4.Text+'5'
                     else begin
                     Edit4.Text:='5';
                     TF :=3;
                     end;
end;

le problème s'est que je n'arrive pas a séparer les quatre Tedit bien que j'ai utiliser la variable TF quand je frappe 1 les quatre Tedit se replisse
comment passer du Tedit1 au Tedit2 une foie le premier rempli ?

[Tardiff Jean-François]

Cela me semble un peux usine a gaze. Je suppose que TF est le n° de sisie (1 caractère 2° caractère etc)

Si je prend un exemple avec Tf à 1;

if (TF=0) then Edit1.Text := Edit1.Text+'2' non donc
Edit1.Text:='2';
TF :=0;


Test suivant if (TF=1) then Edit2.Text := Edit2.Text+'3' non (tf à été mis a 1 au test précédent) donc
Edit2.Text:='3';
Tf:= 1;

etc..
Vous remplissez donc tout vos champs.

Le plus simple si vous avez plusieurs zone de saisie (1 par caractère) est de tester le sender (if sender = TEDIT1 then).

si vous avez 1 seule zone de saisie vous pouvez realiser quelque chose de ce type

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
23
24
25
26
27
 
TEditOnChange(Sender: TObject)
  procedure TraiteCaption(Traitement: Integer; InputCar:  String; OutputEdit: TEdit);
  var
    Output: String;
  begin
    Output := ' '; // valleur par defautr = espace vide
    if (inputCar >= '0') and (InputCar <=9) then begin
     case Traitememnt of
       1: // traitememnt cas 1, remplir Output
       2: // tritememnt cas 2 
       etc.. 
     end;
   end;
   OutputEdit.caption := Output;
  end;
var
  Caption: String;
begin
 
  Caption := MonchampsEdit.Caption + '----'; // caption contient toujour 4 caractères minima. aucun bug possible entre Caption[1] et Caption[4]
 
  TraiteCaption(1, Caption[1], EditSortie1);
  TraiteCaption(2, Caption[2], EditSortie1);
  TraiteCaption(3, Caption[3], EditSortie1);
  TraiteCaption(4, Caption[4], EditSortie1);
End;

Un telle système vous permet de traite au fur et a mesure de la saisie les 4 valeurs possibles simultanément, sans gérer des "flag" comme TF