combobox z-a sıralama

[serqet]

merhaba arkadaşlar aşağıda kullandığım kod ile combobox'a gelen veriler a-z ye sıralanıyor fakat ben z-a ya sıralamasını istiyorum nasıl bir değişiklik yapmam gerekiyor acaba? teşekkür ederim.

Kod: Tümünü seç

if (findfirst(ksec +'\*.s',faAnyfile-faDirectory,SearchRec)=0) then
try
repeat
combobox1.Items.Add(searchrec.Name);
until(findnext(searchrec)<>0);

combobox1.Sorted:=true;
finally
findclose(searchrec);
end;
  end;
  end;

[freeman35]

searchrec.Name'i geçici bir X: Tstringliste; al, x.Sorted:=true; combobox1.Sorted:=false; yap ve combobox1 e X i sondan başa doğru döngü ile ekle
kolay gele

[ikra]

Kod: Tümünü seç

var list: tstringlist;
I: integer;
Begin
  List := tstringlist.create;
  List.strings.assign(combobox.items);
  List.sorted := true;

  Combobox.sorted := false;
  Combobox.items.clear;

  For i := pred(list.count) downto 0 do
    Combobox.items.add(list[i]);

  List.free;
End;

[xozcanx]

Merhaba;
Farklı bir yöntem olarak ta aşağıdaki gibi bir yöntem izleyebilirsiniz.

Kod: Tümünü seç

var
sayi,i,sira:Integer;
begin
   ComboBox1.Sorted:=true;//Alfabetik Sırala
   sayi:=ComboBox1.Items.Count;
   i:=0;
   sira:=sayi-1;
   Repeat
     ComboBox1.Items.Exchange(i,sira); //Tersine Çevir
     inc(i); 
     Dec(sira);
   Until 
   i>(sayi-1)/2;
end;