StringGrid nach Uhrzeit sortieren

[H.Bothur]

Moin,

ich brauche mal einen Denkanstoß:

Ich habe ein Stringgrid mit zwei Feldern:

Feld 1: Name
Feld 2: Uhrzeit im Format HH:MM

Jetzt möchte ich die nächsten 5 Datensätze anzeigen lassen die uhrzeitmässig als nächstes kommen.
Aber - mir fehlt da irgendwie jeder Ansatz wie ich die Sortierung machen kann. Kann mich da mal jemand in die richtige Richtung schupsen ?

Danke !
Hans

[hoika]

Hallo,
suchst Du Ansätze, wie man sortiert?
https://stackoverflow.com/questions/...ng-string-grid

oder wie Du das mit der Uhrzeit machen sollst?
HH:MM läßt sich sogar wie ein String sortieren (wenn die Stunden immer zwei Ziffern haben)

[H.Bothur]

Jein - ich brauche einen Ansatz wie ich die Datensätze so sortiere das die nächsten Termine oben sind Hans. Aber das mit dem Tip die Uhrzeit immer zweistellig darzustellen war schon nicht schlecht

Hans

[hoika]

Hallo,
also Order By Desc ...

Tip:
Wenn Du dir das TAdvStringGrid von TMS leisten kannst, kauf es.
Das hat bereits ein CustomSort drin.

Ansonsten nimm einen der Quelltexte aus dem Link.

Dann eine

Delphi-Quellcode:

function Compare-Methode(A, B: String): Integer;
begin
  if A<B then
  begin
    Result:= 1;
    Exit;
  end;
  if A>B then
  begin
    Result:= -1;
    Exit;
  end;
  Result:= 0;
end;

Hier ist praktisch das Sortieren umgedreht.

Bitte nicht über den miesen Code herziehen :=)
Ist ja nur ein Bsp..

[himitsu]

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 AnsiSameStr.

Es ist echt erstaunlich, dass nach über 25 Jahren die VCL immernoch kein halbwegs nutzbares Grid beinhaltet.

[DeddyH]

Nur mal so: http://www.bergsoft.net/en-us/product/next-grid