My suggestion of fixing issue :
Code: Select all
PROCEDURE IsAlpha* (ch: CHAR): BOOLEAN;
VAR type: SHORTINT; res: INTEGER;
BEGIN
res := WinApi.GetStringTypeW(WinApi.CT_CTYPE1, S.VAL(WinApi.PtrWSTR, S.ADR(ch)), 1, type);
RETURN BITS(WinApi.C1_ALPHA) * BITS(type) # {}
END IsAlpha;
Some details of the issue can be found here: http://www.siao2.com/2005/09/12/463991.aspx.