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