Тема: ListView
Показать сообщение отдельно
  #1  
Старый 17.10.2011, 18:59
Kingcss Kingcss вне форума
Начинающий
 
Регистрация: 20.12.2010
Адрес: Иваново
Сообщения: 100
Версия Delphi: Delphi 7
Репутация: 519
По умолчанию ListView

Пишу процедуру сортировки:
Код:
procedure TForm13.ListView1ColumnClick(Sender: TObject;
  Column: TListColumn);
begin
  Sort := -Sort;
   if Column = ListView1.Columns[0] then
      ListView1.CustomSort( @SortCaptionAsString, Sort )
   if Column = ListView1.Columns[1] then
      ListView1.CustomSort( @SortFirstSubItemAsString, Sort ) 
   else
end;

Вот объявление:
function SortCaptionAsString(Item1, Item2: TListItem; ParamSort: integer): integer; stdcall;

и вот описание:
Код:
function TForm13.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;
Админ: Пользуемся тегами для оформления кода!

выдает ошибку (Variable required) на строке:
ListView1.CustomSort( @SortCaptionAsString, Sort );
Гугл не помог уж незнаю в чем ошибка,
Ответить с цитированием