case and utf8

[BobS]

The following code fragment will cause a "constant and case type do not match" error as indicated (it's been extracted from a utf8keypress event):

Code: Pascal  [Select][+][-]

1.    var UTF8Key: TUTF8Char;
2.  begin
3.    case UTF8Key of
4.          '1': (*do something*);
5.          '2': (*do something else*);
6.         (*and so on until the next line*)
7.          DefaultFormatSettings.DecimalSeparator: (*do something crazy*); //ERROR
8.      end;  

I've tried type casting as both TUTF8Char and string but it still cause problems.

The only option I've found is to add an else clause to handle the DecimalSeparator in a comparison:

Code: Pascal  [Select][+][-]

1.  if UTF8Key = DefaultFormatSettings.DecimalSeparator
2.            then  (*do something crazy*)

which works fine.   I'm really just trying to make my program a bit more versatile without having to go into learning all the details of codepages etc (for now).  I'd like to use ThousandSeparator too and maybe others so really would like to just use the case statement without extra conditionals for this (especially in something called every key press).

[christian1987]

Show more code.

[Jonas Maebe]

case labels have to be constant expressions (known value at compile time). That is the same for strings and any other type that can be used with "case".

[BobS]

Yep, totally forgotten that...back to Pascal 101 .  Thanks.