Discussion :

[fab-6z]

Bonjour,

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

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 ^^

[Papy214]

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"

[SergioMaster]

Bonjour,

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

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

[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

[Papy214]

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 ;-)

[Charly910]

Oui, ce serait surement un bon exercice ...

[SergioMaster]

re,

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

Cela n'empêche rien, comme l'écrit 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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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