Noobowskie pytanie dotyczace Pascala ;)

15.03.2008

16:30

[1]

XazaX [ Chor��y ]

Noobowskie pytanie dotyczace Pascala ;)

Mam taki oto programik:

program Operacje_na_plikach;
uses crt;
‹$I-›
const
____ plik:string='ksiazki.txt';
type
____ksiazka=record
__________________autor:string;
__________________tytul:string;
__________________rokwyd:word;
____end;
var
__ ksx:ksiazka;
__ dane:file of ksiazka;
procedure wczytaj(var ks1:ksiazka);
__________begin
______________ with ks1 do
______________ begin
____________________write('Podaj Autora ksiazki: ');
____________________readln(autor);
____________________write('Podaj tytul ksiazki: ');
____________________readln(tytul);
____________________write('Podaj rok wydania ksiazki: ');
____________________readln(rokwyd);
______________ end;
__________end;
procedure wypisz(ks1:ksiazka);
__________begin
______________ writeln(' ');
______________ writeln('************************');
______________ writeln('Autor: ',ks1.autor);
______________ writeln('Tytul: ',ks1.tytul);
______________ writeln('Rok wydania: ',ks1.rokwyd);
__________end;
procedure zapiszDoPliku(ks1:ksiazka);
__________begin
______________ assign(dane,plik);
______________ rewrite(dane);
______________ write(dane,ks1);
______________ close(dane);
__________end;
procedure dopiszDoPliku(ks1:ksiazka);
__________begin
______________ assign(dane,plik);
______________ reset(dane);
______________ seek(dane,filesize(dane));
______________ writeln('Numer wskaznika: ',filesize(dane));
______________ wczytaj(ks1);
______________ write(dane,ks1);
______________ close(dane);
__________end;
procedure czytajZpliku(var ks1:ksiazka);
var
__ i:integer;
__________begin
______________ assign(dane,plik);
______________ reset(dane);
______________ for i:=1 to filesize(dane) do
______________ begin
______________ wypisz(ks1); <-------- Tu cos nie gra
______________ end;
______________ close(dane);
__________end;
procedure wypiszPlik;
__________begin
__________end;
begin
wczytaj(ksx);
wypisz(ksx);
zapiszDoPliku(ksx);
writeln(' ');
writeln('************************');
dopiszDoPliku(ksx);
czytajZpliku(ksx);
wypiszplik;
readkey;
end.

Chodzi o to, ze w zaznaczonym przeze mnie miejscu procedura ma wyrzucac na ekran zapisane wczesniej w pliku dane o ksiazkach (z pierwszego i drugiego rekordu, a w tym momencie wypisuje tylko z pierwszego dwa razy:/) . Wczytywanie, zapisywanie i dopisywanie dzialaja elegancko, ale za cholere nie moge tej piepszonej petli zrobic :P

Pomoze ktos? :)

XazaX [ Chor��y ]

up