[lekssp]

Уважаемые форуменчане!
Помогите пожалуйста!
Помогите написать процедуру, которая сортирует все элементы в FileListBox по принципу: папки сверху, файлы снизу

[Alegun]

Сообщение от lekssp

...написать процедуру,которая сортирует все элементы в FileListBox по принципу: папки сверху, файлы снизу

Код:

procedure TForm1.Button1Click(Sender: TObject);
var i,j: integer;
      s: string;
    obj: TObject;
begin
  with FileListBox1.Items do
   begin
      BeginUpdate;
      j:= Count - 1;
      for i := 0 to (Count - 1) div 2 do
      begin
       s:= Strings[i];
       Strings[i]:= Strings[j];
       Strings[j]:= s;
       obj:= Objects[i];
       Objects[i]:= Objects[j];
       Objects[j]:= obj;
       dec(j);
      end; {for}
      EndUpdate;
   end;
end; // DRKB

[lekssp]

спасибо большое