AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Algorithmen, Datenstrukturen und Klassendesign TStringList Dateinamen sortierten, geht das besser?
Thema durchsuchen
Ansicht
Themen-Optionen

TStringList Dateinamen sortierten, geht das besser?

Ein Thema von DieDolly · begonnen am 18. Aug 2022 · letzter Beitrag vom 18. Aug 2022
Antwort Antwort
DieDolly

Registriert seit: 22. Jun 2018
2.175 Beiträge
 
#1

TStringList Dateinamen sortierten, geht das besser?

  Alt 18. Aug 2022, 19:14
Ich habe eine StringList und lese mit FindFirst/FindNext Dateien nicht-rekursiv eines Verzeichnisses aus.
Die Dateinamen in der Liste sind anders als die im Windows-Explorer nicht sortiert. Sorted und Sort der StringList bringt nix.

Dateinamen 1 bis 15 ergibt mit Sorted und Sort dann sowas wie 1, 10, 11..15, 2, 3 usw.

Meine Idee jetzt
Delphi-Quellcode:

function StrCmpLogicalW(const psz1, psz2: PWideChar): Integer; stdcall; external 'Shlwapi.dll';

var
 FormMain: TFormMain;

implementation

function CustomSort(List: TStringList; Index1, Index2: Integer): Integer;
begin
 Result := StrCmpLogicalW(PChar(List[Index1]), PChar(List[Index2]));
end;

procedure TForm1.Button2Click(Sender: TObject);
var
 sl: TStringList;
begin
 sl := TStringList.Create;
 try
  GetFilesInDirectory('TEST\', '*.*', sl, False);
  sl.CustomSort(CustomSort);
  showmessage(sl.Text);
 finally
  sl.Free;
 end;
end;
Geht sowas ohne viel Aufwand schöner?
  Mit Zitat antworten Zitat
Benutzerbild von juergen
juergen

Registriert seit: 10. Jan 2005
Ort: Bönen
1.175 Beiträge
 
Delphi 11 Alexandria
 
#2

AW: TStringList Dateinamen sortierten, geht das besser?

  Alt 18. Aug 2022, 19:32
Sorry, falsche Antwort… —-gelöscht—-
Jürgen
Indes sie forschten, röntgten, filmten, funkten, entstand von selbst die köstlichste Erfindung: der Umweg als die kürzeste Verbindung zwischen zwei Punkten. (Erich Kästner)
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.184 Beiträge
 
Delphi 12 Athens
 
#3

AW: TStringList Dateinamen sortierten, geht das besser?

  Alt 18. Aug 2022, 19:38
Hier im Forum suchennatural sort, Hier im Forum suchennaturalsort usw.
https://www.faqcode4u.com/faq/265084...ndows-explorer
https://www.delphipraxis.net/201913-...ml#post1445547
https://www.delphipraxis.net/29910-n...n-strings.html

achja, Winapi.ShLwApi und TDirectory.GetFiles aus System.IOUtils
$2B or not $2B

Geändert von himitsu (18. Aug 2022 um 21:29 Uhr)
  Mit Zitat antworten Zitat
DieDolly

Registriert seit: 22. Jun 2018
2.175 Beiträge
 
#4

AW: TStringList Dateinamen sortierten, geht das besser?

  Alt 18. Aug 2022, 19:51
Ich habe das jetzt mal so übernommen, aber sind die Sort-Parameter coStringSort und coDigitAsNumbers richtig?
Delphi-Quellcode:
function NaturalCompareText(List: TStringList; Index1, Index2: Integer): Integer;
begin
 Result := string.Compare(List[Index1], List[Index2], [coStringSort, coDigitAsNumbers]);
end;
  Mit Zitat antworten Zitat
Benutzerbild von Uwe Raabe
Uwe Raabe

Registriert seit: 20. Jan 2006
Ort: Lübbecke
11.475 Beiträge
 
Delphi 12 Athens
 
#5

AW: TStringList Dateinamen sortierten, geht das besser?

  Alt 18. Aug 2022, 19:59
Geht sowas ohne viel Aufwand schöner?
Eine abgeleitete Stringliste mit eigener CompareStrings Funktion. Dann geht auch einfach Sort bzw. Sorted := True .
Delphi-Quellcode:
type
  TFileNameList = class(TStringList)
  protected
    function CompareStrings(const S1: string; const S2: string): Integer; override;
  end;

function TFileNameList.CompareStrings(const S1, S2: string): Integer;
begin
  Result := string.Compare(S1, S2, [coDigitAsNumbers]); // bei Bedarf noch weitere Optionen
end;
Uwe Raabe
Certified Delphi Master Developer
Embarcadero MVP
Blog: The Art of Delphi Programming
  Mit Zitat antworten Zitat
DieDolly

Registriert seit: 22. Jun 2018
2.175 Beiträge
 
#6

AW: TStringList Dateinamen sortierten, geht das besser?

  Alt 18. Aug 2022, 20:04
Ich habe mich total verguckt ich hätte nach Datum sortieren sollen nicht nach Name. Hat sich erledigt sorry.
  Mit Zitat antworten Zitat
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 04:38 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz