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;