Untitled

Posted on January 29, 2012, 1:22 pm UTC anonymously (about 25 days ago)

Code (highlighted for Text)

 Copy     Print
  1.  procedure szukaj(glowa : plista;Etykieta : string);
  2.          var
  3.          tmp : plista;
  4.          licznik : integer;
  5.          begin
  6.            licznik:=0;
  7.            while glowa <> nil do
  8.              begin
  9.               if (licznik = 0) AND (glowa^.etykieta = Etykieta) then
  10.                           begin
  11.                               tmp := glowa ;
  12.                               licznik := licznik + 1;
  13.                               glowa := glowa^.next;
  14.                               end;
  15.                              
  16.                if glowa^.Etykieta = Etykieta then
  17.                  begin
  18.                    licznik:=licznik +1;
  19.                  end;
  20.            
  21.                if licznik >1 then
  22.                 begin
  23.                
  24.                 dodaj_pod_liste(tmp^.glowa_pod,glowa^.glowa_pod^.Autor,glowa^.glowa_pod^.Tytul);
  25.                 end;
  26.                 if glowa^.next= nil then break;
  27.                             glowa:=glowa^.next;
  28.              end;
  29.          end;