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

                                   72
cmAppendEmployee :
begin
FillChar( Data1 , sizeof (Data1) , ‘ ‘ );
GetData ( Data1);
Employee := new ( PEmployee , Init (. . . . . .));
MyCollection^ . Insert (Employee)
end;
End;
       Перед добавлением объекта в коллекцию можно запросить подтвер-
ждение вызовом функции MessageBox:
       if MessageBox (‘Объект будет добавлен в коллекцию’ , nil, mfOkBut-
ton) = cmOk then {объект добавляется в коллекцию}.
       5. Для просмотра коллекции лучше использовать итератор ForEach:
Procedure TMyApp.Show;
Procedure CallShow (p : Pperson); far;
begin
p^ . Show;
end;
begin
MyCollection ^. ForEach ( @CallShow ) ;
end;
       6. Поиск элемента в коллекции можно организовать по следующей
схеме:
       а) метод TMyApp.HandleEvent обрабатывает команду cmFindEm-
ployee, вызывая метод TMyApp. FindEmployee;
       б) метод FindEmployee создает диалоговое окно для ввода ключа по-
иска (например, фамилии служащего)
R . Assign(. . . . . );
MyDialog := New ( PMyDialog , Init( R, ‘ Поиск’ ));
R . Assign(. . . . . );
PInput := New ( PInputLine, Init (R, 30));
Insert ( PInput) );
R . Assign(. . . . . );
Insert ( New (PLabel, Init ( R, ‘Введите имя :’, PInput )));
R . Assign(. . . . . );
Insert ( New (PButton, Init ( R, ‘OK’,cmOk, bfDefault )));
R . Assign(. . . . . );
Insert ( New (PButton, Init ( R,’Cancel’, cmCansel, bfNormal )));
SelectNext(False);
       в) после ввода ключа поиска и окончании диалога по кнопке ОК вы-
зывается итератор FirstThat:
if DeskTop^ . ExecView (MyDialog)=cmCancel then exit