Zeichen auf Lowercase etc. testen

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