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
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 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