Delphi ItemData.Detail tarafından TListBox sırala?

Konum listesi içeren bir TListBox'um var (her biri adınız ve bulunduğunuz yerden bir mesafe). Kullanıcılara listeyi konum adına (yani alfabetik olarak) veya o anki konumlarına olan mesafeye göre sıralama seçeneği vermek istiyorum. Yer adı öğenin ItemData.Text değeri olarak depolanır ve geçerli konumdan uzaklık ItemData.Detail değeri olarak depolanır. Sorun, sıradan TListBox sıralama yönteminin (yalnızca ItemData.Text özelliği) sıralama sırasında ItemData.Detail özelliğini kullanmadığıdır. Her bir öğenin ItemData.Detail değerine göre sıralanan TListBox'a özel bir sıralama yöntemi eklemek mümkün mü?Delphi ItemData.Detail tarafından TListBox sırala?

ben aşağıdaki denedim ama çalışmıyor:

kaynak

2017-04-19 Scott Hallauer

Bunu istemiyorsanız standart sıralama neden kullanıyorsunuz? Neden Sıralı olarak ayarlandı? –

Sırala, atadığınız Sıralama yöntemini kullanmıyor mu? –

Hayır. Bir sıralama yöntemi atamazsınız. Birini orada kullanılan Sıralama'ya ve sonra listeyi sıralamak için geçirirsiniz. –

çağrı Sort performansı bakımından: Burada

procedure TFrmSelect.btnSortLocationClick(Sender: TObject); 
var Compare: TFMXObjectSortCompare; 
begin 
    btnSortLocation.Enabled := False; 
    btnSortAlpha.Enabled := True; 
    Compare := function(item1, item2: TFmxObject): Integer 
    begin 
    Result := TListBoxItem(item1).ItemData.Detail.CompareTo(TListBoxItem(item2).ItemData.Detail); 
    end; 
    self.ListBox.Sort(Compare); 
    self.ListBox.Sorted := False; 
    self.ListBox.Sorted := True; 
end;

ayrılacaktır bir örnek listesinin bir görüntü Karşılaştırma işlevinizi kullanarak sıralama. Sorted özelliği, listeyi varsayılan karşılaştırmayla belirlenen bir sırada tutmak için kullanılır.

Karşılaştırma işlevinizi kullanarak listeyi sıralamak için, yalnızca Sorted özelliğini ayarlayan kodu kaldırın.

kaynak

2017-04-19 07:03:12

Delphi ItemData.Detail tarafından TListBox sırala?

cevap

İlgili konular