Пишу процедуру сортировки:
Код:
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 );
Гугл не помог уж незнаю в чем ошибка,