/!\ ATTENTION CODE LOUCHE /!\
Si vous lisez le code avec la scrollbar verticale, vos yeux peuvent fondre ! Ceci est un effet indésirable non attendu suite à la redondance et à l'usage abusif de la fonction "copier/coller".
/!\ ATTENTION CODE LOUCHE /!\
Prenez votre souffle avant de passer sur les prêt de 400 TEdit avec chacun son .Clear (qui est fait ici avec un .Text='') et son propre OnChange.
/!\ ATTENTION CODE LOUCHE /!\
Ne cherchez pas d'utilisation de .Tag ou de Sender, imaginez vous des boucles For là où il n'y en a pas sous peine de vous perdre.
/!\ ATTENTION CODE LOUCHE /!\
Merci

Ca c'est bien repris :) Et avec des infos en plus dans les réponses.
Voir http://www.delphifr.com/code.aspx?ID=51822 pour la version cracra.

"je ne crois pas que nous sommes dans un cours officiel" : non mais dis toi que des débutants vont venir ici pour apprendre et se baser sur ces sources.
"tout programmeur peut coder comme il veut" : erreur, il y a des règles à respecter.
"il suffit que le programme fonctionne" : quand le code source n'est pas fourni "oui" sinon "non"
"en plus j'ai 16 ans" : bon anniversaire
"c'est mon premier programme en pascal" : ne te sens pas obligé de poster tous tes tests ici, le web regorge déjà de ces ... sources
"il n'y'a pas de quoi rire" : si :)

Bonjour,
Voici un bon exemple de "comment ne pas apprendre à coder" :
- Multidéclaration de string au lieu de tableaux (array)
- Redondance du code au lieu de créer des procédures et fonctions
- Ecrire le programme dans une langue inconnue (on dirait de l'anglais mais ... non en fait)

ps : Sans compter sur le non sérieux des questions qui "calculent votre QI" ;)

Bonne journée, j'ai bien ri :)

Hello
Je n'ai pas regardé le code mais l'idée est sympa.
Tu pourrais aussi faire l'inverse via une option, c'est à dire "N'autoriser QUE les CDs x, y, z ..."
Ca peut etre utile pour des écoles, administrations etc pour ne pas se faire véroler et interdite la lecture de TOUT autre CDs
non ?

Dommage que l'auteur ne mette pas à jour :/

Hello
pourquoi coder en dur 20 postes ?
j'ai 30 Pcs je fais comment ? et 100pcs ? un .ini serait pas mal pour paramétrer ce nombre non ?
De ce fait, les composant ne sont pas à dupliquer :/ au pire tu aurais du les créer dynamiquement afin de pouvoir justement choisir le nombre de postes mais à regarder d'un peu plus pret ... tu as utilisé un TPageControl au lieu d'un TTabControl :O
La différence est que le pagecontrol crée vraiment des pages différentes à chaque fois alors que le tabcontrol la meme page pour tous ses onglets, toi, c'est exactement ce que tu fais en dupliquant tes compos : toutes tes pages sont identiques !
Utilises donc un TTabControl et dans le OnChange des onglets tu charges infos de ce pc dans les bons champs !
Ensuiten tu peux avoir 10000 pcs, le seul code à modifier sera la création dynamique des 10000 onglets :D
Qu'en penses tu ?

Il est sous tes yeux
http://files.codes-sources.com/fichier.aspx?id=48134&f=RECHERCHE+OP.PAS

Oui je ne contrôle pas car on ne mets cette procedure QUE sur les listbox, donc vérif inutile à mon gout.

Hello
Pourquoi autant de redondance ? Et si j'avais 1000 listes ?

procedure Tf_Main.List1Click(Sender: TObject);
begin
  // On définit l'expression sélectionnée
  Liste[1] := List1.Items[List1.ItemIndex];
  // On l'affiche dans le TMemo
  PrintPipo;
end;

fois 9 !!!
Je te propose de mettre dans chaque .TAG de tes listes leur index puis mettre cette procédure unique pour toutes les listes :

procedure Tf_Main.ListXClick(Sender: TObject);
var MaListe: TListBox;
begin
  MaListe:= TListBox(Sender);
  // On définit l'expression sélectionnée
  Liste[MaListe.Tag] := MaListe.Items[MaListe.ItemIndex];
  // On l'affiche dans le TMemo
  PrintPipo;
end;

;)