[Kingcss]

Пишу процедуру сортировки:

Код:

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 );
Гугл не помог уж незнаю в чем ошибка,

[icWasya]

Сообщение от Kingcss

Пишу процедуру сортировки:
Гугл не помог уж незнаю в чем ошибка,

Я обычно сначала лезу в исходники.
Вот правильная сигнатура
type
TTVCompare = function(lParam1, lParam2, lParamSort: Longint): Integer stdcall;

и это не должно быть методом, должна быть свободная процедура.

[Kingcss]

хм, честно говоря не понял ваш пост, вы могли бы объснить по проще...

[icWasya]

Сообщение от Kingcss

хм, честно говоря не понял ваш пост, вы могли бы объснить по проще...

У Вас написано

Код:

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;

надо

предварительное объявление

Код:

function SortCaptionAsString(Param1, Param2: Pointer;
  ParamSort: integer): integer; stdcall;

вынести из объявления типа TForm13 и описание

Код:

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

тоже без TForm13, и тогда в строке

Код:

ListView1.CustomSort( SortFirstSubItemAsString, Sort )

не надо будет использовать символ @