Ranking von Weitenangaben ermitteln

[himitsu]

So schwer ist das doch nicht?
Absteigend sortierte Liste, fängst bei 1 an, weißt das nacheinander deinen Zeilen zu
und dann immer um 1 hochzählen, wenn der vorherrige Wert nicht dem aktuellen Wert entspricht.

SQL-Code:

rank() OVER (ORDER BY wert) as ranking
-- oder
row_number() OVER (ORDER BY wert) as ranking

Ins OVER noch ein GROUP BY wert oder DISTINCT rein.
https://support.microsoft.com/de-de/...-sql-statement
Guck in die Doku deines DBMS ... sowas gibt es fast überall.

Im Prinzip die bestehenden Werte sortieren, gruppieren (gleiche zusammenfassen) und dann den Index aus dieser Liste als Ranking verwenden.

[torud]

Jo vielen Dank erstmal.
Ich schau´s mir nochmal an.

Mit SQL und DB hat das Ganze aber nichts zu tun. Wir geben die Daten direkt in ein Stringgrid ein.

[Sherlock]

Zitat von torud:

Mit SQL und DB hat das Ganze aber nichts zu tun. Wir geben die Daten direkt in ein Stringgrid ein.

Dadurch, daß Daten und Darstellung ja getrennt zu halten sind, mußt Du Dir aber Gedanken über ein Datenmodell machen, egal wie simpel es ist. Denn in dem Grid speichert man nichts, man zeigt nur an.

Sherlock

[torud]

Ok, ich widerspreche Dir auf keinen Fall, aber es ist so, dass wir die Daten in das Stringgrid eingeben, weil es einfach nicht anders geht, schnell und einfach ist.
OOP war noch nie meine Stärke und ich tu mich gerade echt schwer extra eine Klasse aufzusetzen, nur um die Daten aus dem Stringgrid darin zu überführen...
Ich werds schon irgendwie hinbekommen. Einen Rang zu ermitteln, wenn es keine Dopplung gibt ist einfach. Ich muss nur noch für den Spezialfall vorsorgen.

[himitsu]

Zitat von torud:

Mit SQL und DB hat das Ganze aber nichts zu tun. Wir geben die Daten direkt in ein Stringgrid ein.

Zitat von himitsu:

So schwer ist das doch nicht?
Absteigend sortierte Liste, fängst bei 1 an, weißt das nacheinander deinen Zeilen zu
und dann immer um 1 hochzählen, wenn der vorherrige Wert nicht dem aktuellen Wert entspricht.

Alternativ eine zweite sortierte Liste mit den Werten (ohne Doppelung) und dann bekommt man drüben via IndexOf+1 das Ranking raus.

[torud]

Zitat von himitsu:

So schwer ist das doch nicht?
Absteigend sortierte Liste, fängst bei 1 an, weißt das nacheinander deinen Zeilen zu
und dann immer um 1 hochzählen, wenn der vorherrige Wert nicht dem aktuellen Wert entspricht.

Alternativ eine zweite sortierte Liste mit den Werten (ohne Doppelung) und dann bekommt man drüben via IndexOf+1 das Ranking raus.[/QUOTE]

Ich schau mal, bin gerade dran...

[torud]

Nicht schön, aber damit gehts schon mal. Die doppelt vorhandenen Ränge werden nicht angezeigt. Von daher stimmt die Zählweise schon.
Danke für den Denkanstoß...

Delphi-Quellcode:

  //Rang bestimmen
  iRang := 0;
  iWidth := 0;
  iLastWidth := 0;
  for i := 1 to FrameVorrundeOutput1.grdPlayers.RowCount -1 do
    begin
      iWidth := StrToIntDef(FrameVorrundeOutput1.grdPlayers.Cells[2,i],0);
      if iWidth > 0 then
        begin
          if iWidth = iLastWidth then
            begin
              inc(iRang);
            end
          else
            begin
              inc(iRang);
              FrameVorrundeOutput1.grdPlayers.Cells[0,i] := IntToStr(iRang);
            end;
          iLastWidth := iWidth;
        end;
    end;