GESTION CONTACTS MAILS

Signaler
Messages postés
302
Date d'inscription
jeudi 29 septembre 2005
Statut
Membre
Dernière intervention
17 septembre 2013
-
Messages postés
675
Date d'inscription
jeudi 17 avril 2008
Statut
Membre
Dernière intervention
19 février 2019
-
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/53211-gestion-contacts-mails

Messages postés
675
Date d'inscription
jeudi 17 avril 2008
Statut
Membre
Dernière intervention
19 février 2019
14
Bonjour Yves
C'est normal, car c'est un bouton en couleur dont les fichiers d'installation sont joints au zip :
ButtonWithColor.dcu
ButtonWithColor.pas
ButtonWithColor.res
Il faut les installer avant de compiler
cordialement
Messages postés
637
Date d'inscription
mardi 22 avril 2003
Statut
Membre
Dernière intervention
9 janvier 2017

Bonjour,

Le message
" bValiderCONTACT n'a pas de composant correspondant..."

s'affiche à la compilations !

Salutations
Messages postés
302
Date d'inscription
jeudi 29 septembre 2005
Statut
Membre
Dernière intervention
17 septembre 2013
1
Salut,

je suis d'accord avec toi, mais tu dois alors prévoir une procédure pour chaque composant que tu utilises, imagine un super composant complexe trouvé sur le net qui possède une liste en propriété, avec une procédure générale, pas de problème. Tu pourrais d'ailleurs l'ajouter à ton unité et t'en servir en cas de besoin.

Luc.
Messages postés
675
Date d'inscription
jeudi 17 avril 2008
Statut
Membre
Dernière intervention
19 février 2019
14
Bonjour BECKERICH, merci de d'inrerresser à ce source.
En fait pour ADD particulièrement, dans ton système il faudrait écrire :

ADD(L1.items,'toto') pour un TlistBox
ADD(M1.lines,'toto') pour un Tmemo

dans mon cas c'est beaucoup plus simple, sans réfléchir si c'est un items ou un lines :
ADD(L1,'toto')
ADD(M1,'toto')
cordialement
Messages postés
302
Date d'inscription
jeudi 29 septembre 2005
Statut
Membre
Dernière intervention
17 septembre 2013
1
Bonjour Mister Dubois,

je regarde ton source SYSTUS à l'instant et ce qui me saute aux yeux :

procedure ADD(var O:TlistBox; z:string); begin O.Items.Add(z) end;
procedure ADD(var O:Tmemo; z:string); begin O.lines.add(z) end;
procedure ADD(var O:TcomboBox; z:string); begin O.items.add(z) end;
procedure ADD(var O:TstringList; z:string); begin O.add(z) end;

pourquoi ne pas faire une unique procédure

procedure ADD(O: TStrings; z: string); begin O.Add(z); end;

que tu appelles selon le composant

Add(Combo1.Items, 'toto') ou Add(Memo1.Lines, 'titi')...

je pense pareil pour CHG, ...

VIS(O: TWinControl); ... j'ai pas vérifié si la propriété Visible et la méthode BringToFront était accessibles.

et y regardant de plus près, il y en a certainement d'autres.

Ca peut diminuer le nombre de procédures. Tu as aussi peut-être de bonnes raisons de ne pas faire comme cela.

Bon travail.

Luc.