TStringgrid sortieren - schlechte + bessere Lösung

[taaktaak]

Moin, Moin.
Häufig wird hier im Forum das Thema "Sortieren von StringGrids" behandelt. So auch in diesem Thread vor einigen Tagen: Die sehr deutlichen Anmerkungen von "Hansa", haben mich nachdenklich gemacht, denn auch ich verwende bisher die augenscheinlich schlechteste von allen Methoden: Datenhaltung im Stringgrid und sortieren mittels einer Hilfsliste (TStringlist). Bei kleinen Datenmengen von vielleicht 1000 bis 2000 Zeilen meist schnell genug. Aber wenn's mehr werden... Dann dauert so ein Sort tatsächlich viel zu lange.

Nun habe ich am Wochenende mal ein wenig "gebastelt. Ich denke, dass dabei etwas herausgekommen ist, das den Hinweisen von "Hansa" schon recht nahe kommt. Als Anlage eine kleine Demonstration als EXE incl. Source, die 3 verschiede Datenhaltungs-/Sortiermöglichkeiten und deren Geschwindigkeit testen lässt:

Variante 1 - Alle Daten im Stringgrid, Sortierung mit Hilfsliste >> minimaler Speicherverbrauch, längste Sortierdauer (bei vielen Daten inakzeptabel).

Variante 2 - Alle Daten in TList, Sortierung mit Hilfe von TList, alle Daten werden zur Anzeige ins Stringgrid kopiert >> maximaler Speicherverbrauch (x2), deutlich schnelleres Sortieren.

Variante 3 - Alle Daten in TList, Sortierung mit Hilfe von TList, nur die jeweils sichtbaren Daten werden in das Stringgrid kopiert >> kaum mehr Speicherverbrauch als in Variante 1, schnellstes Sortieren.

Wer also noch kein optimiertes Verfahren verwendet, kann sich vielleicht mit Hilfe dieser "Daddelanwendung" überzeugen lassen, die Variante 1 schnell "in die Tonne zu treten" ...

[Hansa]

Vorab : In dem anderen Thread, da hatte ich weder die Geschwindigkeit noch den Speicherverbrauch im Auge ! Erstrangig ist immer die Programmlogik. Da der im Internet aufgefischte Source-Fetzen auch in dieser Richtung etwas seltsam war, ist es nicht verwunderlich, dass er auch noch langsam ist.

Hinzu kommt der Umstand, dass man die StringGrids sehr schnell um den Faktor 10-100 verlangsamen kann. Dazu braucht man nur visible auf true zu setzen und das Grid dann erst zu füllen. Geschwindigkeitsmessungen sind da besonders vorsichtig zu begutachten. 8)

So, jetzt zu Deinem Testprogramm. Du verwendest TList. Ich hatte eine TObjectList vorgeschlagen, um die Nutzdaten eben in TObjects zu packen und bemängelt, dass sie ansonsten zumindest bei dem Fetzen wieder in String und zurück gewandelt werden müssen. Zumindest Stringumwandlung entfällt bei der TList. Kenne die TList zu wenig, aber eventuell ist die TObjectList sogar noch schneller zu sortieren.

[taaktaak]

Moin Hansa :hi:
dann werde ich das jetzt auch mal mit TObjectList testen.
Vielen Dank für den Hinweis!

[juergen]

@ taaktaak,

das Thema interessiert mich und gibt mir auch einige Lernansätze. :thumb:
Leider fehlt in deinem Zip-File anscheinend die Unit "rzC_Grid".
Könntest du diese bitte nachreichen?

Danke und Gruß
Jürgen

[taaktaak]

Hallo juergen!
Hatte mit voller Absicht von rzC_Grid nur die .dcu beigefügt: Das war vor einigen Jahren mein allererster Versuch, eine Komponente abzuleiten und das Stringgrid um zusätzliche Funktionaliäten zu erweitern. Entsprechend meiner damaligen Fähigkeiten ist (aus heutiger Sicht) grauenhafter Code entstanden.
Also bitte nur anschauen, wenn du sehen möchtest, wie man es nicht macht! Auch lohnt eine Optimierung des Codes nicht; mit den in den letzten Tagen gesammelten Erkenntnissen werde ich das komplett neu aufsetzen.

[taaktaak]

