Zeichen auf Lowercase etc. testen

[Der Jan]

Hallo,

gibt es in OP Funktionen, um zu testen, ob ein Zeichen lower/uppercase, digit o.ä. ist?

[Sharky]

Hai Jan,

das kannst Du dir ganz schnell selber basteln:

Delphi-Quellcode:

type
 TCharType = (chUpper,chLower,chDigit,chUnknown);

function CharType(aValue : Char): TCharType;
begin
  case Ord(aValue) of
    $30..$39 : Result := ChDigit;
    $41..$5A : Result := chUpper;
    $61..$7A : Result := chLower
  else
    result := chUnknown;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  case CharType(' ') of
    chUpper : ShowMessage('Groß');
    chLower : ShowMessage('Klein');
    chDigit : ShowMessage('Zahl');
    chUnknown : ShowMessage('Kenn ich net');
  end;
end;

[Luckie]

Sharky!!!! Umständlicher geht es nun wirklich nicht. :mrgreen: :

Delphi-Quellcode:

function IsLower(chr: Char): Boolean;
begin
  result := chr in ['a'..'z'];
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(BoolToStr(IsLower('B'), True));
end;

[Sharky]

Zitat:

Zitat von Der Jan

... ob ein Zeichen lower/uppercase, digit o.ä. ist?

Zitat:

Zitat von Luckie

Sharky!!!! Umständlicher geht es nun wirklich nicht....

Hai Du Luckie,

er wollte ja nicht nur wissen ob es Lower ist sonder ob es Lower oder Upper oder Digit ist.
Und da finde ich meine Methode nicht umständlich ;-)

[Luckie]

Ok, hast gewonnen. ;)

[Robert Marquardt]

Luckie, schlampiger gehts wohl nicht. :mrgreen:
Was ist denn mit den Umlauten?

[Luckie]

Zitat:

Zitat von Robert Marquardt

Luckie, schlampiger gehts wohl nicht. :mrgreen:
Was ist denn mit den Umlauten?

Die kann man ja noch ergänzen. Für das Rundumsorglos-Copy-and-Waste-Paket war ich zu faul. ;)

[Flocke]

Dann mache ich's mal, ist ja ein Einzeller:

Delphi-Quellcode:

IsLower := AnsiUpperCase(ch) <> ch;
IsUpper := AnsiLowerCase(ch) <> ch;
IsDigit := ch in ['0' .. '9'];

[Sharky]

Zitat:

Zitat von Flocke

Dann mache ich's mal, ist ja ein Einzeller:

:cry:
Und da habe ich mir solche "Mühe" gegeben ;-)

Delphi-Quellcode:

type
 TCharType = (chControl,chBlank,chUpper,chLower,chDigit,chUnknown);

function CharType(aValue : Char): TCharType;
begin
  case Ord(aValue) of
    $00..$1F                       : Result := chControl;
    $20                            : Result := chBlank;
    $30..$39                       : Result := ChDigit;
    $41..$5A,$C0..$D6,$D8..$DE     : Result := chUpper;
    $61..$7A,$E0..$F6,$F8..$FF,$DF : Result := chLower
  else
    result := chUnknown;
  end;
end;

[Luckie]

OK, Delphi haben wir wohl ausgereizt. Wer übernimmt jetzt den ASM Part? :mrgreen:

[Der Jan]

Ääähm, ja.... Erstmal danke.

Das mit in ['a'..'z'] usw. ist mir klar, sorry, die Frage war wohl auch bissel blöd bzw. unvollständig formuliert...
Wenn man das so macht, wie ihr es beschreibt, beachtet man nicht die aktuellen Locale-Settings.
Ich suche etwas, wie die Funktionen islower(), isupper(), isdigit() etc. in C.

Edit: @Flocke, sorry, den post hatte ich irgendwie übersehen :oops: das ist schon ziemlich das, was ich suche..

[Robert Marquardt]

Das Win32 API hat da CharLower und CharUpper Funktionen.
Diese beruecksichtigen die Locale.

[Der Jan]

Alles klar, danke!

Da gibts auch IsCharUpper, IsCharLower und so...