Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Function TAddForm.SimilarGroups(Head, Temp: STGroup): Boolean;
- Var
- IsCorrect: Boolean;
- Current: STGroup;
- Begin
- Current := Head;
- IsCorrect := False;
- While Not(IsCorrect) and (Current <> Nil) do
- Begin
- IsCorrect := (Current^.Info.Data.GroupNumber = Temp^.Info.Data.GroupNumber)
- or (Current^.Info.Data.YearOfStart = Temp^.Info.Data.YearOfStart) or
- (Current^.Info.Data.Students = Temp^.Info.Data.Students);
- Current := Current^.Next;
- End;
- SimilarGroups := IsCorrect;
- End;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement