ComboBox & memo - Help

bonjour,

j'ai debuté delphi il n'y a pas très longtemps donc je suis assez debutant dedans :bug:

voila mon prob: en gros, je veux arriver à changer le contenu de ma memo en fonction de ma combobox, ce qui est tout à fait faisable.

Voila le code que j'ai fait jusqu'à présent:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

procedure TfrmStudentEntry.CboCourseChange(Sender: TObject); var position : integer; begin AssignFile (CourseFile, 'Course.dat'); Reset (CourseFile); If cboCourse.ItemIndex = 0 then begin Position := 0; Seek (CourseFile, Position); // trouver le bon record   // donc ici, je veux chercher le course name et l'afficher dans ma memo mais je sais pas tres bien comment faire   Read (CourseFile, TempCourse.Name); // read field from the course file memCourse.Text := TempCourse.Name; // afficher le coursename dans le memo   end; CloseFile (CourseFile); end;

---

Ya pas quelqu'un qui aurait une facon simple et structuré de faire tout ca?

:merci: braecking

C'est peu clair.
Ton code semble essayer de lire un fichier pour l'afficher dans un TMemo.
Quel rapport avec une comboBox ?

Si tu veux afficher un fichier dans un TMemo Je te conseille plutôt de passer par le fait que le contenu d'un TMemo est une tStrings donc tu peux faire :

Code:

---

1 2 3

memCourse.Lines.clear; memCourse.Lines.LoadFromFile('Course.dat');

---

re,

le but de mon opération c'est de décrire different cours... donc quand je selectionne un cours dans ma combobox, le programme va aller chercher toute les info necessaire dans mon fichier pour décrire le cours dans ma Tmemo.

Mais bon comme je débute, j'ai un peu de mal pour réaliser cette ptite opération

Personne ne sait m'expliquer comment faire?

Il y a pas mal de solutions.
La plus simple :
*tu crées un repertoire avec tous tes cours. Nom du fichier = nom du cours.
*quand tu crées ta combo tu la remplis avec la liste des fichiers de ce répertoire (sans l'extension)
*quand tu user choisit un des items de ta combo tu lance le code que je t'ai indiqué.

Essaye de faire ça et indique nous où tu bloques.

re,

voila j'ai essayé ton code, j'arrive à lancer mon programme, mais quand je clique sur un item dans ma combo box j'ai une erreur 'Cannot open file Course.dat'.

voila mon code:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

procedure TfrmStudentEntry.CboCourseChange(Sender: TObject); var position : integer; begin AssignFile (CourseFile, 'Course.dat'); Reset (CourseFile); If cboCourse.ItemIndex = 0 then begin Position := 0; Seek (CourseFile, Position); Read (CourseFile, TempCourse); memCourse.Lines.Clear; memCourse.Lines.LoadFromFile ('Course.dat'); end; CloseFile (CourseFile); end;

---

A propos, juste un petit truck à éclaircir, le fichier Course regroupe tout les cours donc je n'ai pas pour chaque cours un fichier indépendant:mrgreen:

:merci: pour les réponses!