I. NEUTRIEDENÝ SÚBOR S PRIAMYM PRÍSTUPOM (HEAP ...

procedure ZapisHeap (var Subor:= TypHeap, Oblast: TypZaznamu,
var Zapisany: boolean); {zapis vzdy na koniec suboru}
{bez kontroly duplicity}
begin
with Subor↑, Hlava do
begin
Zapisany:= false;
if PoslBlok = 0 then exit {subor je zaplneny}
if AktBlok =/= PoslBlok then
begin
if AktBlok =/= 0 then ZapisBlok (Data, Buffer, AktBlok);
CitajBlok (Data, Buffer, PoslBlok);
AktBlok:= PoslBlok; {v bufferi blok, do ktoreho zapiseme}
end; {nasleduje formovanie a zapis zaznamu}
inc (PoslZaznam); AktZaznam:= PoslZaznam;
Buffer.Zaznam [PoslZaznam]:= Oblast;
Buffer.Platny [PoslZaznam]:= true;
if PoslZaznam = PocZaz then {blok sa zaplnil}
begin
PoslBlok:= Buffer.DalsiVol {prechod na dalsi blok}
Volny:=PoslBlok;
Buffer.DalsiObs:= PoslBlok; PoslZaznam:= 0
end;
Zapisany:= true
end
end;
procedure CitajHeap (var Subor: TypHeap; K: TypKluca;
var Oblast: TypZaznamu; var Precitany: boolean);
var i, Zarazka: integer;
begin
with Subor↑ do
begin
Precitany:= false;
if Hlava.Obsadeny = 0 then exit {prazdny subor}
with Hlava do
if AktBlok = 0 then {Buffer prazdny}
begin
AktBlok:= Obsadeny;
CitajBlok (Data, Buffer, AktBlok)
end else
begin
ZapisBlok (Data, Buffer, AktBlok); {zachrana aktualneho pred prepisom}
Zarazka:= AktBlok {bude cyklicka prehliadka blokov od AktBlok}
end;
+Heap.doc Strana 4 z 5