Bug in Lowercase?

[greenmile]

Hallo,

ich bin gerade vom Glauben abgefallen und kann es, ehrlich gesagt, auch nicht so recht glauben.

- Gegeben: XE3 Pro, Update 1.
- ToDo: Datei / Neu /VCL (Win32)
- Einfach einen Button auf die Form, im OnClick dann folgenden Befehl:

MessageDlg('Österreich'+#13#10+Lowercase('Österrei ch'), mtWarning, [mbOK], 0);

Heraus kommt: Beide Male das selbe? Mit allem funktioniert es, nur mit dem Ö nicht (Ä habe ich nicht versucht).
Österreich = Österreich, also nichts mit Lowercase.

Kann das jemand reproduzieren?

[Helmi]

Probier mal AnsiLowerCase

MessageDlg('Österreich'+#13#10+AnsiLowercase('Österrei ch'), mtWarning, [mbOK], 0); .

In der Hilfe ist beschrieben, dass nur A..Z klein geschrieben werden

Zitat:

LowerCase wandelt die Zeichen des mit S angegebenen String-Wertes in Kleinbuchstaben um. Die Konvertierung betrifft jedoch nur die mit 7 Bit darstellbaren ASCII-Zeichen zwischen 'A' und 'Z' (keine Umlaute). Sollen die landesspezifischen Zeichen des 8-Bit-Zeichensatzes konvertiert werden, verwenden Sie stattdessen die Funktion AnsiLowerCase.

[greenmile]

Wie konnte ich nur darauf kommen, dass Lowercase nicht immer Lowercase ist?
Ich bin echt zu alt für diesen ...

Werde jetzt am Anfang jeder Unit zwei Hilfsfunktionen einfügen damit ich das nicht vergesse:

function LowerCase(const S: string): string;
begin
Result := System.SysUtils.AnsiLowerCase(System.SysUtils.Lowe rcase(S));
end;

function UpperCase(const S: string): string;
begin
Result := System.SysUtils.AnsiUpperCase(System.SysUtils.Uppe rCase(S));
end;

Danke!

[greenmile]

Doppelpost.

[Helmi]

Zitat von greenmile:

Wie konnte ich nur darauf kommen, dass Lowercase nicht immer Lowercase ist?
Ich bin echt zu alt für diesen ...

Danke!

Bin dummerweise auch schon mal da drüber geflogen

[greenmile]

Sonst noch irgendwelche Basic Befehle? Trim scheint noch Trim zu sein ...

[jfheins]

1. Warumj postest du immer noch Code ohne Code Tags? Dadurch werden hässliuche Leerzeichen eingefügt...
2. Warum doppelt? Hält besser?

Delphi-Quellcode:

function UpperCase(const S: string): string;
 begin
 Result := System.SysUtils.AnsiUpperCase(S); // Einmal das "richtige" sollte reichen...
 end;