Как сортировать строки в ListBox?

[SASFM]

Здравствуйте. Кто нибудь знает как можно осуществлять сортировку по убиванию учитывая длина строки?
Например так:
до сортировка:

Африка
груша
является
инкапсуляция

после сортировка:

инкапсуляция
является
Африка
груша

Если кто знает, то скажите пожалуйста, очень нужно. Заранее спасибо.

[Аватар]

А без учета длины строки знаешь? Если знаешь, то добавь еще сравнение длин строк

[SASFM]

Сообщение от Аватар

А без учета длины строки знаешь? Если знаешь, то добавь еще сравнение длин строк

Сделал в RichEdit.

procedure TForm1.Button1Click(Sender: TObject);
var i,j,dsi,dsj,count:integer;
    si,sj,buf:WideString;
begin
    count:=RichEdit1.Lines.Count;
    for i := 0 to count do
      for j := i+1 to count do
           begin
              si:=RichEdit1.Lines.Strings[i];
              dsi:=length(si);
              sj:=RichEdit1.Lines.Strings[j];
              dsj:=length(sj);
              if dsi<dsj then
                begin
                  buf:=si;
                  RichEdit1.Lines.Strings[i]:=sj;
                  RichEdit1.Lines.Strings[j]:=buf;
                end;
           end;
end;

Работает нормально.

[zvygin1964]

Что-то подобное мне делал newerow1989.
Использовался TList.

type
   pDouble=^Integer; //Тип "указатель на Integer число".
//С помощью этой функции реализуется сортировка чисел.
function Comp(Item1,Item2:Pointer):Integer;
begin
  if pInteger(Item1)^ < pInteger(Item2)^ then Result:=-1
  else
     if pInteger(Item1)^ = pInteger(Item2)^ then Result:=0
     else
       if pInteger(Item1)^ > pInteger(Item2)^ then Result:=1;
end;

http://www.programmersforum.ru/showp...8&postcount=26