Top 3 aus Tabelle

[schrimm]

Ich habe hier im Forum schon rausgefunden, wie man in ner Tabelle nen maximalwert rausfinden kann:

Delphi-Quellcode:

      for m := 1 to 26 do
       begin
        if strtofloat(table1.cells[m,2]) > maxw then
         begin
          maxw:=strtofloat(table1.cells[m,2]);
          maxz := m;
         end;
       end;

nun will ich aber die 3 oder 5 höchsten rausfinden, ich brauche wieder nicht die werte, sondern eher die spalte, in der das ist (zeile bleibt gleich)
ich dachte schon, man müsste dazu das obrige irgendwie erweitern, aber ich bin nicht drauf gekommen, wie und was :pale:

[SirThornberry]

anstelle von maxw brauchst du dann eben ein Array wo mehrere maxwerte drin sein können (oder eine Liste). dementsprechend musst du schauen ob der kleinste Wert im Array kleiner ist als dein Wert in der Tabelle.

[matashen]

Hallo,

Ich schließmich SirThornberry an,

Auch ein Ansatz wäre die Tabelle um eine oder zwei Spalten zu erweitern.
Dann kannst du in einer Spalte markierungen für deine Sortierung machen.

Dann dieses so abprüfen

Delphi-Quellcode:

for m := 1 to 26 do 
       begin 
        if (strtofloat(table1.cells[m,2]) > maxw) and (table1.cells[m,letzte]<>'') then 
        begin 
          maxw[xter]:=strtofloat(table1.cells[m,2]); 
          maxz[xter] := m; 
          table1.cells[m,letzte]:=xter;
          inc(xter)
         end;
end;