[lekssp]

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

[Alegun]

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

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

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]

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