Замена Seek

[fedorova-nusa]

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

Скажи. Иначе судя по всему он хочет чтоб программа считала весь файл базы в некий динамический массив, и работа шла уже с ним а не с файлом.

Теоретически да, но на практике тебе нормальный препод бы заулыбал зачетку за такую программу. Не по феншую все поля хранить в виде строк, несмотря на то что это допустимо и используется в форматах типа DBF, я не рекомендую так тебе
делать.
Но уж если хочешь геморроя то вот:

writeln('Дата вклада: ',copy(k.elem[5],1,2),'.',copy(k.elem[5],3,2),copy(k.elem[5],5,4));

Формат даты обязан быть в виде ddmmyyyy без разделителей.

Спасибо вам большое за помощь))

[fedorova-nusa]

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

Скажи. Иначе судя по всему он хочет чтоб программа считала весь файл базы в некий динамический массив, и работа шла уже с ним а не с файлом.

Теоретически да, но на практике тебе нормальный препод бы заулыбал зачетку за такую программу. Не по феншую все поля хранить в виде строк, несмотря на то что это допустимо и используется в форматах типа DBF, я не рекомендую так тебе
делать.
Но уж если хочешь геморроя то вот:

writeln('Дата вклада: ',copy(k.elem[5],1,2),'.',copy(k.elem[5],3,2),copy(k.elem[5],5,4));

Формат даты обязан быть в виде ddmmyyyy без разделителей.

А можете мне еще помочь? у меня пункт 6(в меню) не работает вообще

[Serge_Bliznykov]

Сообщение от fedorova-nusa

А можете мне еще помочь? у меня пункт 6(в меню) не работает вообще

что значит "не работает вообще" ?!
А куда делась ваша процедура

PROCEDURE vivod;

??!

[fedorova-nusa]

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

что значит "не работает вообще" ?!
А куда делась ваша процедура
??!

неправильно выразилась, неправильно она работает, вывод все равно в произвольном порядке, доработать ее надо, а я не знаю как(

[Stilet]

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

[Serge_Bliznykov]

Если тебе что-то не нравится, то ошибку нужно искать в процедуре сортировки.

Виталий, там в процедуре вывода Vyvod() вообще нет никакой сортировки.
Хотя, судя по названию пункта меню - она там ДОЛЖНА быть.

fedorova-nusa, если можно допустить, что число записей в файле может быть искусственно ограничено (ну, например, не больше 500 записей), тогда всё очень просто - объявляете обычный массив, в цикле грузите все записи из файла в этот массив, сортируете его (хоть пузырьком, хоть методом простых обменов),
полученный отсортированный массив выводите на экран.
Алгоритм решения понятен?


p.s. вот, у Вас в программе есть массив mas1:

 mas1 : ARRAY[0..100] of elem;

для чего он описан? В принципе, можно использовать его..

[Stilet]

Виталий, там в процедуре вывода Vyvod() вообще нет никакой сортировки.

Это я телепатяю - автор выводит на экран отсортиреный файл