So, hab's mit TObjectList ausgetestet und keine signifikanten Geschwindigkeitsunterschiede feststellen können. TList ist ja wohl der direkte Vorfahr von TObjectList; als einzigen Unterschied kann ich derzeit feststellen, dass TObjectList die Objekte selbst entfernt. Das muss man bei TList selbst erledigen, ist natürlich kein nennenswerter Aufwand.

Irritiert bin ich aber über die stark differierenden Sortierzeiten: Lasse ich eine Spalte mehrfach abwechselnd auf-/absteigend sortieren, unterscheidet sich der Zeitbedarf (manchmal) bis etwa Faktor 1,5.

Liegt das am Speichermanager?
Kann man dagegen etwas tun?

[Hansa]

Zitat:

Zitat von taaktaak

...als einzigen Unterschied kann ich derzeit feststellen, dass TObjectList die Objekte selbst entfernt. Das muss man bei TList selbst erledigen, ...

Und das ist nichts ? :shock: Aber Hallo, eine wichtige Fehlerquelle weniger. Es gibt ja auch praktische Gründe, ein StringGrid nicht über eine Stringliste zu sortieren.

Irgendwo war doch heute ein Quiz. Glaube DF ? :gruebel: Hier ist meines :

Man sortiere ein Grid. Allerdings soll das so aussehen :

Delphi-Quellcode:

Nr  Name5 Ort1
    Name4 
Nr  Name3 Ort2
Nr  Name2 Ort3
    Name1

Das soll nun nach Name sortiert werden, aber nur nach Zeilen in denen "Nr" vorhanden ist. D.h. sofern 2 Namenszeilen vorhanden sind, dann sollen die auch zusammenbleiben. Im Endeffekt soll es bei Sortierung über Name so aussehen :

Delphi-Quellcode:

Nr  Name2 Ort1
    Name1 
Nr  Name3 Ort2
Nr  Name5 Ort3
    Name4

Preisfrage stufe ich im Delphi-Millionärs-Quiz mal bei 50.000 EUR ein. Eventueller Gewinn wird allerdings NICHT ausgezahlt. :wiejetzt: :mrgreen:

Zur Verfügung stehen ausser dem Grid selber TStringList, TList oder TObjectList.

Edit : Delphi-Code wegen Spalten-Simulation. Kein Quelltext !!

[taaktaak]

Moin Hansa.

Hört sich interessant an, warum nicht mal ein Quiz?
Allerdings irritiert mich die Aufgabenstellung ein wenig :(

a) Wenn das Grid in einer Zeile quasi einen Record enthält, gehören die einzelnen Felder zusammen. Insofern kann ich nicht nachvollziehen, dass in der Ergebnistabelle neue Records gebildet werden. Oder: Wenn in der Ausgangstabelle Name5 mit Ort1 verknüpft ist, wie können dann im Ergebnis Name5 und Ort3 zusammenkommen? Ist das ein Tippfehler?

b) Wenn nur Einträge die eine Nr enthalten sortiert werden sollen, müssten Name4 und Name1 ihre Tabellenpositionen behalten. Die sind in deiner Ergebnistabelle aber auch sortiert?

Wenn wir das geklärt haben, wäre das einen witzige Aufgabe für das nächste Wochenende
:hi:

PS : Keiner 'ne Idee zu den sehr unterschiedlichen Sortierzeiten?

[Hansa]

War Tippfehler. Neuer Versuch klarzumachen, was das soll :

Delphi-Quellcode:

1  Meier     1,00
   Karl
2  Sakura    3,00
3  Schmitt   2,00 
   Heinz

Jetzt soll absteigend sortiert werden über 3. Spalte. Dass das Grid also danach so aussieht :

Delphi-Quellcode:

2  Sakura    3,00
3  Schmitt   2,00 
   Heinz 
1  Meier     1,00
   Karl

Weils so schön ist. :mrgreen: Es soll nun nach Nachname absteigend sortiert werden (Vorname egal, selbst wenn keiner da) :

Delphi-Quellcode:

3  Schmitt   2,00 
   Heinz 
2  Sakura    3,00
1  Meier     1,00
   Karl

So geht C+P auch besser. :shock:

[mkinzler]

Es ist die Frage, ob da ein StringGrid geeignet ist

[taaktaak]

