|
#1
|
|||
|
|||
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 ); Гугл не помог уж незнаю в чем ошибка, Последний раз редактировалось Admin, 18.10.2011 в 09:44. |
#2
|
||||
|
||||
Ответ уже дан в самом вопросе.
Подставляется в вызов Sort, а что это? По определению требуется переменная. Je venus de nulle part 55.026263 с.ш., 73.397636 в.д. |