Generator für ein Kleinfeldtunier

[MAC]

Code: Alles auswählen

StringGrid1.SortColRow(True,4);

Sollte alles automatisch machen - wenn die punkte in Zeile4 sind...
Allerdings:
Das sotiert nach string, nicht nach zahl so ist 6 größer als 50. (da 6 > 5)
Dagegen musst du alles mit 000 auffüllen, zumindest bevor du sotiert und danach wieder rückgangig machen.

Code: Alles auswählen

for i := 0 to StringGrid1.RowCount-1 do
   begin
    While length(stringgrid.cells[4,i]) < 5 do stringgrid.cells[4,i] := '0' + stringgrid.cells[4,i];
   end;

Danach kann man ja wieder rückgangig machen

Code: Alles auswählen

for i := 0 to StringGrid1.RowCount-1 do
   begin
   stringgrid.cells[4,i] := InttoStr(StrtoInt(stringgrid.cells[4,i]));
   end;