Вопросы к экзамену с ответами и демо-программами на Паскале / ex24

program GalkaVV;
uses AbsObj,crt;
type

PParamItem=^TParamItem;
TParamItem=record
Name,Value:string;
end;

PParamFifo=^TParamFifo;
TParamFifo=object (TFifo)
{ private
AList,BList:PListItem;
public
constructor Init;
destructor Done;
procedure Put(Element: pointer);
function Get:pointer;}
procedure SetParam(AName,AValue:string);
function GetParam(AName:string):string;
procedure FreeItem(AItem: pointer); virtual;
end;

procedure TParamFifo.FreeItem(AItem: pointer);
var
Tmp:PParamItem;
begin
Tmp:=AItem;
Dispose(Tmp);
end;

procedure TParamFifo.SetParam(AName,AValue:string);
var
Tmp:PParamItem;
begin
New(Tmp);
Tmp^.Name:=AName;
Tmp^.Value:=AValue;
Put(Tmp);
end;

function TParamFifo.GetParam(AName:string):string;
var
TmpList:PListItem;
Tmp:PParamItem;
Str:string;
begin
Tmplist:=AList;
while TmpList<>nil do
begin
Tmp:=TmpList^.Data;
if Tmp=nil then TmpList:=TmpList^.Next
else
if AName<>Tmp^.Name then TmpList:=TmpList^.Next
else
begin
GetParam:=Tmp^.Value;
exit;
end;
end;
if TmpList=nil then GetParam:='';
end;
var
List:PParamFifo;
begin

New(List,Init);
with List^ do
begin
SetParam('Name1','Value4');
SetParam('Name2','Value3');
SetParam('Name3','Value2');
SetParam('Name4','Value1');
writeln(Getparam('Name8'));
writeln(Getparam('Name1'));
writeln(Getparam('Name3'));
end;
Dispose(List,Done);
end.