[fpc-pascal] cross platform version of IsCharAlpha()

[Paul Ishenin]

Graeme Geldenhuys wrote:
> function IsCharAlpha(AChar: Char): Boolean;
> begin
>   // This is very primitive and doesn't take special chars or unicode into
>   // consideration.
>   if AChar in ['a'..'z', 'A'..'Z'] then
>     Result := True
>   else
>     Result := False;
> end;
>
>
> Anybody got a better Object Pascal version of IsCharAlpha() I can use
> and that we can add into Free Pascal?
>   
Here in 
http://svn.freepascal.org/svn/lazarus/trunk/components/jcf2/Utils/JcfStringUtils.pas 
I used the same code :)

Best regards,
Paul Ishenin.