Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Procedure TRatingForm.FindGoodStudents(Temp: STGroup);
- Var
- CurrentNode: STGroup;
- Info: PRating;
- I: Integer;
- Begin
- CurrentNode := Temp;
- While CurrentNode <> Nil do
- Begin
- For I := Low(CurrentNode.Info.GroupStudents)
- to High(CurrentNode.Info.GroupStudents) do
- Begin
- If CurrentNode.Info.GroupStudents[I].FullName <> '' Then
- Begin
- New(Info);
- Info^.TeamCode := CurrentNode.Info.Data.Code;
- Info^.FullName := CurrentNode.Info.GroupStudents[I].FullName;
- Info^.Code := CurrentNode.Info.GroupStudents[I].Code;
- Info^.Marks := CurrentNode.Info.GroupStudents[I].Marks;
- InsertElement(GoodStudentsList, Info^);
- End;
- End;
- CurrentNode := CurrentNode^.Next;
- End;
- SortList(GoodStudentsList);
- OutputToTable;
- End;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement