Теория и практика объектно-ориентированного программирования. Ноткин А.М. - 68 стр.

UptoLike

ВУЗ: 

ПНИПУ | Пермь

Составители: 

Рубрика: 

69
Function Equal (p : PPhone) : boolean ;f ar;
begin
Equal :=p^ . name=name
end;
Begin
Find:=p^ . FirstThat (@ Equal);
End;
Если коллекция − TSortedCollection и требуется выполнить поиск по клю-
чу, то можно использовать метод Search.
Function Search (key:pointer ; var Index : integer) : boolean;
virtual;
Возвращает True, если элемент, с заданным ключом key^, найден в отсор-
тированной коллекции. Если элемент найден, в Index помещается его ин-
декс, в противном случае индекс, который будет присвоен новому элемен-
ту при
его вставке в коллекцию.
Function Find (p:PMySortedCollection , name : string35): PPhone;
var k : integer;
ok : boolean;
Begin
ok := p^ . Search(@ name , k);
if ok then Find :=p^ . At(k)
else Find:=nil;
End;
Порядок выполнения работы.
1. Определить классы объектов, которые будут храниться в коллек-
ции. Использовать пользовательские классы предыдущей лабораторной
работы № 6 в соответствии со своим вариантом. Например, Temployee −
служащий.
2. Сформировать меню и строку статуса TV-программы. Меню
должно содержать следующие пункты:
• Поместить (в коллекцию служащего)
• Просмотреть (коллекцию)
• Поиск (служащего)
• Редактировать (служащего)
• Удалить (служащего)
• Сохранить (коллекцию)
• Загрузить (коллекцию)
• Сменить директорий
• Выход 
                                     69

               Function Equal (p : PPhone) : boolean ;f ar;
               begin
               Equal :=p^ . name=name
               end;
               Begin
               Find:=p^ . FirstThat (@ Equal);
               End;
Если коллекция − TSortedCollection и требуется выполнить поиск по клю-
чу, то можно использовать метод Search.
               Function Search (key:pointer ; var Index : integer) : boolean;
virtual;
Возвращает True, если элемент, с заданным ключом key^, найден в отсор-
тированной коллекции. Если элемент найден, в Index помещается его ин-
декс, в противном случае индекс, который будет присвоен новому элемен-
ту при его вставке в коллекцию.
          Function Find (p:PMySortedCollection , name : string35): PPhone;
          var k : integer;
              ok : boolean;
          Begin
              ok := p^ . Search(@ name , k);
              if ok then Find :=p^ . At(k)
              else Find:=nil;
          End;
     Порядок выполнения работы.
     1. Определить классы объектов, которые будут храниться в коллек-
ции. Использовать пользовательские классы предыдущей лабораторной
работы № 6 в соответствии со своим вариантом. Например, Temployee −
служащий.
     2. Сформировать меню и строку статуса TV-программы. Меню
должно содержать следующие пункты:
     •    Поместить (в коллекцию служащего)
     •    Просмотреть (коллекцию)
     •    Поиск (служащего)
     •    Редактировать (служащего)
     •    Удалить (служащего)
     •    Сохранить (коллекцию)
     •    Загрузить (коллекцию)
     •    Сменить директорий
     •    Выход

Страницы