Fehler mit CustomSort

[DeddyH]

Ich habe das mal so getestet:

Delphi-Quellcode:

unit MySort;

interface

uses SysUtils, comctrls;

function CustomSortProc(Item1, Item2: TListItem; ParamSort: integer): integer; stdcall;

implementation

function CustomSortProc(Item1, Item2: TListItem; ParamSort: integer): integer; stdcall;
begin
  Result := -AnsiStrIComp(PChar(Item1.Caption),PChar(Item2.Caption));
end;


end.

Nun diese Unit unter uses eingetragen und mit

Delphi-Quellcode:

procedure TForm1.Button3Click(Sender: TObject);
begin
  ListView1.CustomSort(@CustomSortProc,0);
end;

aufgerufen