Forum: Object-Pascal / Delphi-Language
Delphi
by Sharky,
23. Dez 2005
:cry:
Und da habe ich mir solche "Mühe" gegeben ;-)
type
TCharType = (chControl,chBlank,chUpper,chLower,chDigit,chUnknown);
function CharType(aValue : Char): TCharType;
begin
case Ord(aValue) of
$00..$1F : Result := chControl;
Forum: Object-Pascal / Delphi-Language
Delphi
by Sharky,
23. Dez 2005
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 ;-)
Forum: Object-Pascal / Delphi-Language
Delphi
by Sharky,
23. Dez 2005
Hai Jan,
das kannst Du dir ganz schnell selber basteln:
type
TCharType = (chUpper,chLower,chDigit,chUnknown);
function CharType(aValue : Char): TCharType;
begin
case Ord(aValue) of