Advertisement
altervisi0n

Untitled

Jun 1st, 2023
67
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.80 KB | None | 0 0
  1. Procedure TRatingForm.FindGoodStudents(Temp: STGroup);
  2. Var
  3. CurrentNode: STGroup;
  4. Info: PRating;
  5. I: Integer;
  6. Begin
  7. CurrentNode := Temp;
  8. While CurrentNode <> Nil do
  9. Begin
  10. For I := Low(CurrentNode.Info.GroupStudents)
  11. to High(CurrentNode.Info.GroupStudents) do
  12. Begin
  13. If CurrentNode.Info.GroupStudents[I].FullName <> '' Then
  14. Begin
  15. New(Info);
  16. Info^.TeamCode := CurrentNode.Info.Data.Code;
  17. Info^.FullName := CurrentNode.Info.GroupStudents[I].FullName;
  18. Info^.Code := CurrentNode.Info.GroupStudents[I].Code;
  19. Info^.Marks := CurrentNode.Info.GroupStudents[I].Marks;
  20. InsertElement(GoodStudentsList, Info^);
  21. End;
  22. End;
  23. CurrentNode := CurrentNode^.Next;
  24. End;
  25. SortList(GoodStudentsList);
  26. OutputToTable;
  27. End;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement