Main

program WorkWithDatasets;

uses Dataset, Queries, Crt;

var
  Exhibition: TExhibition; {Один элемент}
  fDataset, fOtherDataset: TDataset; {Файл, содержащий элементы}


procedure ShowMenu;
begin
  WriteLn('[0] Выход');
  WriteLn('[1] Создать набор данных');
  WriteLn('[2] Добавить элемент в набор данных');
  WriteLn('[3] Показать содержимое набора данных');
  WriteLn('[4] Найти элемент по номеру');
  WriteLn('[5] Открыть существующий набор данных');
  WriteLn('[6] Добавить содержимое другого набора данных в текущий');
  WriteLn('[7] Изменить определенный элемент текущего НД');
  WriteLn('[8] Вставить новый элемент перед текущим');
end;

begin
  repeat {Альтернатива оператору GOTO}
    ClrScr;
    ShowMenu; {Показываем меню}
    Write('Введите номер пункта меню:  ');
    case StrToInt(ReadInput) of
      0: Break; {Прерываем цикл}
      1:
        begin
          ClrScr;
          Write('Имя файла НД [Пример: filename.dat]:  ');
          {ReadLn(DatasetFileName);}
          CreateDataset(fDataset, ReadInput);
          ReadLn;
        end;
      2:
        begin
{$I-}
          Reset(fDataset);
{$I+}
          if IOResult = 0 then
          begin
            Insert(fDataSet);
          end
          else
          begin
            ClrScr;
            WriteLn('Ошибка: НД не открыт. Пожалуйста выберите #1 чтобы создать НД или #5 чтобы открыть существующий НД');
          end;
          ReadLn;
        end;
      3:
        begin
{$I-}
          Reset(fDataset);
{$I+}
          if IOResult = 0 then
          begin
            ClrScr;
            PrintDataset(fDataSet);
          end
          else
          begin
            ClrScr;
            WriteLn('Ошибка: НД не открыт. Пожалуйста выберите #1 чтобы создать НД или #5 чтобы открыть существующий НД');
          end;
          ReadLn;
        end;
      4:
        begin
{$I-}
          Reset(fDataset);
{$I+}
          if IOResult = 0 then
          begin
            ClrScr;
            Write('Введите номер элемента:  ');
            PrintElement(fDataSet, StrToInt(ReadInput));
          end
          else
          begin
            ClrScr;
            WriteLn('Ошибка: НД не открыт. Пожалуйста выберите #1 чтобы создать НД или #5 чтобы открыть существующий НД');
          end;
          ReadLn;
        end;
      5:
        begin
          ClrScr;
          Write('Имя файла [Пример: filename.dat]:  ');
          {CloseDataset(DataSet);}
          OpenDataset(fDataSet, ReadInput);
          ReadLn;
        end;
      6:
        begin
          Write('Имя файла [Пример: filename.dat]:  ');
          {CloseDataset(DataSet);}
          if OpenDataset(fDataSet, ReadInput) then
          begin
            Write('Имя файла другого НД [Пример: filename.dat]:  ');
            {CloseDataset(OtherDataset);}
            if OpenDataset(fOtherDataset, ReadInput) then
            begin
              WriteFromDatasetToDataset(fDataSet, fOtherDataset);
              CloseDataset(fOtherDataset);
            end;
            ReadLn;
          end;
        end;
      7:
        begin
{$I-}
          Reset(fDataset);
{$I+}
          if IOResult = 0 then
          begin
            ClrScr;
            Write('Введите номер элемента:  ');
            if Update(fDataSet, StrToInt(ReadInput)) then
        begin
          ClrScr;
          PrintDataset(fDataSet);
          ReadLn;
        end;
          end
          else
          begin
            ClrScr;
            WriteLn('Ошибка: НД не открыт. Пожалуйста выберите #1 чтобы создать НД или #5 чтобы открыть существующий НД');
          end;
          ReadLn;
        end;
      8: InsertBeforePos(fDataSet, 1);
    else
      begin
        WriteLn('Ошибка: Выбран неверный пункт меню.');
        ReadLn;
      end;
    end;
  until false;
  ClrScr;
  WriteLn('Приложение будет закрыто. Нажмите любую клавишу.');
  ReadLn;
end.