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

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 von Der Jan:

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

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.
Was ist denn mit den Umlauten?

[Luckie]

Zitat von Robert Marquardt:

Luckie, schlampiger gehts wohl nicht.
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 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;

[Luckie]

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