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

Delphi-Quellcode:

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:

Zitat von greenmile (Beitrag 1198259)

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;

[greenmile]

Wenn einmal das richtige reicht, wieso gibt es dann in der VCL 2 ??

[Uwe Raabe]

Zitat:

Zitat von greenmile (Beitrag 1198269)

Wenn einmal das richtige reicht, wieso gibt es dann in der VCL 2 ??

Weil die eine Version deutlich schneller ist als die andere. Wenn man sicher ist, daß der String nur reine ASCII-Zeichen enthält, kann man halt die schnellere Funktion nehmen.

[greenmile]

Hmmmm ... Ok, nehme ich jetzt mal so hin. In den meisten Fällen weiß ich natürlich nicht, ob ein Ö drin ist. Dann müsste ich das vor-filtern und der ganze Geschwindigkeitsvorteil ist dahin.