Highscore

[kiar]

versuche mal das , damit wird bei einem klick auf column sortiert

Delphi-Quellcode:

procedure TForm1.listview1ColumnClick(sender:TObject;Column:TListColumn);

begin
    ColumnToSort := Column.Index;
    (Sender as TCustomListView).AlphaSort;

end;

procedure TForm1.ListView1Compare(Sender: TObject;
              Item1, Item2: TListItem;
                                  Data: Integer;
                                  var Compare: Integer);
var
  i:integer;
begin
       if ColumnToSort = 0 then
          Compare := CompareText(Item1.Caption,Item2.Caption)
       else begin
          i := ColumnToSort - 1;
          Compare := CompareText(Item1.SubItems[i],Item2.SubItems[i]);
  end;
end;

[edit=Daniel B]Delphi-Tags korrigiert Mfg, Daniel B[/edit]