Man kann übrigens viel Zeit und Code sparen, indem man tabellengestützt feststellt zu welchen Typen ein Zeichen gehört.
Man hat dann ein Array von 256 Elementen
AnsiCharTypes: array [Char] of Word;
entweder als vordefiniertes Konstantenarray oder man initialisiert es einmal beim Programmstart.
Delphi-Quellcode:
function CharIsAlpha(const C: Char): Boolean;
begin
Result := (AnsiCharTypes[C] and C1_ALPHA) <> 0;
end;
Wie das genau geht, kann man sich in der
Unit JclAnsiStrings aus der
Jedi Code Library anschauen.