Einfach zuerst unsortiert listen und diese Liste dann sortieren.
Unsortiert listen:
Delphi-Quellcode:
var
f:tsearchrec;
list:tstringlist;
begin
list:=tstringlist.create;
if findfirst(filename,0,f)<>0 then
exit;
list.add(f.name);
while findnext(f)=0 do
list.add(f.name);
findclose(f);
end;
Sortieren: Tausende Funktionen, einfach mal Codelib-Suche
Michael Enßlin
Ich, der ich weiß, mir einzubilden, dass ich weiß, nichts zu wissen, weiß, dass ich nichts weiß.
Sokrates