Unit Soru;
{Sor unit - P.M. 1.evf, 2.fv - HBV}

Interface

Type TelemTip=string;
     TSorElemmut=^TSorElem;
     TSorElem=Record
              ertek:TelemTip;
              mut:TSorElemMut;
              End;
     Tsor=Object
          private
           eleje,vege:TSorelemmut;
           hiba:boolean;
          Public
           Procedure ures;
           Function ures_e:boolean;
           {Function vege_e:boolean;}
           Function tele_e:boolean;
           {Function hibas_e:boolean;}
           Procedure sorbol(var e:TelemTip);
           Procedure sorba(e:Telemtip);
           Function elso:Telemtip;
     End;

Implementation

Procedure Tsor.ures;
Begin
  hiba:=false;
  eleje:=nil;
  vege:=nil;
End;

Function tsor.ures_e:boolean;
Begin
  ures_e:=(eleje=nil);
End;

Function tsor.tele_e:boolean;
Begin
  if maxavail<sizeof(Tsorelem) then tele_e:=true
    else tele_e:=false;
End;

Function tsor.hibas_e:boolean;
Begin
  hibas_e:hiba;
  hiba:=false;
End;

Procedure tsor.sorba(e:TelemTip);
var sv:Tsorelemmut;
Begin
  if Tele_e then hiba:=true
      else begin
             new(sv);
             if ures_e then begin
                    sv^.ertek:=e;
                    sv^.mut:=nil;
                    eleje:=sv;
                    vege:=eleje; end
                  else begin
                    sv^.ertek:=e;
                    sv^.mut:=nil;
                    vege^.mut:=sv;
                    vege:=sv; end End;
        End;

Procedure tsor.sorbol(var e:Telemtip);
var sv:Tsorelemmut;
Begin
  If ures_e then hiba:=true
       else begin
          e:=eleje^.ertek;
          sv:=eleje;
          eleje:=eleje^.mut;
          if eleje=nil then vege:=nil;
          dispose(sv);     {*** itt dispose(eleje) volt
                                    elejet mar megvaltoztatta}
          End;
        End;

Function tsor.elso:TelemTip;
begin
  if ures_e then hiba:=true
       else elso:=eleje^.ertek;
End;

End.