Discussion :

[sondo]

Salut à tous,

J'ai 14 Edit sur une fiche. La dernière Edit doit faire la somme des montants saisie dans les autres Edit. Je veux faire de tel sorte qu'en saisissant un chiffre dans n'importe qu'elle Edit, que la somme s'affiche automatiquement dans un Edit qui accueillera le montant total.
Donc en somme je veux écrire mon code dans le OnChange de chaque Edit. J'ai d'abord fait un test avec 2 Edit mais je rencontre des problèmes. Voici le 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.Edit4Change(Sender: TObject);
var a, b, s : integer;
begin
  if length(Edit4.text) > 0 then
     a := StrToInt(Edit4.text)
  Else a :=0;
  if length(Edit44.text) > 0 then
       b := StrToInt(Edit44.text)
  Else b :=0;
  s := a + b;
  Edit57.Text := IntToStr(s);
end;

A l'exécution, il y'a un EConvertError avec le message Edit44 n'est pas une valeur entière correcte. Merci de me guider.

[Aos]

T'es bien sur que ton edit44 ne contient pas autre choses que des chiffres?
C'est a dire, pas de virgule, rien d'autre que des chiffres de 0 à 9.

et pas de chaine vide non plus

[qi130]

1/ La procedure s'appelle Edit4OnChange, et tu y traites Edit44.

2/ Si tu envisages de faire la même chose pour tous les TEdit intermédiaires, bon courage !!!!
Je verrais plutôt une procédure "banalisée" sur laquelle tous les OnChange des TEdit pointent, et qui commencerait comme ça:

Code :

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

1
2
3
4
5
6
7
procedure TForm1.Edit4Change(Sender: TObject);
var a, b, s : integer;
begin
  if length((Sender as TEdit).text) > 0 then
     a := StrToInt((Sender as TEdit))
  Else a :=0;
etc....

et qui se terminerait en faisant le total à l'aide d'une boucle utilisant FindComponent

[sondo]

Salut,

Pour le code de qi130 il y'a Erreur : Types incompatibles : 'String' et 'TEdit'.
Tu fais cas d'une boucle utilisant FindComponent; peux-tu me donner aussi un exemple.
Pour le StrToIntDef de sat83, cela a résolu le problème de l'exception si la chaine de caractère contient autre chose qu'un nombre correct.
Merci à vous tous.

[Cl@udius]

Salut

peux-tu me donner aussi un exemple. Merci d'avance.

En supposant que tes TEdit se nomme Edit1 à Edit14:

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
 
procedure TForm1.EditChange(Sender: TObject);
const
  NB_EDIT = 14;
var
  Compo: TEdit;
  I, Somme, Val: Integer;
begin
  Somme := 0;
  for I := 1 to NB_EDIT do
  begin
    Compo := TEdit(FindComponent('Edit' + IntToStr(I)));
    TryStrToInt(Compo.Text, Val);
    Somme := Somme + Val;
  end;
  EditSomme.Text := IntToStr(Somme);
end;

Cette procédure étant affectée sur le OnChange de tes 14 Tedit.

@+ Claudius

[sondo]

Salut Cl@udius,

J'utilise Delphi 5 qui ne reconnait pas TryStrToInt. J'ai utilisé StrToIntDef à la place, mais le calcul n'est pas fait. Quand je saisie dans des chiffres dans les Edit il y'a un Zero qui s'affiche dans EditSomme.Text.

[Cl@udius]

En supposant que tes TEdit se nomme Edit1 à Edit14:

Donc oublies la constante, et remplace la boucle par:

Code :

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

for I := 44 to 57 do

@+

[sat83]

Regarde du coté de StrToIntDef ou TryStrToInt qui te permetront d'éviter une exception si la chaine de caractère contient autre chose qu'un nombre correct.