Задача на ФАЙЛЫ, хелп ми) Опции

[Ostin]

компонентами текстового файла являются символ, образующие наборы строк.
Организовать следующие процедуры работы с файлом:
-добавление информации в фаил
-просмотр всего файла
-СОРТИРОВКА СТРОК ФАЙЛА В АЛФАВИТНОМ ПОРЯДКЕ {самое важно и на мой взгляд сложно, как реализовать это?}
-очистка файла
Действия выполняются в произвольном порядке, по выбору пользователя.
помогите пожалуйста с рещение задачи (особено с 3 пунктом)! зарание большое спасибО!

[Bokul]

Не флуди , этим ты ничего хорошого не добьёшься.

СОРТИРОВКА СТРОК ФАЙЛА В АЛФАВИТНОМ ПОРЯДКЕ {самое важно и на мой взгляд сложно, как реализовать это?}

Читаешь файл в одномерный массив строк, сортируешь его любым методом сортировок FAQ , при етом надо использовать функцию сравнения строк,
(она снизу ), и наконец, перезаписываешь файл и записываеш в него массив.


Функция возвращает
1 - если первая строка должна стоять перед второй.
2 - если строки одинаковые.
3 - если первая строка должна стоять после второй.

Код

function alp(s1,s2:string):byte;
var i,size1,size2,t1,t2:byte;
begin
size1:=length(s1);
size2:=length(s2);
for i:=1 to size1 do
    begin
         t1:=ord(s1[i]);
         t2:=ord(s2[i]);
         if t1 <> t2 then
            if t1 < t2 then
               begin
                    alp:=1;
                    exit;
               end
                  else
                      begin
                           alp:=3;
                           exit;
                      end;
         if (i=size2) and (i<>size1) then
            begin
                 alp:=3;
                 exit;
            end;
    end;
alp:=2;
end;

Сообщение отредактировано: Bokul - 22.05.2006 11:18