Fehler mit CustomSort

[okoeller]

Hallo DaddyH,

die ListViews für die ich diese Lösung brauche befinden sich in Frames verschiedener Fenster.

Zunächst will ich die Aufgabe aber mit meinem kleinen Beispielprogramm lösen, hier hab ich nur eine ListView.
Für mein Beispielprogramm hab ich nun eine neue Unit ListeSortieren erstellt(sie ist von Thomas Stutz, swissdelphicenter.ch) und diese in meiner Unit LVT unter uses eingebunden. Leider funktioniert die Sortierung nicht wie gewünscht.
Muß der Aufruf jetzt vielleicht anders lauten, oder muss ich in der Unit ListeSortieren die "function CustomSortProc(Item1,..." anders deklarieren?

Gruß okoeller

Delphi-Quellcode:

unit ListeSortieren;
interface

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

type
  TCustomSortStyle = (cssAlphaNum, cssNumeric, cssDateTime);

function CustomSortProc(Item1, Item2: TListItem; SortColumn: Integer): Integer; stdcall;

var
  { variable to hold the sort style }
  LvSortStyle: TCustomSortStyle;
  { array to hold the sort order }
  LvSortOrder: array[0..4] of Boolean; // High[LvSortOrder] = Number of Lv Columns

implementation



function CustomSortProc(Item1, Item2: TListItem; SortColumn: Integer): Integer; stdcall;
var
  s1, s2: string;
  i1, i2: Integer;
  r1, r2: Boolean;
  d1, d2: TDateTime;

  { Helper functions }
. . .