Forum: Object-Pascal / Delphi-Language
Delphi
by Nico B.,
11. Apr 2023
Danke für den Hinweis.
Ich habe es jetzt mal beim FindFirst schon die Suche auf '*.csv' eingeschränkt.
Damit hat sich das doch schon erledigt, oder?
Sieht es jetzt besser aus?
if FindFirst(ExtractFilePath(ParamStr(0))+'*.csv',faAnyFile,Anlage)=0
then
try
begin
Forum: Object-Pascal / Delphi-Language
Delphi
by Nico B.,
11. Apr 2023
Vielen herzlichen Dank auch an Uwe (ohne sein Drängen hätte ich mir wahrscheinlich nicht gleich die Mühe gemacht das Programm abzutippen)!
Jetzt klappt es.
Diese Codezeile wurde in einem anderen Thread zu dem Thema als unbedingt notwendig betitelt.
Und in euren Beispielen habe ich einfach übersehen, dass ihr sie weggelassen habt.
VIELEN, VIELEN DANK noch einmal.
Und entschuldigt, dass...
Forum: Object-Pascal / Delphi-Language
Delphi
by Nico B.,
11. Apr 2023
Hallo zusammen,
dann hier mal mein Code.
Ich muss dazu sagen, dass ich an einem Rechner programmiere, der nicht mit dem Internet verbunden ist.
Ich habe mir zwar beim Abschreiben Mühe gegeben, kann aber nicht ausschließen, dass sich ein Tipp-Fehler eingeschlichen hat.
function Sortierfunktion(Liste: TStringList; Index1: integer; Index2: integer): integer;
begin
...
Forum: Object-Pascal / Delphi-Language
Delphi
by Nico B.,
6. Apr 2023
Hallo zusammen,
ja, also Delphi.Narium hat es richtig erfasst und zusammengefasst.
Es handelt sich tatsächlich um eine Struktur wie bei einer Kapitelnummerierung.
Und dort ist die 2.3 vor der 2.12 zu finden.
Anfangs habe ich überhaupt nicht daran gedacht, dass es hier ein Problem geben könnte, da die Dateien im Explorer in der korrekten Reihenfolge angezeigt werden.
Umso überraschter bin...
Forum: Object-Pascal / Delphi-Language
Delphi
by Nico B.,
6. Apr 2023
Danke für die Antworten.
Ich habe es jetzt mit beiden Versionen probiert.
Allerdings ohne Erfolg...
Forum: Object-Pascal / Delphi-Language
Delphi
by Nico B.,
5. Apr 2023
Ich habe es wie beschrieben mit der Funktion in Verbindung mit CustomSort versucht.
CompareString(LOCALE_USER_DEFAULT, SORT_STRINGSORT or SORT_DIGITSASNUMBERS, PChar(S1),
Length(S1), PChar(S2), Length(S2)) - CSTR_EQUAL;
Leider bleibt das Ergebnis das gleiche.