Moin, Moin Hansa.
Ok, Punkt a) ist geklärt.
Aber b) bleibt offen - die Logik erkenne ich nicht: Warum wechseln Karl und Heinz die Zeilenpositionen? Die Aufgabe in EXCEL übertragen (1.Filter, 2. gefilterte Daten sortieren, 3. Filter entfernen) >> Karl+Hans behalten die Zeilenpositionen!

// edit: Na, ich denke schon, dass das möglich ist. Schaun'n wir mal...

[mkinzler]

Die Zeilen mit den Vornamen gehören zur vorigen Zeile. Ein Eintrag besteht also aus entweder eier oder zwei Zeilen

[Hansa]

@mkinzler : das ist nicht die Frage. Nur Stringgrid ist gefragt.

zu b) von taaktaak :

Schmitt heißt nun mal Heinz und nicht Meier. Der heißt Karl. Und Sakura, der ist eben neutral.

Edit : Das 2. Grid ist nach 3. Spalte sortiert. Sagen wir mal, das wäre Kreditlimit oder sowas. Da steht Sakura oben, weil er 3 EUR Kredit hat. :mrgreen: Gefolgt von Schmitt, Heinz. Meier, Karl steht eben unten wegen 1 EUR. :zwinker:

[mkinzler]

[ot]Und wenn einer dich fragt, wie er am Besten eine Suppe mit Gabel ist, sagst du ihm nicht, das ein Löffel besser geeignet wäre?[/ot]

[Hansa]

Ich würde ihm sagen, wenn er unbedingt Suppe mit der Gabel essen will, z.B. weil er keinen Löffel hat, dann solle er die mit Alufolie umwickeln. :mrgreen:

[taaktaak]

Sehr lustig :shock:
Die Aufgabenstellung die in #7 beschrieben ist, stellt sich in #9 völlig anders dar. Aber nun hab' ich's begriffen: Da will mich einer veräppeln!
- Na, dann eben kein Quiz :cry:

[Hansa]

Zitat:

Zitat von taaktaak

Aber nun hab' ich's begriffen: Da will mich einer veräppeln!

Wer will dich denn veräppeln ? :shock: mkinzler hats doch auch kapiert, um was es geht.

[taaktaak]

Hohoho,

aus

Delphi-Quellcode:

Nr  Name5 Ort1 
    Name4 
Nr  Name3 Ort2 
Nr  Name2 Ort3 
    Name1

in Post#7

wird

Delphi-Quellcode:

1  Meier     1,00   Karl 
2  Sakura    3,00 
3  Schmitt   2,00   Heinz

in Post#9

Meinst du nicht auch, dass das andere Vorgaben sind? Warum sollte man auf die Idee kommen, dass Name4 der Vorname von Name5 ist? Und wieso stehen im Originalpost #9 die Vornamen unter den Nachnamen (suggerieren damit die Situation von Post#7) und nicht dahinter?

Aber egal, mein Interesse an diesem Spaß ist perduto
:xmas:

[Hansa]

Oh, Mann. #7 ist obsolet. Von mir aus auch perduto für dich. :mrgreen: #9 habe ich nochmals überprüft. Neue Denkhilfe : Adresse auf sortierten Briefen. Tu comprendes que iu habolo ? :shock:

[taaktaak]

Si, ma perduto é italiano

[taaktaak]

So, ich will kein Spielverderber sein :-D
Diese Aufgabe erledigt ja sogar meine uralte, grottenschlechte Komponente rzC_Grid, die allerdings bei Bedarf auch mehrspaltig sortiert. Anbei die Auflösung der (allenfalls) 50€ Frage.

[Hansa]

Zitat:

Zitat von taaktaak

So, ich will kein Spielverderber sein... Anbei die Auflösung der (allenfalls) 50€ Frage.

Ne, das wären schon eher 5000 €. Alleine schon wegen Ignorierung der Fragestellung. :mrgreen: Ein Stringgrid zeilenweise zu sortieren, das ist zu einfach. Allerdings, gut, 50 € geht. :lol:

Die Lösung ist im Anhang, allerdings auch nur zusammengestückelt. Bis auf ein paar geänderte DS, z.B. "Taaktaak" und "Sakura" kommen die Daten aus der EMPLOYEE.FDB von Firebird. Deshalb kann ich keine EXE mitliefern. Kann allerdings noch nachgeholt werden.

Sortierung geht über Klick auf Spaltenkopf Spalte 2.

[taaktaak]

Moin, Moin Hansa.

