Типизированный, нетипизированный, текстовый файл

[Андрос]

Итак, поиск вроде сделал по всему сто надо - наимен, артикуль, колич, стоимость. Чего хочу - чтобы пользователь, выбрав работу с тип. файлом, выбрав пункт 6 - поиск увидел перед собой 1 поиск по наимен 2 - поиск по.... и т.п. вот он выбрал какой нить вид поиска, произвел его,просмотрел результат на экране, а снизу сообщение типу "Для выбора операций с тип файлом нажмите любую клавишу" и у нас после нажатия откроется список операций -

viberite operaciy
    writeln('1 - Sozdat New File');
    writeln('2 - Open File and ADD record');
    writeln('3 - Prosmotr');
    writeln('4 - Korrektirovka');
    writeln('5 - POISK');
    writeln('6 - Vihod v osnovnoe memu'); -там где мы выбираем тип файла с которым работаем

Как сделать выход в основное меню? - никак не получается( подскажите пожалуйста
Вот Новый код программы

[Serge_Bliznykov]

Андрей, вот же Вы путаник!

выкладываю подправленный файл.
MEN3.txt

поиск у Вас с ошибкой. В любом случае будет писать
writeln('net takogo tovara! Press any key to continue');
уже мне лень исправлять, сами подправьте!

И ещё раз повторю. Так Вы далеко не уедете.
для того, чтобы созданный Вами код не оказался слишком сложным для Вас же, Вам нужно:
1) ОБЯЗАТЕЛЬНО структурировать код! Без этого в этой каше ногу сломать можно!

