ListView bzw. StringList sortieren...

[Daniel B]

Hi,

ich finde dein Text doch irgendwo extrem lang. Hier ist mal meiner.

Code:

procedure TForm1.ListViewsColumnClick(Sender: TObject; 
  Column: TListColumn); 
begin 
  ColumnToSort:=Column.Index; 
  (Sender as TCustomListView).AlphaSort; //ist extra so allgemein geschrieben 
end; 

procedure TForm1.ListViewsCompare(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;

Aufrufen dann damit:

Code:

procedure TForm1.Button1Click(Sender: TObject); 
begin 
  ColumnToSort:=0; //Hier wird die Spalte angegeben, nachder Sortiert werden soll; 0 wäre also die erste/Caption
  ListViewKKLok.AlphaSort; 
end;

Statt dem Button1Click, kannst du eben auch dein ColumnClick nehmen

Grüsse, Daniel