Isalpha, IsNum, IsString als eine Funktion

[sx2008]

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.