Herausfinden, ob Char ein Großbuchstabe ist.

[xZise]

Wie kann ich herausbekommen, ob ein Buchstabe ein Großbuchstabe ist?

Gibt es eine vorgefertigte Methode? (z.B. isUppercase o.ä.)

[Neutral General]

Delphi-Quellcode:

function IsUpperCase(c: Char): Boolean;
begin
 Result := c = UpperCase(c);
end;

;)

[ManuMF]

Hallo,

ich kenne keine vorgefertigte Methode, aber müsste nicht

Delphi-Quellcode:

If (Char in ['A'..'Z'])

funktionieren?

Gruß,
ManuMF

[xZise]

@ Manu: Müsste so funktionieren ;) Aber Generals-Methode klingt "sinnvoller", oder wenigstens, ist sie leichter vertändlich ;)

Danke ^^

== beantwortet ==

[Christian Seehase]

Moin Fabian,

wenn sichergestellt ist, dass es sich um ein ASCII-7 Zeichen im Bereich A bis Z bzw. a - z handelt, dass man prüfen will ginge das so:

Delphi-Quellcode:

function IsUpper(const AcValue : Char) : boolean;
begin
  Result := (ord(AcValue) and $20) = 0;
end;

Gross- und Kleinbuchstaben unterscheiden sich nur durch ein gesetztes (klein) oder eben nicht gesetztes (gross) 5. Bit

[CK_CK]

Ihr dürft nicht vergessen, dass Umlaute (äöü) nicht mit UpperCase umgewandelt werden.
Das muss selbst ausprogrammiert werden...

Gruß,

[Neutral General]

Oh stimmt.. Dann ist da Christians Lösung besser.. wenn auch schwerer zu verstehn..

[Matze]

Zitat:

Zitat von CK_CK

Ihr dürft nicht vergessen, dass Umlaute (äöü) nicht mit UpperCase umgewandelt werden.
Das muss selbst ausprogrammiert werden...

Wie wär's mit AnsiUpperCase? ;)

[Christian Seehase]

Moin Neutral General,

nein, denn meine Methode funktioniert auch nur von 'A'..'Z'.
Mit Umlauten geht das nicht.

In Abwandlung Deiner Methode:

Delphi-Quellcode:

function IsUpperCase(c: Char): Boolean;
begin
Result := c = AnsiUpperCase(c);
end;

oder derer von ManuMF:

Delphi-Quellcode:

function IsUpperCase(c: Char): Boolean;
begin
Result := Char in ['A'..'Z','Ä','Ö','Ü'];
end;

[Neutral General]

Mh dann nehm ich das zurück und poste meine verbesserte Version :)

Delphi-Quellcode:

function IsUpperCase(c: Char): Boolean;
begin
 Result := c = AnsiUpperCase(c);
end;

EDIT: Zu langsam :|

[Gausi]

Das mit dem AnsiUppercase geht nicht. Es gibt da nämlich einen Buchstaben, von dem es keine Uppercase-Variante gibt: das "ß" :wink:

[Hawkeye219]

Hallo,

habt ihr euch eigentlich mal überlegt, was bei eurer UpperCase-Lösung im Hintergrund alles abläuft? Hier eine kleine Zusammenstellung:

Code:

- StackFrame einrichten
- unsichtbares TRY..FINALLY initialisieren
- Char in String umwandeln
- AnsiUpperCase aufrufen
  - LStrLen
  - LStrToPChar
  - LStrFromPCharLen
  - CharToUpperBuff
- LStrCmp
- String freigeben
- TRY..FINALLY aufräumen
- StackFrame auflösen

Die Lösung von ManuMF kommt im Vergleich dazu mit ein paar Subtraktionen aus.

Der ganze Aufwand ist aber nicht notwendig: Windows bietet eine Funktion mit Namen IsCharUpper an...

Gruß Hawkeye

[himitsu]

IsCharUpper funktioniert auch nicht richtig (jedenfalls wenn man mit Unicode arbeited) ... bei Ansi läuft es auch nur im unteren 7-Bit-Bereich korrekt.

PS: IsCharUpper macht es intern über 'ne CASE, es sei denn die haben inzwischen auch auf eine "optimiertere" IF-Abfrage reduziert,
aber so, oder so, es is allemal schneller als die AnsiUpperCase-Methode ^^

[Ydobon]

Und die entsprechende Unicodeversion dazu? IsCharUpperW

[himitsu]

Zitat:

Zitat von Ydobon

Und die entsprechende Unicodeversion dazu? IsCharUpperW

Nene, is schon klar, allerdings hat die einige Fehler in ihrer Implementation ... einige Zeichenbereiche werden garnicht, oder falsch umgewandelt.