Zeichen auf Lowercase etc. testen

[Sharky]

Zitat von Flocke:

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

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;