2. Bayer-Bäume auf Hintergrundspeichern

1. sequentieller Zugriff
2. Index-Sequentieller Zugriff
3. Zugriff durch Bayer-Bäume

• einfache Implementierung

• viele Zugriffe auf den Hintergundspeicher
• langsam

• wenige Zugriffe auf den Hintergrundspeicher

• bei großen Datenmenge kann die Indextabelle die Größe des Arbeistspeichers überschreiten. In dem Fall ist eine Auslagerung von Teilen oder gleich der ganzen Indextabelle im Hintergrundspeicher notwendig womit der Geschwindigkeitsgewinn verloren geht.

• wenige Zugriffe auf den Hintergrundspeicher
• Zugriffszeit nimmt mit steigender Zahl von Datensätzen nicht stark zu

• Hardwareabhängig
• schwierig zu implementieren

Function LoadPage(Link: Longint): PPage;

Var I: Integer;
    Page: PPage;

Begin
     { ist Link korrekt ? }
     If (Link=Null) or (Link>FileSize(Datenbank)) Then
     Begin
          LoadPage:=Nil;
          Exit;
     End;
     { neue Page erstellen }
     New(Page);
     For I:=0 to maxElemente do
     Begin
          Page^.Elemente[I].Link:=Null;
          Page^.Elemente[I].Key:=0;
          Page^.Elemente[I].Info:=0;
     End;
     Page^.Anzahl:=0;
     If Link=Filesize(Datenbank) Then
     Begin
          LoadPage:=Page;
          Exit;
     End;
     { zur Page-Position sprigen }
     Seek(Datenbank,Link);
     { erstes Element einlesen }
     Read(Datenbank,Page^.Elemente[0]);
     { Schluessel vom ersten Element ist die Anzahl
       der Elemente in der Page }
     Page^.Anzahl:=Page^.Elemente[0].Key;
     { Elemente einlesen }
     For I:=1 to MaxElemente do
      Read(Datenbank, Page^.Elemente[I]);
     LoadPage:=Page;
End;

Procedure SavePage(Link: Longint; Page: PPage);

Var I: Integer;
    Element: TElement;

Begin
     If (Link=Null) or (Page=Nil) Then
      Exit;
     Seek(Datenbank,Link);
     Page^.Elemente[0].Key:=Page^.Anzahl;
     For I:=0 to MaxElemente do
      Write(Datenbank, Page^.Elemente[I]);
End;