Проблема с сортировкой.

[Артём_2]

Приветствую всех.

Проблема такая: пытаюсь сортировать ListView(vsReport) но вываливается ошибка "access violation at address...". Странно что когда щёлкаю по колонке в пустой таблице то ничего не происходит(сообщение не вылазит), но если таблица заполнена то вылазит ошибка. В каждой строчке в колонке 2 русских слова. Код брал в гугле.

type
....
function SortCaptionAsString(Item1, Item2: TListItem; ParamSort: integer): integer; stdcall;
...

...
var
...
Sort: integer = 1;
...

...
procedure TForm1.sListView1ColumnClick(Sender: TObject; Column: TListColumn);
begin
   Sort := -Sort;
   if Column = sListView1.Columns[0] then
      sListView1.CustomSort(@TForm1.SortCaptionAsString, Sort)
end;


function TForm1.SortCaptionAsString(Item1, Item2: TListItem; ParamSort: integer): integer; stdcall;
begin
  Result := 0;
  if AnsiUpperCase(Item1.Caption) > AnsiUpperCase(Item2.Caption) then Result := ParamSort
  else
  if AnsiUpperCase(Item1.Caption) < AnsiUpperCase(Item2.Caption) then Result := -ParamSort;
end;
...

[ReportCube]

А причём здесь форма CustomSort(@TForm1.?

[Артём_2]

Без этого: [dcc32 Error] Unit1.pas(527): E2036 Variable required

[ReportCube]

Без чего этого?

function SortCaptionAsString(Item1, Item2: TListItem; ParamSort: integer): integer;
begin
Result := 0;
if AnsiUpperCase(Item1.Caption) > AnsiUpperCase(Item2.Caption) then Result := ParamSort
else
if AnsiUpperCase(Item1.Caption) < AnsiUpperCase(Item2.Caption) then Result := -ParamSort;
end;

[ReportCube]

А лучше посмотрите сортировку в исходниках для TStringList
procedure TStringList.Sort;

[Артём_2]

Если убрать форм1 то ошибка "E2036 Variable required" в строке " sListView1.CustomSort(@SortCaptionA sString, Sort)"

[Артём_2]

В общем опишу ход моих действий.

1) В var добавляю "Sort: integer = 1;"

2) В type добавляю "function SortCaptionAsString(Item1, Item2: TListItem; ParamSort: integer): integer; stdcall;"

3) Нажимаю ctrl+shift+c

4) Появляется:

function TForm1.SortCaptionAsString(Item1, Item2: TListItem;
  ParamSort: integer): integer;
begin

end;

5) Добавляю туда код, получается:

function TForm1.SortCaptionAsString(Item1, Item2: TListItem;
  ParamSort: integer): integer;
begin
  Result := 0;
  if AnsiUpperCase(Item1.Caption) > AnsiUpperCase(Item2.Caption) then Result := ParamSort
  else
  if AnsiUpperCase(Item1.Caption) < AnsiUpperCase(Item2.Caption) then Result := -ParamSort;
end;

6) Выбираю в "design" sListView1

7) В "events" 2 раза щёлкаю по "onColumnClick"

8) Появляется:

procedure TForm1.sListView1ColumnClick(Sender: TObject; Column: TListColumn);
begin

end;

9) Пишу туда код, получается:

procedure TForm1.sListView1ColumnClick(Sender: TObject; Column: TListColumn);
begin
   Sort := -Sort;
   if Column = sListView1.Columns[0] then
   sListView1.CustomSort(@TForm1.SortCaptionAsString, Sort)
end;

10) Компилирую. Ошибок нет.

11) При запуске программы таблица пуста, при щелчке на первую колонку ничего не происходит.

12) Таблица заполняется.

13) При щелчке на первую колонку: "access violation at address..."

Что я делаю не так?

[Аватар]

А просто посмотреть пример в дельфийской справке?

function CustomSortProc(Item1, Item2: TListItem; ParamSort: integer): integer; stdcall;
begin
  Result := -CompareText(Item1.Caption,Item2.Caption);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
  ListView1.CustomSort(@CustomSortProc, 0);
end;

В type добавляю

Ничего туда не надо добавлять

[Shouldercannon]

Пример сортировки в ListView