Alphasort und Customsort bei Listview-Komponenten

[Michael57]

Nach 20 jähriger Programmierpause habe ich letztes Jahr mit Delphi angefangen und bin nun auf Lazarus umgestiegen, mein Problem: Alphasort oder Customsort bei Listview-Komponenten werden anscheinend von Lazarus nicht unterstützt, ich erhalte beim Compilieren die Fehlermeldung:

Code: Alles auswählen

(Sender as TCustomListView).AlphaSort;

Unit2.pas(55,31) Error: identifier idents no member "AlphaSort"

Habe ich nur eine Unit nicht eingebunden oder weiß jemand eine Lösung ?
Danke!

[monta]

Herzlich willkommen im Forum.

Soweit ich gerade mal geschaut hab, wird AlphaSort nur von der TCustomTreeView angeboten. Nicht aber von den ListView-Komponenten.
Zeigt zumindest die Dokumentation so:
http://www.lazarusforum.de/portal.php?c ... =AlphaSort" onclick="window.open(this.href);return false;

Ich weiß nicht, was Alphasort jetzt genau macht. Aber wenn du es nur irgendwie ordnen willst, langt es nicht vielleicht auch, die Eigenschaft SortType des ListViews entsprechend zu setzen?
Wenn nicht, musst du wohl irgendwie was eignes machen oder auf TreeView umbauen, wenns geht.

[Ralph59]

Hallo,

ich weiss ja nicht, ob dass hilft, aber ich habe mit hiermit weitergeholfen:
Ich brauchte 2 sortierungen einmal für Verzeichnisse und einmal für die Dateien.

Habe alles in ein array of array of string geschrieben und werte dieses aus, danach schreibe ich das array in mein ListView.

hier der code für asc und desc:

Code: Alles auswählen

procedure sortAscStrArray(cArray: TStringStringArray; nCoumns,nColumn: integer );
{********************
Sortiert arrays ASC vorwörts
array of array of string
nach Vorgabe
Übergaben:
Das Array
Anzahl der Spalten
Nach welcher Spalte soll sortiert werden
********************}
var
  aCopy : array of string;
  x,y,z:integer;
begin
 SetLength(aCopy,nCoumns);
  for x:=0 to Length(cArray)-1 do begin
    for y:=0 to Length(cArray)-1 do begin
      if AnsiCompareStr(cArray[y,nColumn], cArray[x,nColumn]) > 0 then begin
        for z:=0 to Length(aCopy)-1 do begin
          aCopy[z]:=cArray[x,z];
          cArray[x,z]:=cArray[y,z];
          cArray[y,z]:=aCopy[z];
        end;
      end;
    end;
  end;
end;
 
procedure sortDesStrArray(cArray: TStringStringArray; nCoumns,nColumn: integer );
{********************
Sortiert arrays DESC rückwerts
array of array of string
nach Vorgabe
Übergaben:
Das Array
Anzahl der Spalten
Nach welcher Spalte soll sortiert werden
********************}
 
var
  aCopy : array of string;
  x,y,z:integer;
begin
 SetLength(aCopy,nCoumns);
  for x:=0 to Length(cArray)-1 do begin
    for y:=0 to Length(cArray)-1 do begin
      if AnsiCompareStr(cArray[y,nColumn], cArray[x,nColumn]) < 0 then begin
        for z:=0 to Length(aCopy)-1 do begin
          aCopy[z]:=cArray[x,z];
          cArray[x,z]:=cArray[y,z];
          cArray[y,z]:=aCopy[z];
        end;
      end;
    end;
  end;
end;