Sonderzeichen zwischen 2 anderen Zeichen einsortieren

[hoika]

Hallo,
ich stehe gerade auf dem Schlauch.

Die Anforderung:
Sortiere eine Liste mit Namen. Die Namen haben auch die türkische Sonderzeichen Ç,ç (ASCII 199 und 231).
Ich gehe mal davon aus, dass ich erst mal nur nach dem großen Zeichen sortiere und das nur an der erster Stelle.

Meine aktuelle Funktion ist die hier.
Wie bekomme ich das jetzt so rein, dass die neuen Zeichen zwischen C und D stehen.
Ich denke gerade darüber nach, dass Ç durch C zu ersetzen, wenn der 2. Anfangs-Buchstabe >=D ist,
damit die Sortierung über den ganzen String verlaufen kann.

Wie würdet ihr das lösen?

Delphi-Quellcode:

  
function CompareStrings(const S1, S2: String) : Integer;
  begin
    if S1<S2 then
     Result := -1
    else
     if S1>S2
      then Result := 1
      else Result := 0;
  end;

Ich würde das Sonderzeichen in S1 ersetzen durch C, wenn S2 mit mindestens D beginnt usw.

Aber ich habe im Moment keinen Plan ...

[Luckie]

Ordne jedem Buchstaben einen Integerwert zu und sortiere da nach, irgendwie oder so. (Nicht ganz zu Ende gedacht, aber vielleicht gib es ja einen Anstoß.)

[hoika]

Hallo,
ja, das war auch meine Überlegung.
Das dauert nur ewig (verglichen mit dem aktuellen Code).

[p80286]

Den https://de.wikipedia.org/wiki/Alphab..._nach_Sprachen kennst Du wahrscheinlich schon. Bleibt die Frage warum Du sortieren mußt. Für wen sind die sortierten Listen bestimmt? Muttersprachler erwarten u.U. eine etwas andere Sortierreihenfolge als ASCII-affine Westeuropäer.

Zitat:

ja, das war auch meine Überlegung.

Und wie sah das konkret aus?
Du mußt zwei Strings ja nur bis zum ersten Unterschied vergleichen. U.U. ist es hilfreich die Strings als array of longword zu begreifen!?

Gruß
K-H

[hoika]

Hallo,

Zitat:

Für alle sonstigen (fremdsprachigen) diakritischen Zeichen gilt im deutschsprachigen Raum, dass sie einheitlich weggelassen werden; so auch alle Akzente, Tilde, Makron: é und e, ç und c, ñ und n, č und c, ō und o sind gleich.

Das passt doch für mich ...
Genau so mache ich das jetzt auch.

Warum mache ich das:
Ist ein Kundenwunsch.

[p80286]

Na dann ist ja gut

Gruß
K-H

[hoika]

Hallo,
danke noch mal

Zitat:

kennst Du wahrscheinlich schon

Hatte ich nicht mehr auf dem Plan.

[Uwe Raabe]

Hast du das schon mal versucht? Hier unter Rio tut das offenbar genau was du willst:

Delphi-Quellcode:

  Result := AnsiCompareStr(S1, S2);

bwz. wenn es case-insensitiv sein soll:

Delphi-Quellcode:

  Result := AnsiCompareText(S1, S2);

[hoika]

Hallo Uwe,
eigentlich ja, klappt aber wirklich. *verblüfft*