Erreur dans un mémo

Résolu

Gwennie28 Messages postés 23 Date d'inscription jeudi 13 avril 2006 Statut Membre Dernière intervention 24 mai 2006 - 21 mai 2006 à 17:44
Gwennie28 Messages postés 23 Date d'inscription jeudi 13 avril 2006 Statut Membre Dernière intervention 24 mai 2006 - 25 mai 2006 à 01:36

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

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;

Gwenaëlle

A voir également:

Erreur dans un mémo
Erreur d'execution 9 ✓ - Forum Visual Basic 6
Erreur d'exécution 9 ✓ - Forum Visual Basic 6
Erreur d'exécution 424 ✓ - Forum Visual Basic
Créer un memo en ligne - Forum Delphi / Pascal
Erreur 424 "Objet requis" ✓ - Forum Visual Basic 6

25 réponses

Réponse 21 / 25

Gwennie28 Messages postés 23 Date d'inscription jeudi 13 avril 2006 Statut Membre Dernière intervention 24 mai 2006
23 mai 2006 à 20:21

Merci pour la correction;
mon site est http://student.vub.ac.be/~gpetrov/
cliquer sur delphi et download le lien. puis extracter et ouvrir

Gwenaelle

Gwenaëlle

Réponse 22 / 25

Utilisateur anonyme
23 mai 2006 à 20:53

Bonsoir à tous,

Tiens en revenant (Matt lol) : je sais les exams.

Oui il y avait une erreur dans le lien. J'ai regardé ton application Gwen :

Quelques petits beugs : Tes forms sont trop grandes (C'est pas cool si on doit changer la configuration du moniteur ). Impossibilité de fermer la fenetre directement par la croix (Et ca moi perso je trouve rien de plus gonflant ). Je n'ai pas vu de beugs.

Mon avis : Vu que tu es débutante et le temps que tu as mis ce n'est
pas mal. Par contre je ne comprends pas en regard des fiches pourquoi
tu as utilisé des procedures si complexe : il y avait beaucoup beaucoup
plus simple .

Perso je n'aurais pas fais du tout cela comme ca mais le résultat est honorable si tes profs ne sont pas exigeants.

J'ai testé aussi ton site (Je n'ai pas vu de beugs). Question source,
le spécialiste ici c'est fOxi donc je n'ai pas regardé le contenu des
pages.

Bonne continuation et comme on dit : un gros merde pour la présentation de ton travail .

@+

Réponse 23 / 25

Utilisateur anonyme
23 mai 2006 à 20:55

Mon Francais est une catastrophe : "Quelques petits beugs" à remplacer par "

Quelques petits problèmes":

Réponse 24 / 25

Matt 261 Messages postés 1173 Date d'inscription mercredi 2 novembre 2005 Statut Membre Dernière intervention 10 septembre 2011 3
24 mai 2006 à 14:23

Eh oui Francky, je me suis dis que ça faisait bien longtemps alors... je reviens... I'm believe I'm come from... lol.

<hr size="2" width="100%" />La paresse est la mère du génie...

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question

Réponse 25 / 25

Gwennie28 Messages postés 23 Date d'inscription jeudi 13 avril 2006 Statut Membre Dernière intervention 24 mai 2006
25 mai 2006 à 01:36

Merci ,
desoler je me suis debrouiller avec la base que j'avais recu et votre aide :)
En tt cas des que j'ai eu mes notes je vous le ferai savoir :)

Bisous a tous

Gwenaëlle

Discussions similaires

Débutant:couleurs dans un mémo ?

Erreur d’exécution 424 : objet requis

erreur d'execution 9

comment selectionner une ligne dans un memo

erreur d'execution '9'

Votre réponse

Discussions similaires