Discussion :

[pierrot67]

j'ai trois radiobutton sur 3 champs de recherche Tedit et quand je "check"
les radiobuttons il m'affiche "ce n'est pas une valeur entière correcte"

Pourquoi?

[edam]

donne le code liée a l'evenement des rediobuttons

[pierrot67]

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
begin
  if radiogroup1.Buttons[0].Checked then
  if edit1.text<> ''then
      form2.Table1.IndexFieldNames:='Societe';
      form2.Table1.FindNearest([Edit1.Text]);
  if radiogroup1.Buttons[1].Checked then
  if edit2.Text <>''then
      form2.Table1.IndexFieldNames:='NumeroClient';
      form2.Table1.FindNearest([StrToInt(Edit2.Text)]);
  if radiogroup1.Buttons[2].Checked then
  if edit3.Text <> '' then
      form2.Table1.indexfieldNames:='Interlocuteur';
      form2.Table1.FindNearest([Edit3.Text]);
  case radiogroup1.itemindex of
  0 :edit1.Text;
  1 :edit2.Text;
  2 :edit3.Text;
 
end;

[Graffito]

Bonjour,

l'instruction :

form2.Table1.FindNearest([StrToInt(Edit2.Text)]);

est exécutée même si Edit2.Text=''.

Il me semble qu'il faudrait plutot écrire :

Code :

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

1
2
3
4
  if edit2.Text <>'' then begin
      form2.Table1.IndexFieldNames:='NumeroClient'; 
      form2.Table1.FindNearest([StrToInt(Edit2.Text)]); 
      end ;