Упорядочить строки в файле по количеству пробелов, процедура Опции

[fctn]

Текстовый файл.
Нужна процедура для сортировки строк по возрастанию количества пробелов в строке.

процедура для определения количества пробелов в строке:

procedure kol_prob(s1:string, var kp:integer);
var i,dl:integer;
begin
dl:=length(s1);
kp:=0;
for i:=dl downto 1 do
if s1[i]=' ' then kp:=kp+1;
end;

Помогите пожалуйста!

[andriano]

3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!

см. Методы сортировок.

Сообщение отредактировано: andriano - 17.12.2007 22:55