2) выделяйте куски кода в процедуры. Это повышает и наглядность и удобство отладки/модификации кода.
Например, каждую процедуру поиска можно вынести в отдельную процедуру (а если немножко поработать, то можно сделать ОДНУ процедуру, куда передавать имя файла и тип поиска и внутри процедуры написать примерно так

 procedure PokazatNaudennyeZapisi(fdFN : string; TipPoiska : integer);
var 
   fd: file of tov;
   sPoisk : string;
   kFound : boolean;
begin
  WriteLn( 'Что ищем: ' );
  Readln( sPoisk );

  kFound := false;
  assign(fd, fdFN );
  reset(fd);
  while (not eof(fd)) do begin
     read(fd, dan);
     if (TipPoiska=1) and (dan.artik = sPoisk)
          or 
        (TipPoiska=2) and (dan.naim = sPoisk)
          or  
        (TipPoiska=3) and (dan.kol = sPoisk)
          or  
        (TipPoiska=4) and (dan.stoim = sPoisk)
      then begin
          writeln(dan.artik, ' ', dan.naim, ' ', dan.kol, ' ', dan.stoim);
          kFound := true;
      end; 
    end;
    Close(fd);
    if Not kFound then
        WriteLn('net takogo tovara!');
    WriteLn;
    WriteLn('Press any key to continue');
    ReadKey; 
end;

[Serge_Bliznykov]

впрочем, ладно, раз уже процедуру поиска я почти написал, поправлю Ваш код на работу с этой процедурой..

вот изменённый код: MEN4.txt

[Андрос]

Сообщение от Serge_Bliznykov

впрочем, ладно, раз уже процедуру поиска я почти написал, поправлю Ваш код на работу с этой процедурой..

вот изменённый код: Вложение 55057

Вот наш измененный код с удалением:

[Андрос]

вот файл без ФД2 посмотрите корректировку,если не трудно. Разобрался, пропустил сеек перед врите в конце. Вроде все норм работает, У вас есть идеи по поводу нетип. файла?

Текстовый фай - создание/просмотр. В нем нужно сделать - создать новый, просмотр, открыть созданный для дозаписи. Ну как мы делали в типиз. файле. Это пока просто набросок на создание и просмотр, без дозаписи.

[Serge_Bliznykov]

выкладываю пример работы с нетипизированным файлом.

ещё раз повторю то, что я уже неоднократно говорил.
При создании нетипизированного файла у Вас ПОЛНОСТЬЮ развязаны руки в плане того, что и как в этот файл писать. Начиная с создания какой-то своей структуры (примитивный образец такой структуры воплотил я в своём примере) и заканчивая записью в файл индексов, вспомогательной информации, деревьев и т.д. и т.п. Кстати, используя в программе нетипизированный файл можно легко читать данные, сохранённые в ТИПИЗИРОВАННЫЙ файл на диске.
Так что, в примере одно из огромного множества вариантов.

по сути, в данном файле-примере записывает количество элементов в массиве, а после этого целиком весь массив (в моём примере в этом массиве 5 записей типа TOV - общий размер массива 230 байт).

Разбирайтесь.
Будут вопросы - милости прошу.

[Андрос]

Если не трудно ответьте прямо в коде под моими коментами, или поправьте если я не так написал свои коментарии. Если я правильно понимаю, то количество записей, которые мы можем ввести в нетип файл не может превышать 5, так??а если поставить что переменная SizeBuf = 50 - то 50 записей сможем ввести, и в коде ничего ненадо будет менять? Если не трудно расскажите немного о блокреад,блокврайт, точнее про параметры, чтоб стало немного понятнее. и если не трудно то про переменную kolvo - она имеет какое-то значение сразу и переменную ReadCount???
вот файл с процедурой и моими коментами...
-----
Вот скомпонованный файл программы с тип,нетип, текст. Только вот что то не получилось вставить проверку наличия номера записи в тип. файле на корректировку, удаление

if (nom>0) and (nom<FileSize(fd)) 
then   .... <код удаления>
else WriteLn('Нет записи с таким номером в файле!');

то у меня все время выводил нет такой записи, то выведит найденную запись а потом "нет записи с таким номером в файле" (
Хотелось бы разобраться до конца с нетипиз файлом и доделать этот недочет в проверкой номера. Может у Вас есть замечания, пока еще не отнес преподу на показ и есть немного времени что-то подшаманить?

[Serge_Bliznykov]

если поставить что переменная SizeBuf = 50 - то 50 записей сможем ввести, и в коде ничего ненадо будет менять?

в коде ничего не надо будет менять. А вот старый файл, созданный версией программы с другим буфером программа прочитать НЕ СМОЖЕТ! (нужно создать нетипизированный файл заново, с новым размером блока).

flagStopRead : boolean; {флаг проверки чего-то???}

флаг остановки чтения - если (вдруг) из файла прочитается меньше, чем мы расчитывали - это признак того, что произошла ошибка чтения, да и дальше читать не нужно

Rewrite(fnt,1) {открываем файл для записи, А ДЛЯ ЧЕГО 1,типа с первого номера буф. переменной?}

ни в коем разе! 1 - это размер блока, который мы будет писать в наш файл. 1 означает, что мы будем оперировать кусочками по 1(одному) байту.
Посмотрите, Вы же в своём сообщении на первой страницы темы приводили ссылки на описание работы с нетипзированным файлом. Там про блоки есть инфорация. Если единицу не указывать, то запись(чтение) будет производится блоками по 128 байт. (это наследие мрачных времён...)

Reset(fnt,1); {открываем для чтения, А ЗАЧЕМ 1??}

читать будем побайтно (см. комментарий выше)

{sizeOf(i) определяет размер памяти, который отводиться для переменной i}

это правильно. так и есть.

BlockWrite(fnt, Buf[1], SizeOf(Buf)); {теперь запишем массив записей целиком}
{Для чего 1 в Buf[1]??????????????}

на самом деле, в данном случае, можно писать и Buf[1] и просто Buf. в данном случае разницы нет.
чтобы не путаться, Вам лучше написать так:

BlockWrite(fnt, Buf, SizeOf(Buf));

BlockRead(fnt, Kolvo, sizeOf(Kolvo), ReadCount);
{Если не трудно объясните эту строку - записываем в файл из переменной kolvo далее определяем объем памяти для этой переменной и ...количество фактически переданных записей??? не понимаю}

нет. ЧИТАЕМ из файла fnt в переменную Kolvo число байт, равное размеру переменной Kolvo. Число фактически прочитанных байт процедура чтения возвращает в переменной ReadCount. очевидно, что если мы хотели прочитать 2 байта и ReadCount вернула 2, значит процедура успешно два байта и прочитала.
Если число, сколько мы хотели прочитать не совпадает с тем числом, которое фактически прочиталось, значит имеется какая-то проблема чтения, нужно материться, работать дальше смысла нет. А в данном коде ошибку не выдаю, чтобы не усложнять код...

теперь по поводу удаления.
там у вас всё было закомментирвоано.
расскомментировал. добавил провавший куда-то end
проверил, всё работает. я не знаю, что Вы делаете не так!

на всякий случай привожу пример кода, который я тестировал:

       6: {delete}
       begin

         Assign(fd, fdFileName);
         reset(fd);

         writeln('Vvedi nomer zapisi');
         readln(nom);

         if (nom>0) and (nom<FileSize(fd))
         then   begin
           seek(fd,filesize(fd)-1);
           read(fd,dan);
           seek(fd,nom-1);
           write(fd,dan);
           {del last element}
           seek(fd,filesize(fd)-1);
           truncate(fd);
           close(fd);
           WriteLn; WriteLn('Zapis Deleted! ***Press Enter to continue');
         end
         else writeln('V File net zapisi s takim nomerom');
         Readln;
       end; 
       
       end; {case ct}


    until ct=7;

[Андрос]

Сегодня ходил показывать. Рассказываю...

1) В общем необходимо еще в тип. файле сделать сортировку по любому полю, я думаю на стоимости будет проще...Препод что то про метод пузырька говорил, по цене типу от меньшей к большей. типу сделать пункт сортировка по цене, выбираем его и показываются отсортированные по цене записи. Меня смущает еще одно - мы же удаление записей делали нестандартно - т.е порядок строк нарушается, это нам не помешает сделать сортировку? просто отсортировать и вывести на экран - никуда не записывая.

вот что то нашел, но не знаю, это наверн не пузырек? http://www.cyberforum.ru/pascal/thread39220.html

2) Потом про текстовый файл. Там где мы делали добавить запись в существующий файл, нужно делать это через процедуру append.
Потом, сказал сделать так - сделать еще одну переменную типа стринг, и в нее засунуть наш вывод информации, чтобы как бы данные записывались и хранились в файле не через новую строку, а чтобы вся инфа шла строкой, длинна которой не должна превышать 256 символов(

3) про нетип файл много писать - отпишусь вечером.

[Андрос]

Итак,1 проблему в текстовом файле с функцией Append я решил, теперь нормально добавляет запись в существующий файл, но не могу решить проблему с выводом информации в строку. Переменную str1 сделал, в нее вроде закинул данные, НО выводиться только последняя запись, а как исправить чтобы все записи которые мы ввели были в нашей переменной str1 и вывелись в строчку не превышающую 256 символов???

2 - сортировку начал пробовать делать , но не получается, ругается "тайп маш" не совсем понимаю как и где исправить...Данные отсортированные нам нужно просто вывести на экран после сортировки и все...

3 - про нетипиз файл препод сказал что мы в нашей проге читаем по 1 байту, а это очень долго, сказал определять куски на которые будет разбиваться наш файл нужно исходя от характеристик венчестера???
Дал код программы из книги где делают по другому, ниче не пойму, он сказал что там что-то разбивает на 15000??? Вот фото ксерокопии что он дал, можете посмотреть и подсказать с поправкой кода?

Вот последняя версия исходника...