Advertisement
altervisi0n

Untitled

Jun 1st, 2023
54
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.50 KB | None | 0 0
  1. Function TAddForm.SimilarGroups(Head, Temp: STGroup): Boolean;
  2. Var
  3. IsCorrect: Boolean;
  4. Current: STGroup;
  5. Begin
  6. Current := Head;
  7. IsCorrect := False;
  8. While Not(IsCorrect) and (Current <> Nil) do
  9. Begin
  10. IsCorrect := (Current^.Info.Data.GroupNumber = Temp^.Info.Data.GroupNumber)
  11. or (Current^.Info.Data.YearOfStart = Temp^.Info.Data.YearOfStart) or
  12. (Current^.Info.Data.Students = Temp^.Info.Data.Students);
  13. Current := Current^.Next;
  14. End;
  15. SimilarGroups := IsCorrect;
  16. End;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement