OnCompare für ListView "Dateiliste" gesucht

[dibr]

Hallo,
ich habe mir eine kleine ShellList zusammengebaut.

Screenshot: http://www.pison.de/ebay/dateiliste.gif

Jetzt fehlt mir nur noch eine OnCompare Routine, die zwei Bedingungen erfüllt:

- Ordner immer oben (Erkennung durch Liste.SubItems[0]='') und sortiert nach '..',a,b,c...

- Dateien sortiert nach a,b,c...

:-)

[Bernd Schulz]

Hallo!<br>
Nicht getestet, aber der Compiler hat nicht gemeckert. Vielleicht hab ich Compare irgendwann mal falsch gesetzt. Aber das kann man ja mal prüfen.<br>
<PRE>
//Beide Typen sind gleich
if ((Item1.subitems[0] = '') and (Item2.subitems[0] = '')) or
((Item1.subitems[0] <> '') and (Item2.subitems[0] <> '')) then begin
if Item1.Caption = Item2.Caption then begin
Compare := 0;
Exit;
end;
if Item1.Caption < Item2.Caption then begin
Compare := -1;
Exit;
end;
if Item1.Caption > Item2.Caption then begin
Compare := 1;
Exit;
end;
end;
if (Item1.subitems[0] = '') and (Item2.subitems[0] <> '') then begin
Compare := -1;
end;
if (Item1.subitems[0] <> '') and (Item2.subitems[0] = '') then begin
Compare := 1;
end;
</PRE>
BYE BERN

[dibr]

Eins hat noch gefehlt:

lowercase beim Vergleich, sonst wird z.B. "c" nicht hinter "B" einsortiert ;-