Создать программку в делфи: отсортировать слова в предложении по убыванию количества символов в слове

[VaheN]

Разработать алгоритм и программу, получающую на вход предложение, слова в котором разделены пробелами.
Необходимо переформатировать порядок слов в предложении по убыванию количества символов в слове.
Например abcd bcf abcde db aaa, должен получить вид abcde abcd aaa bcf db.
Каким способом это можно сделать в делфи?С чего начать.Спасибо

Может кто подскажет видео урок.

[Кольша]

циклы и copy pos delete

[VaheN]

А есть у кого готовая такая программа?

Как я понимаю надо на форму добавить кнопку и мемо.Edit.
Вписываем в эдит порядок букв с пробелами.А он нам в мемо выдает по количеству букв.

[Mad_Cat]

А есть у кого готовая такая программа?

на форме 2 edit и 1 button

procedure TForm4.Button1Click(Sender: TObject);
var TS:TstringList;
i,n,j:integer;
Buf:string;
begin
TS:=TStringList.Create;
TS.Delimiter:=' ';
buf:=trim(edit1.Text);
Ts.DelimitedText:=buf;
n:=Ts.Count-1;
for i := 0 to n-1 do
        for j := 0 to n-1 do
            if length(Ts[j]) < length(Ts[j+1])  then begin
                buf := Ts[j];
                Ts[j] := TS[j+1];
                TS[j+1] := buf
            end;
edit2.Text:=Ts.DelimitedText;TS.free;
end;

[Serge_Bliznykov]

Mad_Cat, Вы, имхо, явно лишние циклы при сортировке крутите..

Может использовать сортировку простыми обменами?
Тогда вполне достаточно так написать:

for i := 0 to n-1 do
        for j := i+1 to n do
            if length(TS[i]) < length(TS[j])  then 
                     TS.Exchange(i,j);

я обмен строчек сделал встроенными методами TStringList - это намного эффективнее, чем делать обмен через внешнюю переменную.

и зачем очищать переменную Edit2 перед присвоением ей текста? Это абсолютно избыточно.
А где удаление памяти, выделенной под TS (TStringList) ?! Это же прямой путь к утечками памяти в программе!

программа целиком может выглядеть так:

procedure TForm1.Button1Click(Sender: TObject);
var
  TS:TstringList;
  i,j:integer;
begin
  TS:=TStringList.Create;
  TS.Delimiter:=' ';
  TS.DelimitedText:=trim(edit1.Text);
  for i := 0 to TS.Count-2 do
        for j := i+1 to TS.Count-1 do
            if length(TS[i]) < length(TS[j])  then
              TS.Exchange(i,j);

  edit2.Text := Ts.DelimitedText;;
  FreeAndNil(TS);
end;

[Mad_Cat]

Serge, все равно, имхо задачку ТС-у не засчитают, так как задачка учебная и скорее всего нужны именно

циклы и copy pos delete

p.s. По поводу ваших замечаний, каюсь, Поторопился чуть(

[VaheN]

Задача почти правильная.

Только почему он вместо abcde abcd aaa bcf db, ставит abcde abcd bcf aaa db, алфавит не учитывается.

[Mad_Cat]

Задача почти правильная

Дык сделайте ее Абсолютно Правильной

[VaheN]

Да если бы я умел=(

[Serge_Bliznykov]

Да если бы я умел=(

Так учитесь!!!
Всё в ваших руках! я ни одного человека не встречал, на которого программирование снизошло с небес в виде откровения! Всем приходилось учиться, разбираться, изучать чужой код, решать учебные (и не учебные) задачи..

Только почему он вместо abcde abcd aaa bcf db, ставит abcde abcd bcf aaa db, алфавит не учитывается.

а я не увидел, чтобы в условиях задачи прозвучало такое требование...
Ладно, это несложно.
Раз Вас не смущает метод решения задачи,
а это чревато тем, что Вы решение не сможете сдать:

все равно, имхо задачку автору темы не засчитают, так как задачка учебная и скорее всего нужны именно:
"циклы и copy pos delete"

тогда, добавить сортировку по алфавиту можно так.
замените внутри сортировки сравнение (if ..) на такой код:

....
        for j := i+1 to TS.Count-1 do
            if (length(TS[i]) < length(TS[j])) or
                 ( (length(TS[i])= length(TS[j])) and
                      (TS[i]>TS[j]) )    then
              TS.Exchange(i,j);