home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1990 / 02 / praxis / such.prn < prev   
Encoding:
Text File  |  1990-01-04  |  711 b   |  21 lines
  1. PROCEDURE finde_index;
  2. VAR
  3.   spez_index : INTEGER;
  4. BEGIN
  5.   Write(' Indexnummer des Listenelementes ? ');
  6.   ReadLn( spez_index );
  7.   lauf := top^.next;                     (* Listenanfang *)
  8.   WHILE ( lauf^.index <> spez_index ) AND
  9.         ( lauf^.next <> NIL         ) DO
  10.     lauf := lauf^.next;          (* sequentielles Suchen *)
  11.   IF lauf^.index = spez_index THEN           (* gefunden *)
  12.     WITH lauf^.d_satz DO BEGIN
  13.       WriteLn( 'Nachname : ', nachname );
  14.       WriteLn( 'Vorname  : ', vorname );
  15.       WriteLn( 'Straße   : ', strasse );
  16.       WriteLn( 'Plz      : ', plz );
  17.       WriteLn( 'Ort      : ', ort );
  18.     END ELSE
  19.       WriteLn(' Listenelement nicht gefunden ! ');
  20. END;
  21.