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.
_______________________________________________
fpc-pascal maillist - fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-pascal