Лабораторные работы / Laba10 / file

unit Dynfile;
interface

type
Info = record
ch: char;
end;
Tobj = ^S;
S = record
Inf: info;
Next: Tobj; {‘«Ґ¤гойЁ© ®ЎкҐЄв}
end;
Tfile = record
start: tobj;
ind: tobj;
end;

procedure ClearFile(var Ofile: Tfile); {1) Џа®жҐ¤га  ®зЁйҐ­Ёп Ї®б«Ґ¤®ў вҐ«м­®бвЁ}
function EmptyFile(var Ofile: Tfile): boolean; {2) ”г­ЄжЁп Їа®ўҐаЄЁ, Їгбв  «Ё Ї®б«Ґ¤®ў вҐ«м­®бвм?}
function addfile(var OFile: Tfile; data: info) : boolean; {3) „®Ў ўЁвм н«Ґ¬Ґ­в ў Ї®б«Ґ¤®ў вҐ«м­®бвм}
function GotostartFile(var Ofile: tfile): boolean; {4) ЏҐаҐ©вЁ Є ЇҐаў®¬г н«Ґ¬Ґ­вг}
function Notread(var Ofile: Tfile): boolean;{5) …бвм «Ё ­ҐЇа®зЁв ­­лҐ н«Ґ¬Ґ­вл?}
function GetFile(var Ofile: Tfile; var data: Info): boolean; {6) Џа®зЁв вм ®зҐаҐ¤­®© н«Ґ¬Ґ­в}
function NextFile(var Ofile: Tfile): boolean; {7) ЏҐаҐ©вЁ Є б«Ґ¤го饬㠭ҐЇа®зЁв ­­®¬г н«Ґ¬Ґ­вг}
function ScipFile(var Ofile: Tfile): boolean; {8) Џа®ЇгбвЁвм н«Ґ¬Ґ­в}

Implementation

procedure ClearFile(var Ofile: Tfile); {1) Џа®жҐ¤га  ®зЁйҐ­Ёп Ї®б«Ґ¤®ў вҐ«м­®бвЁ}
begin
Ofile.start:=nil;
Ofile.ind:=nil;
end;

function EmptyFile(var Ofile: Tfile): boolean; {2) ”г­ЄжЁп Їа®ўҐаЄЁ, Їгбв  «Ё Ї®б«Ґ¤®ў вҐ«м­®бвм?}
begin
EmptyFile:=ofile.start=nil;
end;

function addfile(var OFile: Tfile; data:info) : boolean; {3) „®Ў ўЁвм н«Ґ¬Ґ­в ў Ї®б«Ґ¤®ў вҐ«м­®бвм}
var tmp: tobj;
begin
Ofile.inD:=Ofile.start;
if ofile.start = nil then
begin
ofile.start^.inf:=data;
ofile.start^.next:=nil;
end
else
begin
while ofile.ind^.next <> nil do ofile.ind:=ofile.ind^.next;
new(tmp);
tmp^.inf:=data;
ofile.ind^.next:=tmp;
tmp^.next:=nil;
end;
end;

function GotostartFile(var Ofile: tfile): boolean; {4) ЏҐаҐ©вЁ Є ЇҐаў®¬г н«Ґ¬Ґ­вг}
begin
if Ofile.start =nil then GotostartFile:=false
else
begin
Ofile.ind := Ofile.Start;
GotostartFile:=true
end;
end;

function Notread(var Ofile: Tfile): boolean;{5) …бвм «Ё ­ҐЇа®зЁв ­­лҐ н«Ґ¬Ґ­вл?}
begin
Notread:=ofile.ind^.next <> nil;
end;

function GetFile(var Ofile: Tfile; var data: Info): boolean; {6) Џа®зЁв вм ®зҐаҐ¤­®© н«Ґ¬Ґ­в}
begin
if Ofile.ind = nil then GetFile:=false
else
begin
data:=Ofile.ind^.inf;
GetFile:=true;
end;
end;

function NextFile(var Ofile: Tfile): boolean; {7) ЏҐаҐ©вЁ Є б«Ґ¤го饬㠭ҐЇа®зЁв ­­®¬г н«Ґ¬Ґ­вг}
begin
if ofile.ind = nil then NextFile:=false
else
begin
NextFile:=true;
ofile.ind:=ofile.ind^.next;
end;
end;

function ScipFile(var Ofile: Tfile): boolean; {8) Џа®ЇгбвЁвм н«Ґ¬Ґ­в}
begin
if (ofile.ind = nil) or (ofile.ind^.next = nil) then ScipFile:=false
else
begin
ScipFile:=true;
ofile.ind:=ofile.ind^.next^.next;
end;
end;

end.