Einzelnen Beitrag anzeigen

Benutzerbild von himitsu
himitsu
Online

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
43.142 Beiträge
 
Delphi 12 Athens
 
#5

AW: StringGrid nach Uhrzeit sortieren

  Alt 23. Jan 2020, 17:39
Die MemoryDataSets einiger Anbieter bieten auch eine OrderBy-Funktion an (Property mit Spaltennamen).
Und dazu statt dem StringGrid ein DBGrid verwenden. (bin mir grad nicht sicher, ob TClientDataSet sowas auch hat)

Ansonsten:
StringGrid.Rows[i].Text ist die ganze Daten-Zeile (alle Cell auf einmal kopieren, oder eben stattdessen noch eine Schleife über die gewünschten Cells),
dann brauchst nur noch eine Schleife zum Vergliechen (BubbleSort ist leicht zu bauen)
und jeweils entsprechend die Zeilen austauschen, welche nicht die richtige Reihenfolge haben.

Delphi-Quellcode:
for i1 := 0 do StringGrid.RowCount-2 do
  for i2 := i1 + 1 do StringGrid.RowCount-1 do
    if AnsiSameStr(StringGrid.Cell[x, i1], StringGrid.Cell[x, i2]) < 0 then begin // x = DatumsSpalte ... oder >0 wenn andersrum
      Temp := StringGrid.Rows[i1].Text;
      StringGrid.Rows[i1].Text := StringGrid.Rows[i2].Text;
      StringGrid.Rows[i2].Text := Temp;
    end;
PS: Die Methode von hoika nennt sich Delphi-Referenz durchsuchenAnsiSameStr.

Es ist echt erstaunlich, dass nach über 25 Jahren die VCL immernoch kein halbwegs nutzbares Grid beinhaltet.
Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher.
my Delphi wish list : BugReports/FeatureRequests

Geändert von himitsu (23. Jan 2020 um 17:47 Uhr)
  Mit Zitat antworten Zitat