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
