奇怪的CustomSort

[Sephil]

今天用Delphi写程序的时候发现一个有趣的事
当ListView的Items是以A-Z为Caption
CustomSort的时候只要传一个TLVCompare，而TLVCompare都不用写实现
可程序居然会自动排序，XIXI

[Sephil]

顶一下

[Sephil]

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls;

type
TForm1 = class(TForm)
ListView1: TListView;
procedure FormCreate(Sender: TObject);
procedure ListView1ColumnClick(Sender: TObject; Column: TListColumn);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
I: Char;
begin
for I := 'a' to 'z' do
ListView1.Items.Add.Caption := I;
for I := 'A' to 'Z' do
ListView1.Items.Add.Caption := I;
end;

function SortProc(lParam1, lParam2, lParamSort: Integer): Integer stdcall;
begin
end;

procedure TForm1.ListView1ColumnClick(Sender: TObject;
Column: TListColumn);
begin
ListView1.CustomSort(SortProc, 0);
end;

end.

[Sephil]

upup