Unit TabLancK;
  Interface
    Uses ObjLista;
         {Import: ElemTip=Record
                            nev:String; szsz:String[11]
                          End;
         }
    Type KulcsT=String;
         ElemT=TElemtipus;
    Function Kulcs(e:ElemT):KulcsT;
    Const Meret=50;

    Type  TTablazat=Object
                private
                      tab:Array [1..Meret] of TLista{ElemT};
                      hiba:Boolean;
                      akt:0..Meret;
                      db:Word;
                public
                      Procedure Ures;
                      Procedure Beilleszt(Const e:ElemT);
                      Procedure Torol(Const k:KulcsT);
                      Function  Siker:Boolean;
                      Function  ElemSzam:Word;
                      Procedure Listaz;
                    End;



  Implementation
    Uses Crt;

    {k”z”s glob lis seg‚dv ltoz˘k:}
    Var k:Word;
        kk:KulcsT;

    Function Hash(k:KulcsT):Word;
    Begin
      {... ide kell vmi jobb hash-fv ...}
      Hash:=(Ord(k[1])-Ord('A'))*Meret Div (Ord('Z')-Ord('A'))
    End;{Hash}

    Function Kulcs(e:ElemT):KulcsT;
    Begin
      Kulcs:=e.nev
    End;{Kulcs}

    Procedure TTablazat.Ures;
      Var i:Word;
    Begin
      for i:=1 to n do begin
        tab[i].ures;
      end;
    End;{UresTab}

    Function VanE(Var tl:TLista{ElemT};Const k:KulcsT):Boolean;
    Begin
    End;{VanE}

    Procedure TTablazat.Beilleszt(Const e:ElemT);
    Begin
    End;{BeillesztTab}

    Procedure TTablazat.Torol( Const k:KulcsT);
    Begin

    End;{TorolTab}

    Function TTablazat.Siker:Boolean;
    Begin
    End;{SikerTab}

    Function TTablazat.ElemSzam:Word;
    Begin
    End;{ElemSzamTab}

    Procedure TTablazat.Listaz;
      Var i,idb:Integer;
          e:ElemT;
    Begin
    End;{ListazTab}

Begin
End.