Hier in Norddeutschland würde man vielleicht sagen: Dascha gediegen! Ich muss feststellen, dass wir die ganze Zeit aneinander vorbeigeredet haben. Aber nun ist die in meinen Augen leicht abstruse Darstellungsform verständlich geworden.

Die Anzeige eines Datensatzes mal in einer, mal auf zwei Zeilen ist meines Erachtens aber mehr eine theoretische Nutzung des Grids; programmiertechnisch vielleicht eine witzige Herausforderung. In der Anwendungspraxis dürften die meisten Anwender davon verwirrt werden. Damit sollte dies nicht wirklich von Nutzen sein. Ist das die Hausaufgabe eines Informatiklehrers? :roteyes:

[grenzgaenger]

muss sagen bei hansas aufgabe, hab ich auch nicht durchgeblickt... aber sei es drum, 'n gruppenwechsel ist i.a.R. tägliches brot und dafür gibts auch eine DIN Norm ...

und dass man wiederholungszellen im gleichen kontext unterdrücken soll, damit die darstellung für den anwender besser wird. das muss man ja wohl nicht laut sagen...

[Hansa]

Zitat:

Zitat von grenzgaenger

...und dafür gibts auch eine DIN Norm ...und dass man wiederholungszellen im gleichen kontext unterdrücken soll, damit die darstellung für den anwender besser wird. das muss man ja wohl nicht laut sagen...

Welche DIN Norm ? Welche Wiederholungszellen ? Also wenn einer "Klaus Klaus" heißt, dann sind das 2 Zellen und fertig. :shock:

[Hansa]

Uff, nicht gesehen :

Zitat:

Zitat von taaktaak

Die Anzeige eines Datensatzes mal in einer, mal auf zwei Zeilen ist meines Erachtens aber mehr eine theoretische Nutzung des Grid...In der Anwendungspraxis dürften die meisten Anwender davon verwirrt werden. Damit sollte dies nicht wirklich von Nutzen sein. Ist das die Hausaufgabe eines Informatiklehrers? :roteyes:

Du bist doch hoffentlich über das Stadium eines Informatiklehrers hinaus ? :mrgreen: Sollte es darum gehen, alles in eine Zeile zu klatschen und diese zu sortieren, wobei auch das Scrollen über 30 Spalten egal ist, ja dann erübrigt sich die Fragestellung an sich tatsächlich.

Das Grid im Anhnag ist wieder nach Name sortiert. Erkennt man daran, dass vorne die Nr. (nicht Position !) nicht sortiert ist. Von dem Japaner aus Tokyo ist alles bekannt : Vorname, Nachname, Strasse, PLZ Ort. Bei Sakura fehlt Vor/Nachname. Irgendein Name ist aber bekannt. Der wohnt jetzt neben J.R. und hat deshalb wohl nur Postfach. 8) Und Taaktaak, der wohnt jetzt in Hongkong :mrgreen: , aber ohne PLZ und Vor/Nachname. Von Mrs. B??? ist nicht mal die Strasse bekannt.

Wenns allerdings keinen interessiert, oder zu schwer sein sollte, dann brauchen wir ja nicht weiter zu diskutieren, wie man so etwas hinkriegt.

[alzaimar]

[Klugscheiss]
Ich würde ja einfach ein DevExpress-Grid mit einem Banded Table View nehmen. Das kann das Alles automaaatisch.
:dancer2:
[/Klugscheiss]

[taaktaak]

Moin, Moin :hi:

Zitat:

Du bist doch hoffentlich über das Stadium eines Informatiklehrers hinaus ?

Ich hoffe nicht! Ein Informatiklehrer sollte schon besser sein, als ein fachfremder Hobby-Programmierer.

Das Argument, dass überbreite Grids die Übersichtlichkeit behindern, ist nachvollziehbar. Insofern gebe ich dir Recht, dass diese Darstellungsweise ihre Berechtigung hat. Wenn die einzelnen Datensätze dann z.B. durch alternierende Hintergrundfarben optisch zusammengefasst werden, ist das OK.

Wie ich schon sagte, am Wochenende will ich mir die Aufgabe mal vornehmen. Werde natürlich versuchen, dass selbst und ohne Verwendung fremder Komponenten oder Codevorlagen zu lösen.
Schau'n wir mal :freak:

[mkinzler]

Du könntest dir auch mal den VirtualTreeView ansehen

[alzaimar]

