TStringList und ß / ss

AScomp · Verfasst: Do 27.10.11 03:24

Hallo zusammen,

habe momentan folgendes Problem: Eine sortierte TStringList meint, 'tesst' und 'teßt' seien dasselbe. Darum wird einerseits beim Hinzufügen einer der beiden Werte ignoriert (da dupIgnore), andererseits mit IndexOf der jeweils andere Wert gefunden:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:

var
   bla: tstringlist;
begin
     bla := tstringlist.Create;
     bla.Sorted := true;
     bla.Duplicates := dupIgnore;
     bla.Add('tesst');
     showmessage(inttostr(bla.IndexOf('teßt')));
     bla.Free;

Es wird 0 zurückgegeben statt -1.

Habe zwar schon Behelfslösungen gefunden (wie z.B. das Ersetzen von 'ß' durch einen temporären Wert), aber eine wirklich saubere Lösung habe ich bisher nicht gefunden.

Gibt es vielleicht eine StringList, die das korrekt löst (= nur tatsächlich identische Strings werden auch als identisch erkannt, unabhängig von irgendwelchen LocaleSettings)? Oder kann ich die classes.pas so anpassen, dass ss und ß nicht mehr als identisch angesehen werden (wäre mir insofern fast lieber, da ich diese Änderung sonst in mehreren Projekten vornehmen müsste)?

Danke und Gruß

Andy

P.S. Sorry, bin im falschen Forenbereich gelandet, sollte eigentlich in den WinAPI-Bereich.
Moderiert von Narses: Das ist hier schon richtig, ist ja eine Onboard-Compo.

Tankard · Beiträge: 217 Erhaltene Danke: 96

Welche Delphi Version hast du denn? Unter Lazarus kommt -1, so wie erwartet.

Nersgatt · Verfasst: Do 27.10.11 07:17

TStrings verwendet da AnsiCompareStr. Das ist der Grund. Ließe sich so lösen:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

  TMyStringList = class(TStringList)
  protected
    function CompareStrings(const S1, S2: string): Integer; override;
  end;

implementation

{ TMyStringList }

function TMyStringList.CompareStrings(const S1, S2: string): Integer;
begin
  Result := CompareStr(S1, S2);
end;

Dann natürlich TMyStringList verwenden:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

procedure TForm10.FormCreate(Sender: TObject);
var
   bla: TMyStringList;
begin
     bla := TMyStringList.Create;
     bla.Sorted := true;
     bla.Duplicates := dupIgnore;
     bla.Add('tesst');
     showmessage(inttostr(bla.IndexOf('teßt')));
     bla.Free;
end;

Ressourcenschutzblöcke nicht vergessen.

_________________
Gruß, Jens
Zuerst ignorieren sie dich, dann lachen sie über dich, dann bekämpfen sie dich und dann gewinnst du. (Mahatma Gandhi)

AScomp · Verfasst: Do 27.10.11 13:32

Danke Jens, das war's!

Allerdings frage ich mich, warum da offensichtlich vergessen wurde, auf CompareStr bzw. CompareText abzuändern (in classes.pas). Hätten nicht alle Ansi-Funktionen in ihre Unicode-Versionen abgeändert werden sollen?

Btw: Nutze Delphi XE.

Narses · Verfasst: Do 27.10.11 14:32

Moin!

AScomp hat folgendes geschrieben :

Allerdings frage ich mich, warum da offensichtlich vergessen wurde, auf CompareStr bzw. CompareText abzuändern (in classes.pas). Hätten nicht alle Ansi-Funktionen in ihre Unicode-Versionen abgeändert werden sollen?

Tja, da ist einfach beim Hersteller nicht mehr die gleiche Qualität vorhanden, wie bei der Umstellung für den generischen String-Typ von ShortString auf AnsiString... :nixweiss:

Ist nicht der einzige Bug in dieser Richtung... :roll:

AScomp hat folgendes geschrieben :

Btw: Nutze Delphi XE.

Dass es da allerdings auch immer noch nicht korrigiert ist, grenzt schon an Peinlichkeit... :autsch:

Hat einer XE2 mit Quelltext und kann mal grad nachschauen? :lupe:

cu
Narses

_________________
There are 10 types of people - those who understand binary and those who don´t.

AScomp · Verfasst: Do 27.10.11 15:15

Hallo Narses,

habe leider nur die Trial von XE2 und diese nicht mal mehr installiert - sonst hätte man ja einfach meinen Beispiel-Quellcode dort testen können.

Ich verwende jetzt einfach eine eigene Version der classes.pas (abgelegt im Projektverzeichnis, damit die Änderungen bei einem Delphi-Update nicht überschrieben werden).

Gruß

Andy

EDIT: Und Embarcadero habe ich auch informiert, damit vielleicht (ein paar Jahre später) doch noch eine vollständige Unicode-Version kommt.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme