TURBO PASCAL

Новости

Программы   

Turbo Pascal 

Игры

Документация   

Странности

FAQ

Ссылки

Форум

Гостевая книга

Рассылка

Благодарности

Об авторе

 

 

Перемещение по списку 

             Когда у вас есть список,  вы можете легко выполнять поиск  в
        нем конкретной  записи.  В Примере 8.9 показана функция,  которая
        находит первый счет с конкретной суммой и возвращает указатель на
        него.

             function FindCheckByAmount(AnAmount: Real): PCheck;
             var Check: PCheck;
             begin
               TempCheck := ListOfChecks;  { указывает на первую запись }
               while (Check^.Amount <> AnAmount) and
                                     (Check^.Next <> nil) do
                  Check := Check^.Next;
               if Check^.Amount = AnAmount then
                  FindCheckByAmount := Check    { возвращает указатель на
                                                  найденную запись }
               else FindCheckByAmount := nil;   { или nil, если таких
                                                  записей нет }
             end;

         B.Pascal 7 & Objects /UG   - 193 -


             Рис. 8.9 Поиск в связанном списке.

Содержание

На первую страницу

Rambler's Top100 Rambler's Top100
PROext: Top 1000

(с)Все права защищены

По всем интересующим вопросам прошу писать на электронный адрес

Hosted by uCoz