Реферат: Разработка информационно-поисковой системы Ювелирные изделия
Close(F);
end;
{--------------------------------------------------------------------}
while not EOF(F) do
{--------------------------------------------------------------------}
procedure delete;
var
del, i: integer;
data: Jeverly;
G: File of Jeverly;
begin
{$I-}
Assign(F, name);
Reset(F);
{$I+}
if IOResult<>0 then
begin
clrscr;
Write('Анечегоудалять!');
readkey;
Exit;
end
else
begin
if FileSize(F)=0 then
begin
clrscr;
Write('Файл пуст!');
readkey;