Сортировка в виртуальном Listview

[CraZZZy-GameRRR]

Нужно в виртуальном ListView произвести произвольную сортировку данных (по двум столбцам). Делаю это через метод CustomSort и пишет ошибку:

[Error] Unit1.pas(38): Variable required

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, StdCtrls, math;

type
  TForm1 = class(TForm)
    ListView1: TListView;
    procedure ListView1Data(Sender: TObject; Item: TListItem);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure CreateValues;
    function CustomSortProc(Item1,Item2: TListItem; OptionalParam: integer): integer;stdcall;
  end;

var
  Form1: TForm1;

implementation

uses DateUtils;

{$R *.dfm}

{ TForm1 }

procedure TForm1.CreateValues;
begin
  ListView1.Items.Clear;
  ListView1.Items.Count:=10;
  ListView1.UpdateItems(0,ListView1.Items.Count-1);
  ListView1.CustomSort(@CustomSortProc, 0);   // <-- Здесь ошибка
end;

procedure TForm1.ListView1Data(Sender: TObject; Item: TListItem);
begin
  Item.Caption := IntToStr(RandomRange(1, 7));
  Item.SubItems.Add(FormatDateTime('HH:MM', random));
  Item.SubItems.Add(IntToStr(RandomRange(1, 99999)));
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Randomize;
  CreateValues;
end;

function TForm1.CustomSortProc(Item1,Item2: TListItem; OptionalParam: integer): integer;stdcall;
var
  DayOfWeek1, DayOfWeek2: integer;
  Time1, Time2: TTime;
begin
  DayOfWeek1 := StrToint(Item1.Caption);
  DayOfWeek2 := StrToint(Item2.Caption);
  Time1 := StrToTime(Item1.SubItems[0]);
  Time2 := StrToTime(Item2.SubItems[0]);

  if DayOfWeek1 = DayOfWeek2 then
  begin
    Result := CompareTime(Time1, Time2);
  end
  else
  begin
    if DayOfWeek1 > DayOfWeek2 then
      Result := 1
    else
      Result := -1;
  end;
end;

end.

Что не так?

[come-on]

какого типа первый параметер в CustomSort?

[Аватар]

Убери CustomSortProc из методов формы.

[CraZZZy-GameRRR]

Сообщение от Аватар

Убери CustomSortProc из методов формы.

Убрал, запускается, но не сортирует. Поставил breakpoint в начало CustomSortProc, но она нигде не вызывается.

[3D Hunter]

Список точно виртуальный? т.е. свойство OwnerData = true?

[CraZZZy-GameRRR]

Сообщение от 3D Hunter

Список точно виртуальный? т.е. свойство OwnerData = true?

Именно так.

[3D Hunter]

тогда используйте свойство AllocBy и метод Repaint(); заполняете данные в событии onData.