ListView+ColumnClick+Sort+Integer с учетом двоичной приставки KB, MB, GB.

[XerSon]

Всем привет.

Есть ListView в стиле vsReport.

var
  { Объявим глобальную целочисленную переменную Sort.
    Она будет отвечать за направление сортировки - прямое или обратное. }
  Sort: Integer = 1;

procedure ColumnClick(Sender: TObject; Column: TListColumn);
begin
  Sort := -Sort;
  // В обработчике события Column =  Columns[3]
  // и нумерация  колонок начинается  с НУЛЯ
  // Если щелкнули по первой колонке - Caption
  if Column = ListView.Columns[3] then
   ListView.CustomSort(...Тут сортировка...);
end;

Что то типа...

if StrToInt(Item1.SubItems[3 { колонка } ]
      { Сортируемое данное } ) > Round(StrToInt(Item2.SubItems[3])) then
      Result := ParamSort
    else if StrToInt(Item1.SubItems[3 { колонка } ]
      { Сортируемое данное } ) < Round(StrToInt(Item2.SubItems[3])) then
      Result := -ParamSort;

Если значения в байтах то с сортировкой нет проблем!

Как организовать сортировку сабитема в котором занесены значения размеров файлов с учетом двоичной приставки KB, MB, GB?

Пример на картинке ниже.

[Аватар]

Приводить к одной размерности и сравнивать