AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

"Array of Record" sortieren?

Ein Thema von demic · begonnen am 5. Mär 2011 · letzter Beitrag vom 5. Mär 2011
Antwort Antwort
demic
(Gast)

n/a Beiträge
 
#1

"Array of Record" sortieren?

  Alt 5. Mär 2011, 19:16
Delphi-Version: 5
Hallo,

ich habe ein dynamisches Array of Record (ähnlich TSearchRec). Dieses Array wird mit FindFirst/Next gefüllt. Nun möchte ich natürlich den Inhalt auch auf verschiedener Weise sortieren können. Da ich nun merke, dass könnte etwas schwer werden, habe ich mit folgendes überlegt.

TStringlist.Sort

Ich möchte nach Dateinamen, Dateityp, Dateigröße oder Dateidatum sortieren können und habe mir gedacht, ich lasse das mit einem dynamischen Array und fülle eine TStringliste auf folgende Weise:

Beispiel nach Sortiertyp Dateigröße:
2622###hallo.dat|22.12.2010|13:44|+rest...(z.b. dateiattribute usw.)
62###welt.dat|13.12.2010|13:24|+rest...(z.b. dateiattribute usw.)
23362###delphi ist toll.exe|12.10.2010|3:24|+rest...(z.b. dateiattribute usw.)

Oder nach Sortiertyp Dateiname:
hallo.dat###2622|22.12.2010|13:44|+rest...(z.b. dateiattribute usw.)
welt.dat###62|welt.dat|13.12.2010|13:24|+rest...(z .b. dateiattribute usw.)
delphi ist toll.exe###23362|12.10.2010|3:24|+rest...(z.b. dateiattribute usw.)

"###" ist sozusagen eine Trennung. Je nachdem wie ich sortieren möchte, kommt der entsprechende Inhalt nach vorne, dann ein "###" und danach die anderen Daten. Kann man mit dieser Idee dann TStringlist.Sort anwenden? In der Hilfe steht, ".sort" sortiert Aufwärts. Aber ich denke ".sort" berücksichtigt zum sortieren auch den Inhalt, der nach dem "###" kommt.

Oder gibt es eine andere Möglichkeit? Am liebsten wäre mir ja, ich könnte irgendwie mein "Array of Record" beibehalten und dieses sortieren. Aber dafür müsste ich wohl selbst alle Sortieralgorithmen schreiben. Deshalb meine o.g. Idee.

Gruß
Michael
  Mit Zitat antworten Zitat
mkinzler
(Moderator)

Registriert seit: 9. Dez 2005
Ort: Heilbronn
39.802 Beiträge
 
Delphi 10.4 Sydney
 
#2

AW: "Array of Record" sortieren?

  Alt 5. Mär 2011, 19:19
Ich würde hierfür einen eigene TList-Nachfahren implementieren. Bei neueren Delphi-versionen würde sich eine generische Listklasse anbieten
Markus Kinzler
  Mit Zitat antworten Zitat
demic
(Gast)

n/a Beiträge
 
#3

AW: "Array of Record" sortieren?

  Alt 5. Mär 2011, 19:24
Also ich habe Delphi XE Starter... warum da Delphi 5 oben steht weis ich selbst nicht. Muss man hier wohl irgendwo ändern.
Nur was ist eine "generische Listklasse" ?

Michael
  Mit Zitat antworten Zitat
mkinzler
(Moderator)

Registriert seit: 9. Dez 2005
Ort: Heilbronn
39.802 Beiträge
 
Delphi 10.4 Sydney
 
#4

AW: "Array of Record" sortieren?

  Alt 5. Mär 2011, 19:30
Ohne Generic/Templates müsste man für jeden konkreten Typ, der in eine Liste abgelegt werden soll eine eigene Listklasse implementieren.
Bei der Verwendung von Generics, müssen die Objekt(klassen)/e nur definierte Interfaves implementieren.
http://beensoft.blogspot.com/2008/09...ist-tlist.html
Markus Kinzler
  Mit Zitat antworten Zitat
Benutzerbild von Aphton
Aphton

Registriert seit: 31. Mai 2009
1.198 Beiträge
 
Turbo Delphi für Win32
 
#5

AW: "Array of Record" sortieren?

  Alt 5. Mär 2011, 19:31
Warum so kompliziert? Schreib doch einfach einen Sortieralgorithmus?! Ist ein klax'!
das Erkennen beginnt, wenn der Erkennende vom zu Erkennenden Abstand nimmt
MfG
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 13:04 Uhr.
Powered by vBulletin® Copyright ©2000 - 2021, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2021 by Daniel R. Wolf