Logiciel à faire en Delphi

Bonjour,

Travaillant sur un programme en Delphi, je bloque sur des points. Ci-dessous mon sujet :

Citation:

---

Création d’un logiciel pour gérer les cours de musique et établir la facture trimestrielle de chaque élève.
Ce logiciel permettra de :
‐ Pouvoir permettre la saisie, modification, suppression par l’accueil de la participation d’un élève
à un cours (Nom élève, Professeur, Date)
- Les participations sont enregistrées dans un fichier texte depuis une list‐box., elles doivent
pouvoir être enregistrées et rechargées depuis ce fichier
‐ Permettre des recherches par élève et par professeur.
‐ Établir le montant à payer pour un élève en fin de trimestre en précisant le nom de l’élève depuis
le fichier historique des cours
‐ Établir le montant à payer (salaire) à un professeur en fin de trimestre en précisant le nom du
professeur.
‐ Afficher un récapitulatif des sommes à payer pour chaque élève
‐ Afficher un récapitulatif des sommes à payer à chaque professeur

---

Ci-dessous mon programme:
J'ai effectué la saisie dans une listbox, j'ai également un menu permettant d'enregistrer ou ouvrir ce qu'il y a dans ma listbox, tout fonctionne bien jusque la.
Je bloque à partir de la recherche par élève et par professeur... Comment effectuer une recherche dans une List-box ?
Merci d'avance de votre retour ^^

Pièce jointe 278387

Il faudrait décrire un peu plus précisément le fonctionnement attendu.
Faire une recherche comment ? A partir de quoi ?
Faut-il se baser sur les éléments saisis au-dessus ?
La recherche doit-elle se faire par saisie de caractères dans la liste ?
???????????
En 2 mots :
"Ce qui s'énonce clairement se conçoit bien"

Bonjour,

tout cela serait si simple avec une base de données :roll:

Dans votre cas on ne sait même pas comment vous avez traité la chose par exemple : Listbox.Items.Add ou Listbox.Items.AddObject bref une approche "ligne" ou une approche "Objet"

Plutôt que de nous montrer la partie interface utilisateur, il aurait mieux valu nous montrer votre code ou du moins certaines parties

Bonjour,
d'après le sujet, le stockage dans des fichiers txt est imposé.

C'est d'ailleurs une solution légère, rapide à mettre en œuvre et très performante pour de tout petits projets comme celui ci ?

Par contre, c'est vrai qu'il nous faudrait quelques précisions !

A+
Charly

Citation:

---

Envoyé par Charly910

Bonjour,
d'après le sujet, le stockage dans des fichiers txt est imposé.

C'est d'ailleurs une solution légère, rapide à mettre en œuvre et très performante pour de tout petits projets comme celui ci ?

Par contre, c'est vrai qu'il nous faudrait quelques précisions !

A+
Charly

---

un fichier txt peut toujours être chargé temporairement dans un dataset ;-)

Oui, ce serait surement un bon exercice ...

re,

Citation:

---

Envoyé par Charly910

d'après le sujet, le stockage dans des fichiers txt est imposé.

---

Cela n'empêche rien, comme l'écrit Papy214

Citation:

---

Envoyé par Papy214

un fichier txt peut toujours être chargé temporairement dans un dataset

---

ou encore dans une liste d'objets. De toute façon il est évident que le stockage dans le fichier txt doit à minima suivre certaines règles que se soit celle d'un format CSV ou d'un format de longueur fixe.

Utiliser une approche Objet serait quand même hyper formateur

A la volée je verrais bien ceci

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35

TCours = Class private FEleve : String; FProf : String; FDate : TDateTime; public property Eleve : String read FEleve write SetEleve; property Prof : String read FProf write SetProf; property DateCours : TDateTime read FDate write SetDateCours; constructor Create(Eleve,Prof, DateCours : String); end;   ... constructor TCours.Create(Eleve,Prof, DateCours : String); begin FEleve:=Eleve; FProf:=Prof; FDate:=StrToDateTime(DateCours); end;   procedure TCours.SetEleve(const value : String); begin FEleve:=Value; end;   procedure TCours.SetProf(const value : String); begin FProf:=Value; end;   procedure TCours.SetDateCours(const value : String); // petit doute ici begin FDate:=StrToDateTime(Value); end;

---

pour enregistrer dans une liste du coup

Code:

---

Liste.Items.AddObject(TCours.Create('toto','bigboss','25/05/2017 15:00'));

---

je ne sais plus si D7 permettait déjà la syntaxe for <unobjet> in <uneliste> si c'est le cas "balayer" la liste devient très simple

Code:

---

1 2 3 4 5 6 7 8

var unCours : TCours; begin for unCours in Liste do begin // traitement d'une ligne // on accéde à chaque élément par unCours.Eleve, unCours.Prof, unCours.DateCours end; end;

---

et si le for ... in n'est pas encore accepté la syntaxe est à peine plus difficile