Der Lösungsansatz ist wie folgt:
Speicherung der Daten in einer Liste, jeder Datensatz ist ein Objekt mit Name/Vorname etc.

Die Sortierung erfolgt in der Objektliste.

Darstellung wieder mehrzeilig oder wie auch immer.

Wie man sieht: Klare Trennung zwischen Funktion und Darstellung ==> Einfache Programmierung.

[taaktaak]

Vielen Dank für die Hinweise.

@mkinzler: Habe schon einiges über die Mächtigkeit dieses Produkts erfahren. Da ich mich nur hobbymäßig mit Delphi beschäftige kann für mich "der Weg das Ziel sein" - ich lerne lieber durch eigene Misserfolge und nähere mich schrittweise einem Ziel als so etwas fertiges zu verwenden. Da lerne ich mehr und intensiver - und es macht mir mehr Spaß.

@alzaimar: Bin gerade (immer wenn ich Zeit habe) dabei, genau diese Grundsätze zu beachten. Ich hatte den Thread ja mit einem Beitrag eröffnet, der 3 alternative Vorgehensweisen aufzeigt. Derzeit wird die 3. Variante in einer Mini-Testanwendung schrittweise weiterentwickelt. Abschließend soll dann natürlich alles gekapselt und in eine Komponente "gegossen" werden. Bin mir sicher, dass die von Hansa ins Spiel gebrachte Darstellungsweise als optionale Anzeigeform auch integriert wird.

Wer jetzt schon mal ein paar Sekunden "daddeln" möchte, kann sich ja den aktuellen Stand herunterladen. Es ist meine Absicht, dies in der Sparte "OpenSource" zu veröffentlichen.

[Hansa]

Zitat:

Zitat von alzaimar

..Wie man sieht: Klare Trennung zwischen Funktion und Darstellung ==> Einfache Programmierung.

So schön hätte ich das nicht formulieren können. :mrgreen: Das Stringgrid dient allerdings nur als Ansatzpunkt für viele andere Sachen auch, wo das Prinzip auch so durchgezogen werden sollte. Wie wird das DevGrid das wohl machen ? :shock:

[alzaimar]

Zitat:

Zitat von Hansa

Wie wird das DevGrid das wohl machen ? :shock:

Dort kann man einen Datensatz in mehreren Zeilen darstellen.

[Hansa]

Und wie ? Habe keinen Source davon. Guck doch mal selber da rein.

[alzaimar]

Hansa, die bauen sich das Grid komplett selbst, da ist nicht eine Zeile VCL drin, alles ist handgebissen! Und wenn ich sage 'Alles', dann meine ich 'ALLES'. Die fangen bei einem 'TcxControl' an. Die zeichnen einfach das Grid selbst.

Aber Du kannst das mit einem TString/TDrawGrid doch selbst machen:

Daten => Abstrakte Darstellung => Darstellung

Die 'abstrakte Darstellung' wäre z.B. eine Abbildung der Daten in Gridzeilen (Nur Grid-Zeilennr./ Anzahl der Zeilen je Datensatz o.ä.). Diese Hilfsliste kannst Du dann sortieren, sodaß die Datenliste unberührt bleibt. Die Darstellung bedient sich aus dieser Hilfsliste und weiss dann eben ganz genau, wo was und wie angezeigt werden muss.

[grenzgaenger]

Zitat:

Zitat von Hansa

Zitat:

Zitat von grenzgaenger

...und dafür gibts auch eine DIN Norm ...und dass man wiederholungszellen im gleichen kontext unterdrücken soll, damit die darstellung für den anwender besser wird. das muss man ja wohl nicht laut sagen...

Welche DIN Norm ? Welche Wiederholungszellen ? Also wenn einer "Klaus Klaus" heißt, dann sind das 2 Zellen und fertig. :shock:

ach, sag doch gleich, dass du eine zweizeilige darstellung suchst... und ich dachte, du wolltest etwas kompliziertes, mit gruppenwechseln und so ... (was nun auch nicht wirklich kompliziert ist)

[Hansa]

Zitat:

Zitat von alzaimar

Hansa, die bauen sich das Grid komplett selbst, da ist nicht eine Zeile VCL drin, alles ist handgebissen!...

Steht irgendwo wenigstens : "Vorsicht bissiger Hund ?" :lol: Egal, hier gehts ja eher ums Prinzip.