ecStrUtils

function IsWordChar(const C: UCChar): Boolean;
begin
  Result := ((GetCharType(C) and (C1_ALPHA or C1_DIGIT)) <> 0)
    or (C = '_')
    //Unicode accents below
    or (C = #$0301) //AT
    or (C = #$00B4) //AT
    or (C = #$02B9) //AT
    or (C = #$02CA) //AT
    or (C = #$0384); //AT
end;

