Отсортировать строки по возрастанию используя разделение строк

@Mad Max · Регистрация: 14.12.2012

Всем Привет!
Помогите отсортировать строки по возрастанию используя разделение строк

Delphi

t.Text:=StringReplace('Пусть задан текст, представляющий собой последовательность строк. Признак конца строки вводится пользователем. Выведите на печать заданный текст в порядке возрастания длин строк.','.',#13#10,[rfReplaceAll]);

@Зотов_из_ОСА · 20.06.2014, 12:41

Mad Max,
допустим одна строка это одна строка в memo тогда

Delphi

 for i:=1 to memo1.lines.count do
  begin
    for j:=2 to i do
     begin
       if length(memo1.lines[j])<length(memo1.lines[j-1]) then
            begin
                s:=memo1.lines[j];
                memo1.lines[j]:=memo1.lines[j-1];
                memo1.lines[j-1]:=s;
            end;
     end;
  end;

Опции темы