Tryb drzewa | Tryb normalny

wyhylybymy · 22.10.2010 19:25

Witam..
Prosze o pomoc w napisani bazy danych w pascalu prawie cala mam napisana lecz jest problem przy procedurze usun gdyz nie usuwa ostat niego rekordu i w programi jest kilka bledow bardzo bym prosil o poprawienie mojego programiku jest to bardzo pilne. Odpowiedzi prosze tutal albo prosto na e-mail marik45@wp.pl

z gory dziekuje bardzo Smiles

**WebNuLL** · 22.10.2010 20:27

Przepraszam.

Czy śmiesz kpić Sobie z nas "programisto"?

Jak można udostępniać kod źródłowy w formacie .doc no nie to jakaś parodia...

-- WebNuLL

Propagandi · 23.10.2010 19:21

Niby jest ok, ale w praktyce przy usuwaniu ostatniego rekordu program zapętla się na pierwszym repeacie w procedurze i nie może wyjść. Wrzuciłem tam jakieś instrukcje warunkowe, żeby tym konkretnym przypadkiem zająć się osobno i jakoś śmiga. filesize(baza) zwraca liczbę rekordów w bazie.

Kod:

procedure usun;

 var numer:byte;

      temp: file of tdane;

      dane:tdane;

  begin

       write('Podaj numer rekordu do usuniecia: ');

       readln(numer);

       seek(baza,numer);

       if numer < filesize(baza) then

        begin

          assign(temp,'d:\temp.bin');

          rewrite(temp);

          repeat

           read(baza,dane);

           write(temp,dane);

          until eof(baza);

         seek(baza,numer-1);

         truncate(baza);

         seek(baza,filesize(baza));

         seek(temp,0);

         repeat

          read(temp,dane);

          write(baza,dane);

         until eof(temp);

         close(temp);

         erase(temp)

        end

       else if numer = filesize(baza) then

        begin

          seek(baza,numer-1);

          truncate(baza)

        end

       else writeln('Nie ma takiego rekordu w bazie');

  end;

Tryb drzewa \| Tryb normalny pomocy baza danych w pascalu
Autor	Wiadomość