Bonjour,
J'ai créé un formulaire avec 4 checkbox, pour une commande de cadeaux avec prix a côté.
J'ai un bouton total qui affiche le prix total à côté et un mémo qui reprend le détail des produit sélectionné.
Mon problème se situe au niveau de mon mémo, au premier clic sur le bouton total il m'affiche correctement les produits sélectionné,
mais si j'en déselectionne un ce qui à été affiché au premier clic reste affiché.
j'ai éssayé mémo.lines.clear.
pour faire en sorte qu'un texte s'affiche dans le mémo j'ai utilisé un array
comment pourrais-je faire en sorte qu'a chaque foi que je clic sur le bouton mon mémo se vide et affiche la sélection actuel

voici mon code source
[code]Type
  Taantalklikken = Array [0..3] of Integer; // de beste artikel
  TProducten = Array [0..3] of String[20];

var
 Form2: TForm2;
 I:Integer;
 Aantalklikken :Taantalklikken ;
 Producten : TProducten;

  implementation

uses Unit1, Unit3, UnitEind;

{$R *.dfm}


//_______________FormCreate__________

// Array : na een keer klikken komt er een message de voorschijn

procedure TForm2.FormCreate(Sender: TObject);
 var
  I : integer;
begin

 for I:=0 to 3 do
  AantalKlikken[i]:=0;

  Producten[0] := 'LoveHearts';
  Producten[1] := 'Kader';
  Producten[2] := 'Tas';
  Producten[3] := 'Bloemen';
   end;

//         Meerdere Functies bij deze button

procedure TForm2.ButtonTotaalClick(Sender: TObject);
var
 Totaal : Real;   // SOM MAKEN
 I:Integer; // ARRAY

//           ___________Begin Som Maken____________

Begin
 Totaal :=0;

 if checkbox1.Checked = true
  then Totaal := Totaal + 12.90;

 if checkbox2.Checked = true
  then Totaal := Totaal + 14.90 ;

 if checkbox3.Checked = true
  then Totaal := Totaal + 9.90 ;

 if checkbox4.Checked = true
  then Totaal := Totaal + 39.90;

 LabelTotaal.caption :=FloatToStr(Totaal);

//            end SOM maken

 ButtonBevestigen.Enabled:=True ;

//            ________Begin Array________

begin
 MemoTop.Lines.Clear;

 If Checkbox1.checked=True
  Then AantalKlikken[0]:= AantalKlikken[0] +1;

 If Checkbox2.checked=True
  Then AantalKlikken[1]:= AantalKlikken[1] +1;

 If Checkbox3.checked=True
  Then AantalKlikken[2]:= AantalKlikken[2] +1;

 If Checkbox4.checked=True
  Then AantalKlikken[3]:= AantalKlikken[3] +1;

                   // begin for to do
 For i := 0 to 3 do
  If AantalKlikken[i] >= 1
   then// als u bloemen niet aangevink zijn (verchillen van aanvinken)
   //dus bij aanklikken memo verschijnen
   memoTop.lines.add(Producten[i] + ' is uw gekozen product,');
   end;
end;[/code]

Gwenaëlle

merci d'avance

Gwenaëlle

et aller, c'est la fete de l'identifiant en allemand ...

pas envie de traduire ... ecrivez vos identifiants en anglais!

Ah non, pardon, à mon avis c'est du néerlandais...

"na een keer klikken komt er een message de voorschijn" mais qué que c'est que ça??? C'est absolument incompréhensible...
"pas envie de traduire ... ecrivez vos identifiants en anglais!" ou en français...

---

La paresse est la mère du génie...

merci
J'ai éssayé mais ou ça ne va pas ou j'ai des érreurs
vous n'auriez pas d'autres idées ?

et pour répondre aux autres c'est du Néerlandais!
Comme je suis à l'unniversité en néerlandais et que c'est mon travail de fin d'étude je suis obligée de le commanter en Néerlandais!
voila

merci

Gwenaëlle

Salut Gwen,

Si je peux me permettre je te conseille de reposter ta source en traduisant tout en Francais sinon tu risques de ne pas avoir de réponses. Ce n'est pas pour t'embeter mais on,doit comprendre à quoi correspondent tes identifiants (sinon on va lutter).

Merci à toi

@+

Salut Gwennie,

Dans le code envoyé, ta section __begin array__ fait partie de la procedure ButtonTotaalClick (il y déjà un begin et un end de trop: laisse le 1° begin et le dernier end).
Au début de la procedure tu remets Totaal = 0.
Donc chaque client  ne peut acheter chaque produit que 1 x
Puis tu augmente le stock vendu : AantalKlikken[0]:= AantalKlikken[0] +1;
Tu ajoutes les lignes dans ton memo si aantalklikken[...] >= 1 :  il est donc normal qu'après x passages par le bouton, tu gardes tous les produits dans le mémo !!!
Donc que veux-tu faire : afficher dans le memo les quantités par produit ? 
       ou  afficher le choix d'un seul client ?
 
A +
Thierry

Le voici en français

[code]Type
  Tnombredeclic= Array [0..3] of Integer;
  TProduits = Array [0..3] of String[20];//de zéro a trois car j'ai quatre checkbox

var
 Form2: TForm2;
 I:Integer;
 nombredeclic :Tnombredeclic ;
 Produits : TProduits;

  implementation

uses Unit1, Unit3, Unitfin;

{$R *.dfm}


//_______________FormCreate__________

// Array : Apres avoir cliquer une fois , y'a un texte qui s'affiche dans le mémo

procedure TForm2.FormCreate(Sender: TObject);
 var
  I : integer;
begin

 for I:=0 to 3 do
  Nombredeclic[i]:=0;

  Produits[0] := 'LoveHearts';
  Produits[1] := 'Cadre';
 Produits [2] := 'Tasse';
 Produits [3] := 'fleurs';
   end;

//         Plusieurs fonctions sur ce bouton

procedure TForm2.ButtonTotalClick(Sender: TObject);
var
 Total : Real;   // Pour faire la somme
 I:Integer; // Pour le Array

//           ___________Debut pour la somme____________

Begin
 Total :=0;

 if checkbox1.Checked = true
  then Total := Total + 12.90;

 if checkbox2.Checked = true
  then Total := Total + 14.90 ;

 if checkbox3.Checked = true
  then Total := Total + 9.90 ;

 if checkbox4.Checked = true
  then Total := Total + 39.90;

 LabelTotal.caption :=FloatToStr(Total);

//            end  de la somme

 ButtonConfirmer.Enabled:=True ;

//            ________Debut Array________

begin

 MemoTop.Lines.Clear;// ceci fait en sorte que quand on décoche et coche  le texte ne s'affiche pas plusieurs fois dans le mémo !!

 If Checkbox1.checked=True
  Then Nombredeclic[0]:= Nombredeclic [0] +1;

 If Checkbox2.checked=True
  Then Nombredeclic [1]:= Nombredeclic [1] +1;

 If Checkbox3.checked=True
  Then Nombredeclic [2]:= Nombredeclic [2] +1;

 If Checkbox4.checked=True
  Then Nombredeclic [3]:= Nombredeclic [3] +1;

                   // debut  for to do
 For i := 0 to 3 do
  If Nombredeclic [i] >= 1
   then// après avoir cliquer une fois sur le boutton total  le même enregistre les checkbox cocher et note les dans le mémo
   memoTop.lines.add(Produits[i] + ' est votre choix');
   end;
end;[/code]