Сортировка массива

[saggy]

Есть массив с компонентами.
Как можно отсортировать его так, чтобы пустые ячейки (nil) перемещались в конец массива, а потом удалялись путём сокращения длины массива?
К примеру:

setlength(a, 3);
a[0] := button1;
a[1] := nil;
a[2] := button2;

Магия...

a[0] = button1;
a[1] = button2;
a[2] = nil;
setlength(a,length(a)-b);
a[0] = button1;
a[1] = button2;

где b - количество nil'ов. В нашем случае - это 1.

[Stilet]

а потом удалялись путём сокращения длины массива?

Рекомендую вместо динмассива использовать TComponentList.
У него есть метод, очищающий список от nil элементов. Да и понадежнее работать будет. Подробности в хелпе на этот класс.

[saggy]

Всё. спасибо.