TCHeckListBox:Sort sortiert anders als ich

[TurboMagic]

Hallo,

gegeben ist folgendes:

D11.2, VCL Anwendung mit eienr TCheckListBox.
Außerdem eine generische TObjectList, deren Einträge u.a. ein Dateinamensfeld (string) haben.
Die in dieser Liste gespeicherten Einträge werden über eine Methode der CheckListBox.Items
Eigenschaft zugewiesen (diese wird vorher geleert).

Außerdem wurde für die generische Liste eine Sortierung anhand des Dateinamens umgesetzt.
Zum Vergleich der Strings wird CompareStr genutzt. Vermutlich liegt da auch der Hund begraben.

In den Pfad/Dateinamen gibt's u.a. solche:
[..]\Source\AddSomething.pas
[..]\Source\fWizard.pas
[..]\Source\__recovery\AddSomething.pas

Das Sort der TObjectList sortiert die jetzt so:
[..]\Source\AddSomething.pas
[..]\Source\__recovery\AddSomething.pas
[..]\Source\fWizard.pas

weil im ASCII Zeichensatz _ zwischen den großen und kleinen Buchstaben kommt.

Wenn CheckListBox.Sorted true ist, wird dort drin aber so sortiert:
[..]\Source\__recovery\AddSomething.pas
[..]\Source\AddSomething.pas
[..]\Source\fWizard.pas

Wie bekomme ich die selbe Sortierung auch in der TObjectList hin ohne
im Comparer immer .ToUpper oder .ToLower aufrufen zu müssen?

Und: was ist der Unterschied zwischen CompareStr und CompareText?
Auf den ersten Blick auf die Hilfethemen beider sah' ich noch keinen...

[DeddyH]

Aus System.SysUtils:

Delphi-Quellcode:

{ CompareText compares S1 to S2, without case-sensitivity. The return value
  is the same as for CompareStr. The compare operation is based on the 8-bit
  ordinal value of each character, after converting 'a'..'z' to 'A'..'Z',
  and is not affected by the current user locale. }

"without case-sensitivity", hier ist die Doku also wohl schlicht falsch. Du kannst ja gerne einen QC-Eintrag machen.

[himitsu]

Wie immer
SameStr SameText
CompareStr CompareText
AnsiSameStr AnsiSameText
AnsiCompareStr AnsiCompareText
...


bei Einigen wird ohne "Ansi" es als ASCII (7 Bit) im Pascal verglichen
oder wenn Mit eben mit ANSI/Unicode-Codepage

Str = case-sensitiv
Text = case-insensitiv

[TurboMagic]

Ah! Lesen sollte man können. Die Doku ist schon richtig. Bei CompareStr mit Berücksichtigung, bei CompareText ohne.

[TurboMagic]

Danke! Habe eben schon CompareText ausprobiert und das tut, was ich will.