Сортировка в текстовом файле

[MusicMan]

1) Попробуй сначала объявить файловую переменную
это примерно так :
f : file of ykazatel;
2) Отдельной прогой создай и заполни файл записями
3) Попробуй свой код
4) Скажи на какую строчку компилер ругается

[Isthmus]

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

1) Попробуй сначала объявить файловую переменную
это примерно так :
f : file of ykazatel;

Она объявлена. Только не в процедуре. Там её тоже надо объявлять???

2) Отдельной прогой создай и заполни файл записями
3) Попробуй свой код

Не понял что ты тут имел ввиду

4) Скажи на какую строчку компилер ругается

Он нигде не ругаеться. Просто иногда (через раз) при выполнении проги сам Паскаль выдаёт ошибку. А вообще после сортировки он в файл загоняет смайлы вместо текста. Примерно такие:

[MusicMan]

Совет -
Не делай кашу из переменных. Вот.
Сделай процедуру, которая должна ВЫПОЛНЯТЬ ОПРЕДЕЛЁННОЕ
действие.
Создай её независимой!
Передал её массив, сортанул и забыл.
----
const
MAX_SIZE = 255;
type
TRec = record
Str : string[30];
Index : integer; {Хотя это не нужно, утебя же массив}
end;
TArray = array[0..MAX_SIZE] of TRec;
{Эта процедура не зависима. Она принимает массив, обрабатывает и отдает}
procedure SortArray(var Ar : TArray);
begin
{Код сортировки , к примеру}
end;

!!!!!!
Сначала проверь, работает ли сортировка

[Isthmus]

Ну я точно так же делаю. Код сортировки теоретически должен работать. А практически он не работает. Хотя когда я его первый раз написал он прога нормально отсортировала, но в обратном порядке, я поменял знак < на > и после этого она, может быть, сортирует, но записывает в файл одни смайлы.

[MusicMan]

Напомни, как тебе отсортировать нуно... Сделаю

[Isthmus]

Хмм... вообщем сортировку я наладил. Осталось ещё пару проблем, таких как:
1) Я сортировал термины, а к каждому термину есть свои страницы. И когда я отсортировал термины, то страницы остались на своих местах, т.е. уже не совпадают. Как без динамики их привязать к термину???

[MusicMan]

Какие термины? По русски давай...

[Isthmus]

Эту проблему я тоже уже решил ))

Теперь следущая загвоздка.

В сортировке мне нужно для циклов указывать число n - число переборов. Т.е. призаписи мне нужно в файле где-то поместить счётчик и прибавлять туда по 1 при новой записи, а при удалении отнимать. Пробовал делать так:
В типе record делал новую переменную n. Потом при создании файла вставлял ниже строчку:

st.n:=st.n+1;

При удалении -1.

Когда попробовал вывести число n, то получилось 27399 В чём трабла??? Может можно как-нить по другому сделать???

[Isthmus]

Ну хоть какую-нить идейку подкиньте. Плиз!