From 70d2949737e6855e5d0ee2cea9fa4bd72aace61c Mon Sep 17 00:00:00 2001 From: mattias Date: Mon, 22 Aug 2005 00:24:43 +0000 Subject: [PATCH] fixed IsCharAlphaNumeric to test for numbers too git-svn-id: trunk@7537 - --- lcl/include/winapi.inc | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/lcl/include/winapi.inc b/lcl/include/winapi.inc index 8f1c52a131..2c4ff76cfb 100644 --- a/lcl/include/winapi.inc +++ b/lcl/include/winapi.inc @@ -1112,8 +1112,7 @@ end; Function IsCharAlphaNumeric(c : Char) : Boolean; begin // your code here - Result := False; - Result := ((ord(c) >= 65) and (ord(c) <=90) ) or ((ord(c) >= 97) and (ord(c) <=122) ); + Result := c in ['a'..'z','A'..'Z','0'..'9']; end; {------------------------------------------------------------------------------