Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   TColumnListBox sortieren (https://www.delphipraxis.net/181831-tcolumnlistbox-sortieren.html)

Satyr 11. Sep 2014 11:31

Delphi-Version: 2007

TColumnListBox sortieren
 
Huhu,

ich finde den Ansatz zu etwas nicht, das sich im Grunde leicht anhört.
Ich habe eine TColumnListBox mit 2 Spalten. Aufgebaut in etwa so:

Spalte1: Spalte 2:
Haus1 2
Haus2 4
Haus3 1
Haus4 6
Haus5 3


Spalte 2 sind die Mieter in dem Haus. Nun möchte ich spalte 1 nach Spalte 2 sortieren.
Sortieralgorythmen gibt es genug, das ist nicht das Problem. Nur wie sortiere ich Spalt1 anhand von Spalte2 gleich mit?

Gruß,
Andreas

Der schöne Günther 11. Sep 2014 11:38

AW: TColumnListBox sortieren
 
Was du suchst ist ein stabiles Sortierverfahren.

PS: Was ist eine
Delphi-Quellcode:
TColumnListBox
?

Satyr 11. Sep 2014 11:48

AW: TColumnListBox sortieren
 
Eine ListBox mit mehreren Spalten von TMS. Die Funktion "sort" ist zwar schon drin, funktioniert aber nur für die erste Spalte alleine.

Wie genau ich sortiere ist nicht das Problem. Sondern wie ich beide Spalten "mitnehme".
Also nach dem sortieren das praktische. Da komme ich irgendwie nicht weiter...

baumina 11. Sep 2014 12:05

AW: TColumnListBox sortieren
 
Delphi-Quellcode:
TColumnListBox.SortColumn := 2;
TColumnListBox.Sorted := True;

Satyr 11. Sep 2014 12:10

AW: TColumnListBox sortieren
 
Omg danke.
Manchmal seh ich den Wald vor lauter Bäumen nicht.

himitsu 11. Sep 2014 13:46

AW: TColumnListBox sortieren
 
Du solltest also nur nach der zweiten Spalte sortieren.
Warum sagst du das nicht gleich? :zwinker:

Algemmein ist es sowieso üblich, dass die anderen Spalten mit sortiert werden.

Für mich klang das erst so, als wenn du nach zwei Spalten sortieren willst, aber weder aus deiner Erklärung, noch anhand deines Beispiels konnte ich erkennen wie das sortiert werden sollte.


Alle Zeitangaben in WEZ +1. Es ist jetzt 12:32 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz