TStringList absteigend sortieren

[shmia]

Also die Grundlage für Natural Sort ist Natural Compare.
Das ist gar nicht so einfach, aber ich hab mir da mal etwas Code von der DP geklaut (Danke xaromz!) und nochmals verbessert.
Herausgekommen ist eine Unit, die man so direkt verwenden kann.
Man müsste vielleicht noch Anpassungen für die höheren Delphi Versionen mit Unicode vornehmen und könnte die Unit dann in die Code-Library eintüten.

Delphi-Quellcode:

// Anwendungsbeispiel zum "natürlichen" Sortieren
function StringListSortCompare(List: TStrings; Index1, Index2: integer): integer;
begin
  // Index1 und Index2 sind vertauscht -> absteigend sortieren
  if List.CaseSensitive
    then Result := NaturalCompareStr(List[Index2], List[Index1])
    else Result := NaturalCompareText(List[Index2], List[Index1]);
end;

[XxnemesisxX49]

Ich hab soweit alles eingefügt, aber bei

Code:

type
   TTextCompFunc = function(const S1, S2: string):Integer;

zeigt er mir den Fehler "':' erwartet, aber '=' gefunden" an. Wenn ich dann aber : hinschreibe, erscheint die Fehlermeldung "ein Bezeichner erwartet aber FUNCTION gefunden."

Was muss ich da noch verändern? :)

[shmia]

Zitat:

Zitat von XxnemesisxX49 (Beitrag 1181702)

zeigt er mir den Fehler "':' erwartet, aber '=' gefunden" an.

Welche Delphi Version?
Die Typdeklaration ist eigentlich schon seit Delphi 1 legal und müsste so selbst in Turbo-Pascal möglich sein.
Sehr seltsam...
Vielleicht ist TTextCompFunc schon irgendwo in der VCL definiert und man müsste nur den Namen umbenennen (z.B. nach TTextCompareFunc).

[XxnemesisxX49]

Delphi 7

[XxnemesisxX49]

Delphi 7

[DeddyH]

Hast Du den Quelltext irgendwo reinkopiert, oder die Unit heruntergeladen und unter dem richtigen Namen gespeichert?

[XxnemesisxX49]

Zitat:

Zitat von shmia (Beitrag 1181705)

Vielleicht ist TTextCompFunc schon irgendwo in der VCL definiert und man müsste nur den Namen umbenennen (z.B. nach TTextCompareFunc).

Hab ich probiert, gleicher Fehler.

Zitat:

Zitat von DeddyH (Beitrag 1181710)

Hast Du den Quelltext irgendwo reinkopiert, oder die Unit heruntergeladen und unter dem richtigen Namen gespeichert?

Ich habe alles in mein Programm reinkopiert, aber an die richtigen Stellen, meiner Meinung nach...:-D

[DeddyH]

Dann kopier das wieder raus :mrgreen:, speichere die Unit unter "NatCompare.pas" in Deinem Delphi-Suchpfad oder dem Projektverzeichnis ab und binde sie in die uses-Klausel ein.

[XxnemesisxX49]

Zitat:

Zitat von DeddyH (Beitrag 1181713)

in Deinem Delphi-Suchpfad oder dem Projektverzeichnis ab und binde sie in die uses-Klausel ein.

also in dem Ordner, wo das Projekt und die Unit gepspeichert sind?

Wie binde ich sie denn in die uses-Klausel ein? Das hab ich noch nie gemacht.

[DeddyH]

Na, einfach dahinter schreiben, mit Komma getrennt.

Delphi-Quellcode:

uses
  Windows, Messages, SysUtils, {usw.}, NatCompare;