[Decoding]

Код:

 
function isAlphaRu( c: Char ): boolean;
begin
   Result := Ord( c ) in [168,184,192..223,224..255];
end;
 
function isAlphaEn( c: Char ): boolean;
begin
   Result := Ord( c ) in [65..90,97..122];
end;
 
function isDigit( c: Char ): boolean;
begin
   Result := Ord( c ) in [48..57];
end;