TURBO PASCAL

             Когда у вас есть список,  вы можете легко выполнять поиск  в
        нем конкретной  записи.  В Примере 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 Поиск в связанном списке.