Добавить элемент в типизированный файл и его с отсортировать

[Valja]

Добавление элемента в типизированный файл. (с сортировкой). Добавление элементов сделано, а как сделать сортировку не знаю, голову уже сломала.

[Serge_Bliznykov]

на форуме сортировка решалась МНОГОКРАТНЕЙШЕ!

сходите, например, в эту тему и посмотрите мои посты (начиная с поcт #6 )

[Valja]

Возможно ли без массива отсортировать типизированный файл???Если да, то каким образом?

[Serge_Bliznykov]

Возможно ли без массива отсортировать типизированный файл???Если да, то каким образом?

можно.

I.
Третий том Д.Кнута. "Сортировка и поиск"
смотреть алгоритмы "ВНЕШНИХ СОРТИРОВОК"

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

II.
А чем сортировка через массив не устраивает?!

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


III.
В конце концов, если Вам глубоко плевать не эффективность,
то, извольте: можно использовать тот факт, что типизированные файлы - это файлы ПРЯМОГО доступа.
поэтому можно так (пишу прямо здесь, поэтому прошу за опечатки/неточности не корить):

  {сортировка типизированного файла f напрямую методом простых обменов ("пузырька") }
  CountRecN := FileSize(f);
  for i:=1 to CountRecN-1 do begin
    Seek(f,i-1);
    Read(f, Rec_I);
    for j:=i+1 to CountRecN do begin
      Seek(f,j-1);
      Read(f, Rec_J);      
      if Rec_I.Field4Sort > Rec_J.Field4Sort  then
        begin
          Seek(f, i-1);
          Write(f, Rec_J);
          Seek(f, j-1);
          Write(f, Rec_I);
          Rec_I := Rec_J; 
        end;
    end;

p.s. категорически не рекомендую данный способ использовать в целях иных, как написать код и спихнуть работу преподавателю! seek-и по файлу более чем N в квадрате, постоянные многочисленные операции записи в файл в произвольные места, при любой ошибке ввода-ввыода потеря данных (что-то не прочиталось, что-то не записалось)...
Брррр, жуть, короче!!!

[Valja]

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

[Serge_Bliznykov]

воля ваша...
Так Вы не ответили,
а чем Вас не устраивает решение через массив?!