TStringList absteigend sortieren

[shmia]

Zitat von XxnemesisxX49:

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 von shmia:

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 von DeddyH:

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...

[DeddyH]

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

[XxnemesisxX49]

Zitat von DeddyH:

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;