Witam!
Jak posortowac kolumne od najwiekszej wartosci do najmniejszej: 1,2,5,10,20 a nie 1,10,2,20??
Jak trzeba zmienic ten kod??
var
ix: Integer;
begin
if ColumnToSort = 0 then
Compare := CompareText(Item1.Caption,Item2.Caption)
else
begin
ix := ColumnToSort - 1;
Compare := CompareText(Item1.SubItems[ix],Item2.SubItems[ix]);
end;
end;
Dzieki!